vb6 call dll api in other folder

[xiaoyao]

 Private Declare Function Add Lib "AComDll_Thread" (ByVal A As Long, ByVal B As Long) As Long

Private Sub Form_Load()
    Dim DllPath As String, NowPath As String
    DllPath = App.Path & "\dll"
    DllPath = "Z:\test"
    NowPath = App.Path
    ChDrive Left$(DllPath, 2)
    ChDir DllPath
    '-----------------------
     MsgBox Add(3, 4)
    '-----------------------
    ChDrive Left$(NowPath, 2)
    ChDir NowPath
    
    MsgBox App.Path
End Sub

[xiaoyao]

Private Declare Function Add Lib "AComDll_Thread" (ByVal A As Long, ByVal B As Long) As Long
Private Declare Function SetCurrentDirectoryW Lib "kernel32" (ByVal lpPathName As Long) As Long

Private Sub Form_Load()
    Dim DllPath As String, NowPath As String
    DllPath = App.Path & "\dll"
    SetCurrentDirectoryW StrPtr(DllPath)
    
    MsgBox Add(3, 4)
    MsgBox App.Path
End Sub

[fafalone]

https://learn.microsoft.com/en-us/wi...tdlldirectoryw