vb6 - VB6 を使用してディレクトリ内のすべてのファイル名のリストを取得するにはどうすればよいですか?

Question

指定したフォルダ ディレクトリ内のすべてのファイルをループして名前を取得する VB6 で最も簡単な方法は何ですか?

Answer 1

sFilename = Dir(sFoldername)

Do While sFilename > ""

  debug.print sFilename 
  sFilename = Dir()

Loop

Answer 2

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 3

DJのソリューションはシンプルで効果的であり、FileSystemObjectが提供できる機能がもう少し必要な場合に備えて、別のソリューションを破棄するだけです（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 4

create button with name = browseButton name = List1 で filelistbox を作成

デザインのボタンをダブルクリック

コードは次のようになります

Private Sub browseButton_Click()

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

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

今すぐ実行してください