Como obtener el directorio desde donde estamos ejecutando nuestro programa:
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
No hay comentarios:
Publicar un comentario