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