24/06/2005, 23:58
|
 | | | Fecha de Ingreso: marzo-2005
Mensajes: 654
Antigüedad: 20 años, 1 mes Puntos: 3 | |
| Dim direccion As String
ChDir App.Path
ChDrive App.Path
direccion = App.Path
If Len(direccion) > 3 Then
direccion=direccion & "\"
End If
Text1.Text = direccion
este codigo te devuelve la direcion desde donde se ejecuto tu programa y la guarda en un textbox
__________________
Dios solo nos dio el 0 y el 1 pero con eso hemos hecho maravillas
1er dia te espantas, 2° te desesperas,3° buscas ayuda y 4°....Adios |