filename = dir（drive letter：/*.*）
i = 0
filename =を実行します
array1（i）= filename
i = i + 1
filename = dir（c：/*.*）
ループ
VBにはより良い方法があるようですが、私はそれについてあまり知りません
vbscript
fs = createObject（scripting.filesystemObject）を設定します
f = fs.getfolder（drive letter：/）を設定します
fc = f.filesを設定します
i = 0
FCの各F1
array1（i）= f1.name
i = i+1
次
出典：Bibo Villa Visual Basic http://ctsvb.126.com