Autor
|
Tema: VBS - encontré la información, pero no tengo ni idea de cómo utilizarla (Leído 3,924 veces)
|
corax
Desconectado
Mensajes: 220
Primum non nocere
|
En una de mis búsquedas desesperadas por internet de un manual de VBS encontré uno que debe ser bastante bueno, pero del que no acaban de quedarme claras un par de cosillas:
Necesito crear un código de VBS (no me sirve Vb, a sí que evitad hacer alusiones a que mejor lo haga en Vb, etc, etc.) que elimine una lista de archivos, pero SÓLO elimine esos archivos, sin dañar ningún otro.
El código que he encontrado es el siguiente:
Sub DeleteAFile(especificaciondearchivo) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(especificaciondearchivo) End Sub
y supongo que en "especificaciondearchivo" hay que colocar la ruta y el nombre del archivo
pero supongo que hay que crear un sub para cada archivo, y es una restra larga
me basta con que alguien escriba el código que se ajuste al siguente ejemplo:
code en VBS que elimine los siguientes archivos: %temp%/juan.txt %temp%/pepe.jpg
(Para todo aquel que piense que no he buscado bastante, he de decirle que un lenguaje de programación no es fácil aprenderlo por libre, y que postear en este foro ha sido mi último recurso, no un gesto de pereza)
gracias por adelantado
|
|
|
En línea
|
Nuestro idioma ha tardado 12 siglos en llegar hasta hoy día. Tú tan sólo tardas 20 segundos en escribir un post: no destroces en tan poco tiempo lo que tantos siglos ha costado crear.
|
|
|
Lambda
|
En una de mis búsquedas desesperadas por internet de un manual de VBS encontré uno que debe ser bastante bueno, pero del que no acaban de quedarme claras un par de cosillas:
Necesito crear un código de VBS (no me sirve Vb, a sí que evitad hacer alusiones a que mejor lo haga en Vb, etc, etc.) que elimine una lista de archivos, pero SÓLO elimine esos archivos, sin dañar ningún otro.
El código que he encontrado es el siguiente:
Sub DeleteAFile(especificaciondearchivo) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(especificaciondearchivo) End Sub
y supongo que en "especificaciondearchivo" hay que colocar la ruta y el nombre del archivo
pero supongo que hay que crear un sub para cada archivo, y es una restra larga
me basta con que alguien escriba el código que se ajuste al siguente ejemplo:
code en VBS que elimine los siguientes archivos: %temp%/juan.txt %temp%/pepe.jpg
(Para todo aquel que piense que no he buscado bastante, he de decirle que un lenguaje de programación no es fácil aprenderlo por libre, y que postear en este foro ha sido mi último recurso, no un gesto de pereza)
gracias por adelantado
No tienes que crear una sub, simplemente tienes que llamar a esa sub pasandole como parametros los nombres de archivos Algo asi Sub DeleteAFile(especificaciondearchivo) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile (especificaciondearchivo) End Sub DeleteAFile Environ("temp") & "\juan.txt" DeleteAFile Environ("temp") & "\pepe.jpg"
|
|
|
En línea
|
|
|
|
corax
Desconectado
Mensajes: 220
Primum non nocere
|
gracias, es justo lo que buscaba!!
|
|
|
En línea
|
Nuestro idioma ha tardado 12 siglos en llegar hasta hoy día. Tú tan sólo tardas 20 segundos en escribir un post: no destroces en tan poco tiempo lo que tantos siglos ha costado crear.
|
|
|
corax
Desconectado
Mensajes: 220
Primum non nocere
|
una última cosa, en caso de que el archivo se encontrara en %temp%\miscosas\pepe.txt
el code sería Sub DeleteAFile(especificaciondearchivo) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile (especificaciondearchivo) End Sub
DeleteAFile Environ("temp") & "\miscosas\pepe.txt"
¿es eso correcto?
|
|
|
En línea
|
Nuestro idioma ha tardado 12 siglos en llegar hasta hoy día. Tú tan sólo tardas 20 segundos en escribir un post: no destroces en tan poco tiempo lo que tantos siglos ha costado crear.
|
|
|
Lambda
|
una última cosa, en caso de que el archivo se encontrara en %temp%\miscosas\pepe.txt
el code sería Sub DeleteAFile(especificaciondearchivo) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile (especificaciondearchivo) End Sub
DeleteAFile Environ("temp") & "\miscosas\pepe.txt"
¿es eso correcto?
si, asi es
|
|
|
En línea
|
|
|
|
corax
Desconectado
Mensajes: 220
Primum non nocere
|
ok, gracias lambda por tu colaboración, pero no funciona lo he probado y me dice que hay un error, que no coinciden los tipos 'Environ' si alguien tiene la solución, que la postee por favor
|
|
|
En línea
|
Nuestro idioma ha tardado 12 siglos en llegar hasta hoy día. Tú tan sólo tardas 20 segundos en escribir un post: no destroces en tan poco tiempo lo que tantos siglos ha costado crear.
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
lo he probado y me dice que hay un error, que no coinciden los tipos 'Environ' Pues algo debes de estar haciendo mal, porque el code esta perfecto. Edit: uhm... Bueno... tal vez esto os de otra idea para lo que quieres hacer: http://foro.noticias3d.com/vbulletin/showthread.php?t=206800
|
|
« Última modificación: 28 Enero 2008, 15:05 pm por C@ss¡@n¡ »
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
Hasta donde yo se, no es posible llamar a las variables de sistema así como así environ no existe en *.vbs, para obtener la ruta de los temporales en vbscript debes de escribir lo siguiente Set objShell = CreateObject("Wscript.Shell") strtemp = objShell.ExpandEnvironmentStrings("%temp%") Esto guarda la ruta de los temporales en strtemp Luego sería... fso.deletefile strtemp & "\pepe.txt" Saludos
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD "Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein
|
|
|
corax
Desconectado
Mensajes: 220
Primum non nocere
|
Ok, ya me pasó la solución más simple un amigo. La pego por si alguien se ve en el mismo problema que yo:
On Error Resume Next Set cosilla = CreateObject("Scripting.FileSystemObject") cosilla.DeleteFile "C:\elperro.*"
|
|
|
En línea
|
Nuestro idioma ha tardado 12 siglos en llegar hasta hoy día. Tú tan sólo tardas 20 segundos en escribir un post: no destroces en tan poco tiempo lo que tantos siglos ha costado crear.
|
|
|
Lambda
|
Ok, ya me pasó la solución más simple un amigo. La pego por si alguien se ve en el mismo problema que yo:
On Error Resume Next Set cosilla = CreateObject("Scripting.FileSystemObject") cosilla.DeleteFile "C:\elperro.*"
mas simple aun Kill "C:\elperro.*"
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
wpa-psk encontre contraseña pero
Hacking Wireless
|
Dargor77
|
2
|
3,818
|
4 Mayo 2011, 02:04 am
por Dargor77
|
|
|
me encontre un chip movistar pero me pedia codigo punk y los gaste todo
Dispositivos Móviles (PDA's, Smartphones, Tablets)
|
mrt_15
|
2
|
5,927
|
22 Junio 2011, 21:23 pm
por mrt_15
|
|
|
Tengo una idea para un aplicacion pero necesito un socio programadorrr..??
Foro Libre
|
giogio2012
|
4
|
1,936
|
30 Enero 2012, 20:44 pm
por dnsdirm
|
|
|
[DLL] Como crearla y como utilizarla.
Programación C/C++
|
jvm1994
|
2
|
1,620
|
6 Abril 2017, 01:09 am
por jvm1994
|
|
|
La función Mesh Pairing llega a FRITZ!OS 7, te contamos cómo utilizarla
Noticias
|
wolfbcn
|
0
|
795
|
28 Mayo 2018, 01:38 am
por wolfbcn
|
|