Mensajes

Como se garía para borrar los arechivos que hay dentro de C:\Windows\Prefetch

   

Código [Seleccionar] Expandir

Dim strFolderPath, strUserLocalAppData, objFso
    Set objShell = CreateObject("Wscript.Shell")
    Set objFso = CreateObject("Scripting.FileSystemObject")
    strUserLocalAppData = objShell.ExpandEnvironmentStrings("C:\Windows")
    strFolderPath = strUserLocalAppData & "\Prefetch" 'esto tampoco "\Prefetch\*"
    On Error Resume Next
    Call objFso.DeleteFolder(strFolderPath, True)
    Err.clear

no me funciona, perdona por las molestias

Gracias, pero no lo entiendo muy bien como usar esto.

Buenos dias de nuevo, MIL gracias.

2preguntas nuevas

> %localappdata% llama a la carpeta .appdata, ok

¿Cual es el patch para llamar a la carpeta windows o c:\windows.?

esto es porque estoy intentando borrar lo que hay dentro de la carpeta windows/temp y no me deja


> Otra cosa, para borrar la papeleraa me podrias decir tambien el codigo?


Muchisimas gracias por todo de verdad, y perdona por las molestias

Muchisimas gracias por los aportes. Mil gracias. Me ha servido de muchisima ayuda. Los libros me los voy a leer "pero ya".

Nueva pregunta.

Si esa carpeta no existiera, el script se detendría?

o vale on poner:

Código [Seleccionar] Expandir

 

Dim strFolderPath, strUserLocalAppData, objFso
   
   Set objShell = CreateObject("Wscript.Shell")
   Set objFso = CreateObject("Scripting.FileSystemObject")


   strUserLocalAppData = objShell.ExpandEnvironmentStrings("%LocalAppData%")
   strFolderPath = strUserLocalAppData & "\Tempz*"

   On Error Resume Next
   Call objFso.DeleteFolder(strFolderPath, True)
   If Err Then
 objFso.CreateFolder strFolderPath
 strFolderPath = strUserLocalAppData & "\Tempz01" 'por ejemplo crea una carpeta llamada asi
     WScript.Echo(Err.Description)
   End If
   Err.clear

Gracias

nota: si si sabes de algun buen curso de scripting que pueda comprar, si es gratuito mejor, encantado de leerte.

[C:\Users\miUsuario\AppData\Local\Tempzxpsign6031c91fa5e36b0d]

Buenas tardes,

alguin seria tan amable de decirme como borrar con un script *.vbs las carpetas que se me crean en

C:\Users\miUsuario\AppData\Local\Tempzxpsign6031c91fa5e36b0d

se me crean bastantes y quisiera decirle al script que me borre todas que empiecen por Tempz

Estoy usando esto pero no funciona y no veo la forma ya que mis conocimientos son limitados de scripting

Código [Seleccionar] Expandir

Dim strFolderPath, objFso
strFolderPath = "C:\Users\miUsuario\AppData\Local\Temp[b]*[/b]"
Set objFso = CreateObject("Scripting.Filesystemobject")

If objFso.FolderExists(strFolderPath) then
    objFso.DeleteFolder strFolderPath, True
End If

Set objFso = Nothing

creo que el temp* (asterisco) no funciona como tal

gracias y perdonad las molestias

Buenos días, no se si me podeis ayudar. el saco es que hemos tenido un escaneo desde una ip 213.37.160.199 de vodafone a una infraestructura y queria saber como puedo averiguar la mayor cantidad de cosas de esa web. Conoceis algun herramienta, a parte del nmap para saber de ella. Uso kali linux por cierto.

Mil gracias de antemano