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!

 

[Phuocam]

Google:

Google Sites: Sign-in

Access Google Sites with a personal Google account or Google Workspace account (for business use).

sites.google.com

Sub GetFiles_in_Folder()
Dim Fso As Object
Dim oFolder As Object
Dim i As Long
Set Fso = CreateObject("Scripting.FileSystemObject")
    For i = 1 To 7
        Set oFolder = Fso.GetFolder(Range("A" & i).Value)
        Range("B" & i).Value = oFolder.Files.Count
    Next i
End Sub

 

[Maika8008]

View attachment 263916
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!

Thử file. Lưu ý:
1/ không đếm file trong thư mục con (nếu có)
2/ Sửa lại đường dẫn của bạn ở cột A.

 

[vonguyen3745]

Thử file. Lưu ý:
1/ không đếm file trong thư mục con (nếu có)
2/ Sửa lại đường dẫn của bạn ở cột A.

Không hiểu sao nó đếm thỉnh thoảng lại có thư mục bị sai số file, ví dụ có 53 file trong đó nhưng lại đếm được 54; em đã cho hiện hết file ẩn cũng chị có 53 file. Khi copy hết số file đó sang thư mục khác để đếm thì nó lại đúng. không hiểu nguyên nhân là do đâu nhỉ bác.

 

[be_09]

Không hiểu sao nó đếm thỉnh thoảng lại có thư mục bị sai số file, ví dụ có 53 file trong đó nhưng lại đếm được 54; em đã cho hiện hết file ẩn cũng chị có 53 file. Khi copy hết số file đó sang thư mục khác để đếm thì nó lại đúng. không hiểu nguyên nhân là do đâu nhỉ bác.

Trong Folder đó có chứa File rác nó ẩn nên không nhìn thấy, khi ta Copy nó chỉ Copy File thật.

 

[Maika8008]

Không hiểu sao nó đếm thỉnh thoảng lại có thư mục bị sai số file, ví dụ có 53 file trong đó nhưng lại đếm được 54; em đã cho hiện hết file ẩn cũng chị có 53 file. Khi copy hết số file đó sang thư mục khác để đếm thì nó lại đúng. không hiểu nguyên nhân là do đâu nhỉ bác.

Sau khi di chuyển các file đi, chạy code để đếm thư mục trống đó thử kết quả nó đếm là 1 file hay 0 file?

 

[vonguyen3745]

Sau khi di chuyển các file đi, chạy code để đếm thư mục trống đó thử kết quả nó đếm là 1 file hay 0 file?

Xóa hết file đi, đếm vẫn báo 1 bác à

 

[befaint]

Thử file

Dùng Files.Count là được rồi.

Mảng arr chỉ cần lấy 1 cột là được rồi, và vẫn dùng mảng arr để chứa kết quả.

arr(i, 1) = k

-----------

đếm vẫn báo 1

Thêm dòng này xem nó là gì.

For Each FileItem In .Files
    Debug.Print FileItem.Name  '<---------- thêm dòng này. Nhớ bật cửa sổ Immediate lên (nhấn Ctrl + G)

 

[vonguyen3745]

Dùng Files.Count là được rồi.

Mảng arr chỉ cần lấy 1 cột là được rồi, và vẫn dùng mảng arr để chứa kết quả.

arr(i, 1) = k

-----------

Thêm dòng này xem nó là gì.

For Each FileItem In .Files
    Debug.Print FileItem.Name  '<---------- thêm dòng này. Nhớ bật cửa sổ Immediate lên (nhấn Ctrl + G)

Nó vẫn ra kết quả như thế bác à, Immediate nó hiện tên các file

 

[befaint]

Immediate nó hiện tên các file

Vậy mà không biết chụp ảnh cái đó úp lên đây. Khoe "hiện tên các file" nhưng không ai nhìn thấy thì làm ăn gì đâu.

 

[Maika8008]

Dùng Files.Count là được rồi.

Cảm ơn nhé! Vụ fso này tôi không rành lắm, có gì xài được là xài nấy, lúc nào bí mới ngâm kíu mở rộng ra.

 

[vonguyen3745]

Vậy mà không biết chụp ảnh cái đó úp lên đây. Khoe "hiện tên các file" nhưng không ai nhìn thấy thì làm ăn gì đâu.

thì nó hiện các file trong thư mục đó thôi bác

Thư mục nào báo sai em thấy có thêm file như này trong Immediate.

 

[befaint]

thì nó hiện các file trong thư mục đó thôi bác

Bạn buồn cười ghê. Mình trích dẫn rất chuẩn, không trích dẫn lung tung.

Cái 1 File kia đâu?



Cái đó là 1 File chuẩn chỉ. Vậy tại sao, lý do là gì mà bạn lại kêu là sai?




Bạn không tính File đó thì nêu là không tính, để người viết code chừa nó ra. Chỉ có thế thôi.

Còn chỗ này, bạn chưa biết làm.

 

[Maika8008]

thì nó hiện các file trong thư mục đó thôi bác
View attachment 263949
Thư mục nào báo sai em thấy có thêm file như này:
View attachment 263950

Bạn search thump.db để biết đó là file gì đi! Nó là file ẩn, vì bạn không thiết đặt hiển thị file ẩn nên không thấy chứ không phải là không có. Giống như sóng điện từ: không thấy nó không có nghĩa là nó không tồn tại.

 

[vonguyen3745]

Em đã nhấn vào hiện file ẩn rồi vẫn không có, hay nó ẩn kiểu gì nhỉ.

 

[befaint]

không

.

. .

 

[vonguyen3745]

Vậy có thể sửa code để chỉ đếm những file hiện, không đếm những file ẩn không bác!

 

[Maika8008]

Vậy có thể sửa code để chỉ đếm những file hiện, không đếm những file ẩn không bác!

Bạn xóa cái file .db ấy đi nếu cho nó hiện ra được. Nó chỉ tình cờ lọt vào đó chứ đâu phải thư mục nào cũng có. Còn như không xóa mà muốn không đếm nó thì thêm dòng code loại trừ nó ra thôi: If Left(tên file, 3) <> ".db" Then

 

[befaint]

Thay dòng
k = k + 1

bằng dòng

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

 

[Hau151978]

View attachment 263956
Em đã nhấn vào hiện file ẩn rồi vẫn không có, hay nó ẩn kiểu gì nhỉ.

File thumb.db thường dùng để thay icon của folder. File này có thuộc tính hệ thống. Để hiện các file hệ thống, bạn bấm vào options-view, bỏ chọn Hide protected operating system files (Recommended).
Xin lỗi vì không nhìn thấy bài của bạn befaint đã hướng dẫn rồi.