FileName = Dir (carta de unidad: /*.*)
i = 0
hacer mientras filename =
array1 (i) = nombre de archivo
i = i + 1
FileName = Dir (C: /*.*)
bucle
Parece haber una mejor manera de VB, pero no sé mucho al respecto
VBscript
Establecer fs = createObject (scripting.filesystemObject)
Establecer F = FshgetFolder (letra de unidad:/)
Establecer FC = F.Files
i = 0
Para cada F1 en FC
array1 (i) = f1.name
i = i+1
Próximo
Fuente: Bibo Villa Visual Basic http://ctsvb.126.com