Làm cách nào để có danh sách tất cả tên tệp trong thư mục bằng VB6?

Question

Cách đơn giản nhất trong VB6 để lặp qua tất cả các tệp trong thư mục thư mục được chỉ định và nhận tên của chúng là gì?

Answer 1

sFilename = Dir(sFoldername) 

Do While sFilename > "" 

    debug.print sFilename 
    sFilename = Dir() 

Loop 

Answer 2

DJ solution là đơn giản và hiệu quả, chỉ cần ném ra một số khác trong trường hợp bạn cần một chút chức năng hơn rằng FileSystemObject có thể cung cấp (yêu cầu một tham chiếu đến Microsoft Scripting Runtime).

Dim fso As New FileSystemObject 
Dim fil As File 

For Each fil In fso.GetFolder("C:\").Files 
    Debug.Print fil.Name 
Next 

Answer 3

Dim fso As New FileSystemObject 
Dim fld As Folder 
Dim fil As File 
Set fld = fso.GetFolder("C:\My Folder") 
For Each fil In fld.Files 
    Debug.Print fil.Name 
Next 
Set fil = Nothing 
Set fld = Nothing 
Set fso = Nothing 

Answer 4

tạo nút với name = browseButton tạo filelistbox với name = List1

nhấp đúp vào nút trong thiết kế

và mã sẽ giống như thế này

Private Sub browseButton_Click() 

Dim path As String 
path = "C:\My Folder" 

List1.path() = path 
List1.Pattern = "*.txt" 
End Sub 

xong bây giờ hãy chạy nó