FileName = dir (surat drive: /*.*)
i = 0
lakukan saat fileName =
array1 (i) = nama file
i = i + 1
FileName = dir (c: /*.*)
lingkaran
Tampaknya ada cara yang lebih baik untuk VB, tapi saya tidak tahu banyak tentang itu
Vbscript
Set FS = CreateObject (Scripting.FilesystemObject)
Set f = fs.getFolder (surat drive:/)
Atur fc = f.files
i = 0
Untuk setiap F1 di FC
array1 (i) = f1.name
i = i+1
Berikutnya
Sumber: Bibo Villa Visual Basic http://ctsvb.126.com