อ่านไฟล์ในไดเรกทอรีเพื่อรับอาร์เรย์

filename = dir (จดหมายไดรฟ์: /*.*)

i = 0

ทำในขณะที่ชื่อไฟล์ =

array1 (i) = ชื่อไฟล์

i = i + 1

filename = dir (c: /*.*)

วง

ดูเหมือนว่าจะมีวิธีที่ดีกว่าในการ VB แต่ฉันไม่รู้มากเกี่ยวกับเรื่องนี้

VBScript

ตั้งค่า fs = createObject (scripting.filesystemobject)

ตั้งค่า f = fs.getFolder (ตัวอักษรไดรฟ์:/)

ตั้งค่า fc = f.files

i = 0

สำหรับ F1 แต่ละตัวใน FC

array1 (i) = f1.name

i = i+1

ต่อไป

ที่มา: Bibo Villa Visual Basic http://ctsvb.126.com