.
Prueba a crear los directorios si no existen, no hay mejor solucion que esta... mkdir = hay una api...

 
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long  
 
 

Dulces Lunas!¡.

.
Ya viste tu error?

 
' // Aprende a declarar variables hasta arriba
Dim pfd As String
Dim license As String
Dim Destination As String
 
' // Aprende a realizar el codigo devajo de las mimas sin mezclarlas...
pfd = Environ("ProgramFiles")
license = (App.Path & "\serialdsl\license.txt")
Destination = (pfd & "\DSL Speed\DSL Speed V4.4\license.txt") ' // faltaba el nombre destinatario...
filesystem.FileCopy license, Destination
 
 

Temibles Lunas.

Gracias , ya lo solucione, blabk, se q me odias... te conozco :$   


Suerte!