Cho em hỏi,làm sao mình kích run lần 2 thì nó tính luôn ko chỉ đường dẫn (c:\...) nữa vậy

[trantonghai]

Option Explicit
Public FleCount As Long, FldCollect
Private Sub GetFolderList(FolderName As String, InSub As Boolean)
Dim SubFld
On Error Resume Next
With CreateObject("Scripting.FileSystemObject")
With .GetFolder(FolderName)
FleCount = FleCount + .Files.Count
FldCollect.Add .Path, ""
If InSub Then
For Each SubFld In .SubFolders
GetFolderList SubFld.Path, True
Next
End If
End With
End With
End Sub
Sub Main()
Dim FolderName As String, TG As Double
On Error GoTo ExitSub
Set FldCollect = CreateObject("Scripting.Dictionary")
FleCount = 0
With CreateObject("Shell.Application")
FolderName = .BrowseForFolder(0, "", 1).Self.Path
End With
TG = Timer
GetFolderList FolderName, True
With Range("A:A")
'.ClearContents
'.Resize(Dic.Count) = WorksheetFunction.Transpose(Dic.Keys)
End With
Range("B1") = FleCount
MsgBox Format(Timer - TG, "0.000000000")
ExitSub:
End Sub

 

[huuthang_bd]

Dùng cái này nè bạn: </>

 

[trantonghai]

là sao vậy , mình vẫn chưa hiểu huuthang_bd