Copiar todos los archivos de un directorio con VB6

[RsOfT]

Estoy utilizando VB6.
Yo deseo copiar todos los archivos de un directorio y estoy haciendo lo sigueente:

Código:

Dim fs As New FileSystemObject
Dim fsFolder As Folder
Set fsFolder = fs.GetFolder(App.Path & "\Archivos\")
    
For i = 0 To fsFolder.Files.Count
    fs.CopyFile fsFolder.Path & fsFolder.Files.Item(i).Name, "C:\Joe\", True
Next

Pero la parte de fsFolder.Files.Item(0).Name me da el error de Invalid procedure call or argument, que puego hacer?

[Eternal Idol]

Probá empezando el índice en 1.

[RsOfT]

Ya lo hice y no funcinó.
tambien probé lo siguiente:
- fsFolder.Files(0).Path
- fsFolder.Files(1).Path

y me tira el mismo error.

[EL_MVM]

m, bueno y por que mejor no utilizas el copyfolder, que hace una entrada recursiva y se lleva todos los archivos a otra carpeta.


fileSystemObject.Copyfolder origen, destino (para sobreescribir pones true aqui). y ya esta.

[RsOfT]

Lo pude resolver asi:

Código:

Dim fs         As New FileSystemObject
Dim fsFolder   As Folder
Dim fsFile     As File
Set fsFolder = FS.GetFolder(App.Path & "\Archivos\")

For Each fsFile In fsFolder.Files
    FS.CopyFile fsFolder.Path & "\" & fsFile.Name ...
Next

Pero lo que dices está interesante, gracias