Hi,
I understand that I need to use the ChDrive function in order to nominate a folder on a network drive. However I may not know the network drive as the pathname to search is entered by the user (using the SHBrowseForFolder function). They may traverse to the network folder from My Network Places and thus the first character of the path would not be the drive letter.
I have the code below, but it doesnt work in the above instance
Any suggestions on how to resolve this would be appreciated (besides forcing the user to enter a path from the network drive letter).
Cheers
Greg
If Not ((UCase(Mid(DataWorkbook.path, 1, 1)) < 'A') Or _
(UCase(Mid(DataWorkbook.path, 1, 1)) > 'Z')) Then
ChDrive (Mid(DataWorkbook.path, 1, 1))
End If
ChDir (DataWorkbook.path)
ImportFilename = Application.GetOpenFilename(FileFilter:='microsoft excel files (*.xls), *.xls', _
Title:='Select File', MultiSelect:=False)
GetOpenFilename Method Excel 2003 VBA Language Reference. 2 minutes to readIn this articleDisplays the standard Open dialog box and gets a file name. Name Application.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect) Synopsis Displays the Open File dialog box and returns a filename or False if - Selection from Programming Excel with VBA and.NET Book.
I am trying to use the GetOpenFileName function for a network folder location.I understand that I need to use the ChDrive function in order to nominate a folder on a network drive. However I may not know the network drive as the pathname to search is entered by the user (using the SHBrowseForFolder function). They may traverse to the network folder from My Network Places and thus the first character of the path would not be the drive letter.
I have the code below, but it doesnt work in the above instance
Any suggestions on how to resolve this would be appreciated (besides forcing the user to enter a path from the network drive letter).
Cheers
Greg
If Not ((UCase(Mid(DataWorkbook.path, 1, 1)) < 'A') Or _
(UCase(Mid(DataWorkbook.path, 1, 1)) > 'Z')) Then
ChDrive (Mid(DataWorkbook.path, 1, 1))
End If
ChDir (DataWorkbook.path)
ImportFilename = Application.GetOpenFilename(FileFilter:='microsoft excel files (*.xls), *.xls', _
Title:='Select File', MultiSelect:=False)