Imposible copiar. Path not found D:

[CAR3S?]

como dice el titulo..

este es el codigo

Código (vb) [Seleccionar] Expandir

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)

[BlackZeroX]

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

Código (vb) [Seleccionar] Expandir



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



Dulces Lunas!¡.

[CAR3S?]

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

Código (vb) [Seleccionar] Expandir



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



Dulces Lunas!¡.

Existen 

[BlackZeroX]

.
Ya viste tu error?

Código (Vb,9,10) [Seleccionar] Expandir



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

[xkiz ™]

Código (Vb,9,10) [Seleccionar] Expandir


' // Aprende a realizar el codigo devajo de las mimas sin mezclarlas...


' // Aprende, devajo se escribe debajo

[CAR3S?]

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


Suerte!