اقرأ الملفات الموجودة في الدليل للحصول على صفيف

اسم الملف = dir (رسالة محرك: /*.)

أنا = 0

افعل بينما اسم الملف =

Array1 (i) = اسم الملف

i = i + 1

اسم الملف = dir (c: /*.)

حلقة

يبدو أن هناك طريقة أفضل لـ VB ، لكنني لا أعرف الكثير عنها

vbscript

set fs = createObject (scripting.filesystemObject)

set f = fs.getFolder (خطاب محرك:/)

تعيين fc = f.files

أنا = 0

لكل F1 في FC

Array1 (i) = f1.name

i = i+1

التالي

المصدر: Bibo Villa Visual Basic http://ctsvb.126.com