Copiar un archivo directamente al escritorio vb6

[lokoman]

Hola!!
Intenta esto a ver si te sirve:

Código vb:

Dim RutaDesktop As String
    RutaDesktop = Environ("userprofile") & "\escritorio\"
    If Dir(RutaDesktop, vbDirectory) = Empty Then RutaDesktop = Environ("userprofile") & "\desktop\"
        
    MsgBox RutaDesktop
 
   FileCopy App.path & "\ArchivoFuente.txt", RutaDesktop & "ArchivoDestino.txt"