Foro de elhacker.net

como dice el titulo..

este es el codigo

Dim pfd As String
pfd = Environ("ProgramFiles")
Dim license As String
license = (App.Path & "\serialdsl\license.txt")
MsgBox license
 
Dim Destination As String
 
Destination = (pfd & "\DSL Speed\DSL Speed V4.4\")
MsgBox Destination
 
FileCopy (license), (Destination)

.
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!¡.

Existen  :silbar:

.
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.

' // Aprende, devajo se escribe debajo

Gracias , ya lo solucione, blabk, se q me odias... te conozco :$  :-[  :rolleyes: :laugh: :laugh: :laugh: :laugh: :laugh: :laugh: :laugh: :laugh: :silbar: :silbar: :silbar:


Suerte!