Copiar todos los archivos de un directorio con VB6

[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