Algo asi.No lo he provado, pero creo que funcionará( parecido lo he utilizado varias veces). Si tienes alguna duda mandame un mail.SUERTE!
Dim fs, f, f1, fc, s
Dim matriz() as string
Dim c as integer
c=0
Set fs = CreateObject(\"Scripting.FileSystemObject\")
Set f = fs.GetFolder(\"direcciondirectorio\")
Set fc = f.Files
For Each f1 in fc
c=c+1
Redim preserve matriz (c)
matriz(c)=\"direcciondirectorio/\" & f.name
Next
oye, en la penultima linea han salido unas cosas muy raras (que , claro las he debido escribir yo...) La buena:
matriz(c)="direcciondirectorio/" & f.Name