View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
Jeff Jeff is offline
external usenet poster
 
Posts: 921
Default Macro selects folder

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