filename = dir (Drive Letter: /*.*)
i = 0
делать в то время как имя файла =
Array1 (i) = имя файла
i = i + 1
filename = dir (c: /*.*)
петля
Кажется, есть лучший способ VB, но я мало что знаю об этом
VBScript
Установить fs = createObject (scripting.filesystemobject)
Установите f = fs.GetFolder (Dive Letter:/)
Установить fc = f.files
i = 0
Для каждого F1 в FC
Array1 (i) = f1.name
i = i+1
Следующий
Источник: Bibo Villa Visual Basic http://ctsvb.126.com