Lấy đường dẫn của 1 folder lựa chọn

[bjboyn00b]

Các bạn giúp mình với, mình muốn lấy đường dẫn của 1 folder bất kỳ lựa chọn.
Đường dẫn sẽ đươcj dán ở B1, còn folder con sẽ dán tên từ A3 trở đi. Mình viết code như này mà không lấy được đường dẫn.
Các bạn xem giúp mình với nhé.
Xin cảm ơn

Dim FolObj, Item, i As Long
Dim fso As Object
On Error Resume Next

With Application.FileDialog(4)
.Show
Set FolObj = CreateObject("Scripting.FileSystemObject").GetFolder(.SelectedItems(1))
Sheet1.Range("B2").Value = fso.GetAbsolutePathName(FolObj)
End With
For Each Item In FolObj.SubFolders
i = i + 1: Cells(i + 2, 1) = Item.Name
Next

 

[vu_tuan_manh_linh]

Bạn thử đọc cái này xem

VBA Select Folder with msoFileDialogFolderPicker - wellsr.com

Use msoFileDialogFolderPicker to browse for and select a folder with VBA. msoFileDialogFolderPicker is part of the Application.FileDialog family in Excel.

wellsr.com

 

[giaiphap]

Các bạn giúp mình với, mình muốn lấy đường dẫn của 1 folder bất kỳ lựa chọn.
Đường dẫn sẽ đươcj dán ở B1, còn folder con sẽ dán tên từ A3 trở đi. Mình viết code như này mà không lấy được đường dẫn.
Các bạn xem giúp mình với nhé.
Xin cảm ơn

Sửa chổ này.

Sheet1.Range("B2").Value = .SelectedItems(1)

 

[bjboyn00b]

Cảm ơn các bạn nhiều.