Cách chọn thư mục chỉ bằng cách sử dụng điều khiển hộp thoại chung

Question

Sử dụng VB6

Mã.

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 

Từ mã trên, tôi chọn tệp, Nhưng tôi không muốn chọn tệp, tôi chỉ muốn chọn thư mục. Cách sửa đổi mã của tôi.

Cần mã vb6 Trợ giúp?

Answer 1

Đã một thời gian kể từ khi tôi phải làm bất kỳ công việc cơ bản nào nhưng tôi nghĩ thay vì sử dụng hộp thoại chung để mở tên tệp, bạn nên sử dụng hàm SHBrowseForFolder. của API Windows. Dưới đây là một số link đến trang mô tả cách sử dụng của nó.

Update (2017): liên kết cung cấp được chia nhưng a backed-up version can be viewed on archive.org

Answer 2

Để chọn thư mục, bạn có thể sử dụng Thành phần Shell và Tự động hóa.

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 

Bạn sẽ cần thêm tham chiếu đến shell32.dll vào dự án của mình. Sử dụng trình đơn Dự án/Tham khảo ... và sau đó duyệt qua shell32.dll.

Hoặc bạn có thể sử dụng API Windows như Twotymz đề xuất.

Answer 3

tôi dù đó là tổng quát hơn VBA câu hỏi dù sao, mở chọn hộp thoại thư mục trong VBA cho văn phòng> = 2k3.

Tôi không thể tin rằng nó quá khó, vì tôi cần có chức năng tương tự. Ít googling làm cho nó. Đây là giải pháp đơn giản đẹp 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

Đây là một chủ đề cũ, nhưng có lẽ ai đó sẽ được giúp đỡ của thành viên này. Mã này hoạt động trong VB6 cho tôi:

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