nome do arquivo = dir (letra de unidade: /*.*)
i = 0
fazer o nome do arquivo =
Array1 (i) = nome do arquivo
i = i + 1
nome do arquivo = dir (c: /*.*)
laço
Parece haver uma maneira melhor de VB, mas não sei muito sobre isso
VBScript
Set fs = createObject (script.filesystemoBject)
Set f = fs.getFolder (letra de unidade:/)
Definir FC = F.Files
i = 0
Para cada F1 no FC
Array1 (i) = f1.name
i = i+1
Próximo
Fonte: Bibo Villa Visual Basic http://ctsvb.126.com