Có thể cho hiên đường dẩn lên tiêu đề của hộp Browse for folder không?

[ndu96081631]

Tôi có đoạn code thế này:

Sub BrowseFolder()
  On Error Resume Next
  With New Shell32.Shell
    MsgBox .BrowseForFolder(0, "Chon thu muc", 1).Items.Item.Path
  End With
End Sub

Code này dùng để mở hộp Browse For Folder (dùng thư viện Shell32.dll)
Tôi muốn hỏi: Có cách nào để khi tôi chọn vào thư mục nào trong hộp BrowseForFolder này thì lập tức trên thanh tiêu đề sẽ xuất hiện đường dẩn của Folder tôi đang chọn?
Ví dụ: Khi tôi đang chọn vào thư mục D:\DULIEU thì thanh tiêu đề cũng xuất hiện đường dẩn như thế ---> Giống hình này:

Đã làm đủ mọi cách, nhưng chỉ sau khi nhấn OK thì mới lấy được đường dẩn

 

[ndu96081631]

Cũng 1 câu hỏi nữa có liên quan đến hộp Browse For Folder (xin post chung vào đây luôn)
Tôi có đoạn code sau:

Sub BrowseFolder()
  With CreateObject("Shell.Application")
    On Error Resume Next
    MsgBox .BrowseForFolder(0, Evaluate("Text"), 1).Items.Item.Path
  End With
End Sub

Cho hỏi: Tại sao khi chạy code tôi lại không lấy được đường dẩn của Desktop Folder?

 

[NguyenNgocSon]

Tôi có 1 file về chọn Folder không biết đúng ý bác không?
Nếu không đúng có thể tham khảo

Sub BrowseFolder()
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "BrowseForFolder"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Canceld"
Else
MsgBox .SelectedItems(1)
End If
End With
End Sub

Thân !!!

 

[ndu96081631]

Tôi có 1 file về chọn Folder không biết đúng ý bác không?
Nếu không đúng có thể tham khảo

Sub BrowseFolder()
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "BrowseForFolder"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Canceld"
Else
MsgBox .SelectedItems(1)
End If
End With
End Sub

Thân !!!

Cảm ơn bạn! FileDialog thì tôi biết rồi ---> Ý tôi là muốn hỏi về hộp Browse For Folder như tôi đưa ở trên cơ? Tại sao nó không chẳng "động đậy" gì khi ta chọn vào Folder Desktop?
Còn ví dụ mà bạn đưa, tôi nghĩ chỉ cần vầy là đủ:

Sub BrowseFolder1()
  On Error Resume Next
  With Application.FileDialog(4)
    .AllowMultiSelect = False: .Show
    MsgBox .SelectedItems(1)
  End With
End Sub

Browse Folder chứ không phải Browse File

 

[NguyenNgocSon]

Một số file thao tác với Folder sưu tầm
Mọi người tham khảo

 

[ndu96081631]

Ôi trời ơi! Tôi biết cách làm rồi
Chỉ có bao nhiêu đó thôi mà "nó" vật tôi cả tuần nay!
Hic...
Thì ra là:

Sub BrowseFolder()
  With CreateObject("Shell.Application")
    On Error Resume Next
    MsgBox .BrowseForFolder(0, Evaluate("Text"), 1).Self.Path
  End With
End Sub

Ăn tiền ở chổ .Self đấy

 

[NguyenNgocSon]

File này tôi chọn được đường dẫn của Desktop nhung còn vấn đề Title nữa,cùng trao đổi

 

[ndu96081631]

File này tôi chọn được đường dẫn của Desktop nhung còn vấn đề Title nữa,cùng trao đổi

Code mà bạn đưa lên tôi đã từng tham khảo qua ---> Chưa biết nó hay ho thế nào, nhưng mà dài quá.. nhìn "đuối" luôn ---> Dù sao thì dùng CreateObject("Shell.Application") vẫn gọn hơn rất nhiều

 

[Nguyễn Duy Tuân]

Tôi đã viết hàm BrowseForFolder, các bạn tham khảo bài này
http://www.giaiphapexcel.com/forum/showthread.php?p=176688#post176688

Kỹ thuật lầm trình Windows API tuy khó nhưng nó đáp ứng nhu cầu phong phú.