Jak wybrać folder tylko za pomocą wspólnego okna dialogowego sterowania

Question

Korzystanie z VB6

Kod.

CommonDialog1.DialogTitle = "Open File" 
CommonDialog1.Filter = "*.*" 
CommonDialog1.FilterIndex = 1 
CommonDialog1.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer 
CommonDialog1.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly 
CommonDialog1.CancelError = True 
On Error Resume Next 
CommonDialog1.ShowOpen 
If Err Then 
    'MsgBox "Select Folder" 
    Exit Sub 
End If 

Z powyższego kodu, ja wybranie pliku, ale nie chcę, aby wybrać plik, chcę wybrać tylko folder. Jak zmodyfikować mój kod.

Potrzebujesz kodu vb6 Pomoc?

Answer 1

Minęło trochę czasu odkąd miałem robić żadnych wizualnych podstawowe prace, ale myślę, że zamiast przy użyciu okna dialogowego wspólne dla coraz nazwę pliku, aby otworzyć należy użyć SHBrowseForFolder funkcję, która jest już częścią interfejsu API systemu Windows. Oto link do strony opisującej jej użycie.

Update (2017): Pod warunkiem, link jest uszkodzony, ale a backed-up version can be viewed on archive.org

Answer 2

Aby wybrać folder, można użyć komponentu Shell i Automation.

Private shlShell As Shell32.Shell 
Private shlFolder As Shell32.Folder 
Private Const BIF_RETURNONLYFSDIRS = &H1 

Private Sub Command1_Click() 
    If shlShell Is Nothing Then 
     Set shlShell = New Shell32.Shell 
    End If 
    Set shlFolder = shlShell.BrowseForFolder(Me.hWnd, "Select a Directory", BIF_RETURNONLYFSDIRS) 
    If Not shlFolder Is Nothing Then 
     MsgBox shlFolder.Title 
    End If 
End Sub 

Musisz dodać odniesienie do shell32.dll do swojego projektu. Skorzystaj z menu Projekt/Referencje ..., a następnie przejrzyj shell32.dll.

Lub możesz użyć interfejsu Windows API, jak sugeruje Twotymz.

Answer 3

I mimo że jest bardziej ogólne pytanie VBA tak, otwierając okno dialogowe Wybierz folder, w VBA dla pakietu Office> = 2k3.

Nie mogłem uwierzyć, że jest to trudne, ponieważ potrzebuję tej samej funkcjonalności. Zrobiło to trochę google. Tutaj jest ładne proste rozwiązanie take a look

Function GetFolderName() 
    Dim lCount As Long 

    GetFolderName = vbNullString 
    With Application.FileDialog(msoFileDialogFolderPicker) 
     .InitialFileName = OpenAt 
     .Show 
     For lCount = 1 To .SelectedItems.Count 
      GetFolderName = .SelectedItems(lCount) 
     Next lCount 
    End With 
End Function 

Answer 4

Jest to stary wątek, ale może ktoś będzie wspomagany przez to. Ten kod działa w VB6 dla mnie:

Private Sub ChooseDir_Click() 
    Dim sTempDir As String 
    On Error Resume Next 
    sTempDir = CurDir 'Remember the current active directory 
    CommonDialog1.DialogTitle = "Select a directory" 'titlebar 
    CommonDialog1.InitDir = App.Path 'start dir, might be "C:\" or so also 
    CommonDialog1.FileName = "Select a Directory" 'Something in filenamebox 
    CommonDialog1.Flags = cdlOFNNoValidate + cdlOFNHideReadOnly 
    CommonDialog1.Filter = "Directories|*.~#~" 'set files-filter to show dirs only 
    CommonDialog1.CancelError = True 'allow escape key/cancel 
    CommonDialog1.ShowSave 'show the dialog screen 

    If Err <> 32755 Then ' User didn't chose Cancel. 
     Me.SDir.Text = CurDir 
    End If 

    ChDir sTempDir 'restore path to what it was at entering 
End Sub