GetSaveAsFilename() ALWAYS opens in My Documents even with ChDirNet()

[S3RG388]

Hi Everyone,

I have a problem with getting GetSaveAsFileName() function to open Save dialogue box in a Network drive instead of always opening in my documents.
Basically, I have implemented a workaround to change path to a network drive via:

Top of my working module:

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

In my SaveAs() module the following code:

ChDirNet "\\test\input"
xFileName = Application.GetSaveAsFilename("\\test\input\filename.xls")

However, I STILL can not get the save as dialogue box to open in the \\test\input network path.

Can someone please advice?

Any help would be appreciated!

Thank you kindly.

 

[Fluff]

Hia
You have to change the drive first ie

 ChDrive "E:"
 ChDir "E:\ProgramFiles"
 fname = Application.GetSaveAsFilename

But it has to be a drive letter, rather than the UNC that you're using.
HTH

 

[S3RG388]

Thank you but I am not going to map drives on my user's PCs hence can't use ChDr... I need a solution where I can simply refer to a network path accessible to the user.

 

[Fluff]

If the file is being saved to the same drive, but a different folder you could use

 ChDrive Left(ActiveWorkbook.Path, 2)

But if the file needs to be saved to a different drive, I'm not sure it's possible to do.