Copiar un archivo directamente al escritorio vb6

[servantsoftware]

Hola, y muchas gracias por todo los aportes, alguien me podria decir como copiar un archivo directamente al escritorio y que funcione para todos los windows "Vista,Xp,7"?

suponiendo que tengo el archivo en el mismo directorio que la aplicacion (App.Path)

[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"
 

[servantsoftware]

Perfecto!, si funciona, Gracias

[lokoman]