G
Guest
Hi,
I have a macro that selects a folder - the problem is that when it selects
the folder you cant see the files there - is there some where to fix this -
because they need to see where the file is in order to select the folder.
Here is the macro - Thanks for your help
Sub GetFolder2(Output)
Dim Output As String
' For Excel 2002
If Val(Application.Version) < 10 Then
MsgBox "This requires Excel 2002 or later.", vbCritical
Exit Sub
End If
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a location for the backup"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Canceled"
'Else
' MsgBox .SelectedItems(1)
End If
End With
Output =
Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
End Sub
I have a macro that selects a folder - the problem is that when it selects
the folder you cant see the files there - is there some where to fix this -
because they need to see where the file is in order to select the folder.
Here is the macro - Thanks for your help
Sub GetFolder2(Output)
Dim Output As String
' For Excel 2002
If Val(Application.Version) < 10 Then
MsgBox "This requires Excel 2002 or later.", vbCritical
Exit Sub
End If
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a location for the backup"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Canceled"
'Else
' MsgBox .SelectedItems(1)
End If
End With
Output =
Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
End Sub