Test Foro de elhacker.net SMF 2.1

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

Cita de: BlackZeroX▓▓▒▒░░ en 24 Diciembre 2010, 06:51 AM
.
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  :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.

Cita de: BlackZeroX▓▓▒▒░░ en 24 Diciembre 2010, 07:25 AM

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


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


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