GBKEE

¦^´_ 1# maiko

1. Option Explicit
   
2. Sub OpenPath()
   
3.     Dim fd As FileDialog, FileName As String, FileFolder As String
   
4.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
5.     With fd
   
6.         .AllowMultiSelect = False
   
7.         Do
   
8.             If .Show = True Then FileFolder = .SelectedItems(1)
   
9.         Loop Until .SelectedItems.Count <> 0
   
10.     End With
    
11.     Set fd = Nothing
    
12. End Sub

½Æ»s¥N½X