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