LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.misc
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

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
macro that selects mulitple columns [email protected] Excel Discussion (Misc queries) 1 June 14th 07 06:52 PM
macro that selects mulitple columns [email protected] Excel Discussion (Misc queries) 0 June 14th 07 05:32 PM
Copy a folder by macro Brettjg Excel Discussion (Misc queries) 6 March 19th 07 10:51 PM
How to write macro that selects relative locations NewKid Excel Worksheet Functions 2 September 12th 06 07:41 PM
Start Macro after user selects a choice from a pick list mathew Excel Discussion (Misc queries) 2 August 17th 06 03:28 PM


All times are GMT +1. The time now is 01:46 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"