Thay đổi đường dẫn mặc định trong hộp BrowseForFolder (1 người xem)

[USB1394]

Ta muốn khi mở hộp BrowseForFolder thì sẽ duyệt ngay vào 1 thư mục do ta chỉ định trước VD : D:\Data\Pic chẳng hạn , không biết có thể đc không . Mong các bạn giúp đỡ

 

[Hai Lúa Miền Tây]

Ta muốn khi mở hộp BrowseForFolder thì sẽ duyệt ngay vào 1 thư mục do ta chỉ định trước VD : D:\Data\Pic chẳng hạn , không biết có thể đc không . Mong các bạn giúp đỡ

Bạn thử code sau:

Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0
Sub test()
Dim strPath As String, objFolder As Object, objShell As Object, objFolderItem As Object
On Error Resume Next
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "Select folder:", NO_OPTIONS,[B][COLOR=#ff0000] "D:\"[/COLOR][/B])
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
MsgBox strPath
objFolder = Nothing: objShell = Nothing: objFolderItem = Nothing

End Sub

 

[ndu96081631]

Ta muốn khi mở hộp BrowseForFolder thì sẽ duyệt ngay vào 1 thư mục do ta chỉ định trước VD : D:\Data\Pic chẳng hạn , không biết có thể đc không . Mong các bạn giúp đỡ

Tôi thấy bạn nên dùng FileDialog cho dễ
Ví dụ:

Function BrowseForFolder(Optional ByVal DefaultPath As String) As String
  With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    If Len(DefaultPath) Then .InitialFileName = DefaultPath
    If .Show Then BrowseForFolder = .SelectedItems(1)
  End With
End Function

Sub Main()
  Dim strFolder As String
  strFolder = BrowseForFolder("[COLOR=#ff0000]D:\Excel[/COLOR]")
  If Len(strFolder) Then MsgBox strFolder
End Sub

 

[USB1394]

Xin cám ơn 2 Bạn :
Hai Lúa Miền Tây và
ndu96081631 đã giúp mình giải quyết vấn đề . Cách của bạn Hai Lúa Miền Tây thì duyệt đơn giản dùng trong t/h dữ liệu đơn giản chỉ chọn là xong . Cách bạn ndu96081631 thì duyệt thư mục và có thể xem nội dung trong đó dùng trong t/h dữ liệu phúc tạp cần xem trước để chọn cho chính xác . Rất cám ơn các bạn đã bỏ thời gian giúp mình , xin cám ơn