Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
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