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?