chdir not accepting string for path

[Guest]

Hi all,

Consider the following:

Dim MyPath as String
MyPath = "\\xxx\yyy"

If I execute ChDir MyPath, I get a "Can't find path" error. But if I execute
ChDir "\\xxx\yyy", I don't get an error. I've also used
SetCurrentDirectoryA(MyPath)
with the same nasty result. Passing a quoted path string, however, works.

Any idea what is going on??? It seems to be central to using a network path
name.

TIA
Alan

 

[Ron de Bruin]

Hi Alan

Try this

'Previously posted by Rob Bovey:

Private Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lpPathName As String) As Long

Sub ChDirNet(szPath As String)
Dim lReturn As Long
lReturn = SetCurrentDirectoryA(szPath)
If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path."
End Sub

' sample usage

Sub FindFile()
Dim FName As Variant

ChDirNet "\\DELL\testing"
FName = Application.GetOpenFilename
End Sub