Muchas veces podemos necesitar conocer donde se ejecuta la aplicación.

Escribir el siguiente código:

Private Sub Form_Load()

Dim Directorio as String

ChDir App.Path ChDrive App.Path Directorio = App.Path

If Len(Directorio) >; 3 Then Directorio = Directorio & "\"

End If

End Sub