Can't 'SaveAs' Directly to Network Folder

Hello,
I'm using the function below to pop up a "Browse for folder" window in order to get a network file path. Later in the code I save the workbook to the path under a new name. If I map a drive directly to the folder I want to save to, I get a run-time 1004 error saying the file cannot be accessed. If I map to the folder one level above where I want to save, then select down a level in the browse window, it works. If I start at the very top level in the browse window and manually select all the way down to the desired location, it also works. Also no problems when saving directly to my computer. I'm running excel 2003 and using Lib shell32.dll. Any ideas why this is happening? Thanks very much for your help!!

Function GetDirectory(Optional Msg) As String
Dim bInfo As Browseinfo
Dim Path As String
Dim r As Long, X As Long, pos As Integer
bInfo.pidlroot = 0&
If IsMissing(Msg) Then
bInfo.lpsztitle = "Select a folder"
Else
bInfo.lpsztitle = Msg
End If
bInfo.ulflags = &H1
X = SHBrowseforfolder(bInfo)
Path = Space$(512)
r = SHGetPathFromIDList(ByVal X, ByVal Path)
If r Then
pos = InStr(Path, Chr$(0))
GetDirectory = Left(Path, pos - 1)
Else
GetDirectory = ""
End If
End Function

Try changing drives before the save as. See ChDrive Statement in help.



--
Damon Longworth

Don't miss out on the 2005 Excel User Conference
Sept 16th and 17th
Stockyards Hotel - Ft. Worth, Texas
www.ExcelUserConference.com


"jbl25" <jbl25.1rrqek_1120687529.8926@excelforum-nospam.com> wrote in
message news:jbl25.1rrqek_1120687529.8926@excelforum-nospam.com...
>
> Hello,
> I'm using the function below to pop up a "Browse for folder" window in
> order to get a network file path. Later in the code I save the
> workbook to the path under a new name. If I map a drive directly to
> the folder I want to save to, I get a run-time 1004 error saying the
> file cannot be accessed. If I map to the folder one level above where
> I want to save, then select down a level in the browse window, it
> works. If I start at the very top level in the browse window and
> manually select all the way down to the desired location, it also
> works. Also no problems when saving directly to my computer. I'm
> running excel 2003 and using Lib shell32.dll. Any ideas why this is
> happening? Thanks very much for your help!!
>
> Function GetDirectory(Optional Msg) As String
> Dim bInfo As Browseinfo
> Dim Path As String
> Dim r As Long, X As Long, pos As Integer
> bInfo.pidlroot = 0&
> If IsMissing(Msg) Then
> bInfo.lpsztitle = "Select a folder"
> Else
> bInfo.lpsztitle = Msg
> End If
> bInfo.ulflags = &H1
> X = SHBrowseforfolder(bInfo)
> Path = Space$(512)
> r = SHGetPathFromIDList(ByVal X, ByVal Path)
> If r Then
> pos = InStr(Path, Chr$(0))
> GetDirectory = Left(Path, pos - 1)
> Else
> GetDirectory = ""
> End If
> End Function
>
>
> --
> jbl25
> ------------------------------------------------------------------------
> jbl25's Profile:
> http://www.excelforum.com/member.php...fo&userid=7225
> View this thread: http://www.excelforum.com/showthread...hreadid=385073
>

jbl25,
English Excel 2000 cannot save to a network path that contains foreign
(Chinese) characters, for me anyway.

NickHK

"jbl25" <jbl25.1rrqek_1120687529.8926@excelforum-nospam.com> wrote in
message news:jbl25.1rrqek_1120687529.8926@excelforum-nospam.com...
>
> Hello,
> I'm using the function below to pop up a "Browse for folder" window in
> order to get a network file path. Later in the code I save the
> workbook to the path under a new name. If I map a drive directly to
> the folder I want to save to, I get a run-time 1004 error saying the
> file cannot be accessed. If I map to the folder one level above where
> I want to save, then select down a level in the browse window, it
> works. If I start at the very top level in the browse window and
> manually select all the way down to the desired location, it also
> works. Also no problems when saving directly to my computer. I'm
> running excel 2003 and using Lib shell32.dll. Any ideas why this is
> happening? Thanks very much for your help!!
>
> Function GetDirectory(Optional Msg) As String
> Dim bInfo As Browseinfo
> Dim Path As String
> Dim r As Long, X As Long, pos As Integer
> bInfo.pidlroot = 0&
> If IsMissing(Msg) Then
> bInfo.lpsztitle = "Select a folder"
> Else
> bInfo.lpsztitle = Msg
> End If
> bInfo.ulflags = &H1
> X = SHBrowseforfolder(bInfo)
> Path = Space$(512)
> r = SHGetPathFromIDList(ByVal X, ByVal Path)
> If r Then
> pos = InStr(Path, Chr$(0))
> GetDirectory = Left(Path, pos - 1)
> Else
> GetDirectory = ""
> End If
> End Function
>
>
> --
> jbl25
> ------------------------------------------------------------------------
> jbl25's Profile:
http://www.excelforum.com/member.php...fo&userid=7225
> View this thread: http://www.excelforum.com/showthread...hreadid=385073
>

I don't have any foreign characters in the path, so I mapped a drive directly to the folder I wish to save in, called Z. I added
ChDrive "Z"
right before the SaveAs code, but got the same error. Thanks for your responses, any other ideas? Thanks again.