programacion - ¿Cómo establecer el directorio de trabajo al depurar la aplicación VB6?

visual basic

Question

Estoy depurando un ejecutable VB6. El ejecutable carga dlls y archivos desde su directorio actual, cuando se ejecuta. Cuando se ejecuta en depurador, el directorio actual parece ser el dir de VB6.

¿Cómo configuro el directorio de trabajo para VB6?

Answer 1

"El directorio actual parece ser el directorio de VB6" solo cuando abre un proyecto usando Archivo-Abrir.

Ábralo haciendo doble clic en el archivo .vbp mientras tiene el IDE cerrado.

Answer 2

El directorio actual para cualquier programa, incluido vb6, se puede cambiar en las propiedades del acceso directo. Lo cambié a la raíz de mi árbol fuente, hace que usar File-Open sea más rápido.

Answer 3

La solución que he encontrado que funciona utiliza un Sub Main y comprueba si el programa se está ejecutando en el IDE.

Dim gISIDE as Boolean

Sub Main()
    If IsIDE Then
        ChDrive App.Path
        ChDir   App.Path
    End If

    '' The rest of the code goes here...

End Sub

Public Function IsIDE() As Boolean ''
        IsIDE = False
        ''This line is only executed if running in the IDE and then returns True
        Debug.Assert CheckIDE 
        If gISIDE Then 
            IsIDE = True
        End If
End Function

Private Function CheckIDE() As Boolean '' this is a helper function for Public Function IsIDE() 
        gISIDE = True ''set global flag 
        CheckIDE = True 
End Function

Answer 4

No parece ser una solución "lista para usar" para esto.

Tomado de The Old Joel en los foros de software

De todos modos ... para terminar con este tema ... la siguiente fue mi solución VB6: defino 2 símbolos en mi proyecto VB "MPDEBUG" y "MPRELEASE" y llamo a la siguiente función como la primera operación en la función de punto de entrada de mi aplicación.

Public Sub ChangeDirToApp()
#If MPDEBUG = 0 And MPRELEASE = 1 Then
  '' assume that in final release builds the current dir will be the location
  '' of where the .exe was installed; paths are relative to the install dir
  ChDrive App.path
  ChDir App.path
#Else
  '' in all debug/IDE related builds, we need to switch to the "bin" dir
  ChDrive App.path
  ChDir App.path & BackSlash(App.path) & "../bin"
#End If
End Sub

Answer 5

esto funcionara?

''Declaration
Private Declare Function SetCurrentDirectory Lib "kernel32" _
Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

''syntax to set current dir
SetCurrentDirectory App.Path