フォルダの全ファイル名を自動的に取り込むには

質問

ビジュアルベーシク（VB5）でドライブ、フォルダ、ファイルの各アイコンをフォームに配置して動作させると、手動でファイル名を取得できますが、フォルダを指定したらその中のファイル名全てを、自動的に文字配列変数に取り込むにはどうしたらよいでしょうか？よろしくお願いします。

回答No.1

米沢 栄蔵（@YON56） · ベストアンサー

Dim AAA,BBB,CCC,DDD
Dim ZZZ()
Dim A,B

Set AAA = CreateObject("Scripting.FileSystemObject")
Set BBB = AAA.GetFolder("対象フォルダのフルネーム")
Set CCC = BBB.Files
A = CCC.Count
ReDim ZZZ(A)
B=0
For Each DDD In CCC
B=B+1
ZZZ(B)=DDD.Name
Next

後はZZZ()の値を順次取り出して下さい。

お礼

回答、ありがとうございました。これでプログラムを組んでみます。