View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
 
Posts: 11,123
Default chdir not accepting string for path

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




--
Regards Ron de Bruin
http://www.rondebruin.nl


"Alan" wrote in message ...
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