Giúp em cách đếm các file có trong thư mục theo đường dẫn cho trước

[vonguyen3745]

Em muốn đếm các file có trong các thư mục ở cột A mà không phải mở thư mục đó ra. thanks!

 

[vonguyen3745]

Thay dòng
k = k + 1

bằng dòng

If FileItem.Attributes <> 34 Then k = k + 1

Em thay vào nó vẫn đếm file ẩn bác à

 

[befaint]

Em thay vào nó vẫn đếm file ẩn bác à

Vậy đổi thành
If FileItem.Attributes = 32 Then k = k + 1

 

[vonguyen3745]

Vậy đổi thành
If FileItem.Attributes = 32 Then k = k + 1

Được rồi, Thanks bác nhiều