đăng 20:38, 27 thg 3, 2012 bởi Hai Yen
[
đã cập nhật 07:28, 16 thg 9, 2014
]
Private Sub Command1_Click() Set PathFolder = CreateObject("Shell.Application") _ .BrowseForFolder(0, "Chon Thu Muc :", 0) If Not PathFolder Is Nothing Then MsgBox PathFolder.Self.path End Sub