Foro de elhacker.net

hola a todos, hoy traigo un vbs que desoculta carpetas el vbs funciona bien, selecciono la carpeta y doy aceptar y desinfecta, hay va bien pero
el problema es cuando lo abro pero no lo utilizo sino que lo quito hay sale el error
no se por que sale.

en pocas palabras el error esta cuando lo abro y lo cierro , que no lo utilizo.

code:

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
    (WINDOW_HANDLE, "Selecciona una carpeta:", NO_OPTIONS) 
    If (Not objFolder Is Nothing) Then 
       end if                                         'AQUI ESTA EL ERROR CUAN NO SELECCIONO NADA SINO LE DOY A CANCELAR
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Set objfso = CreateObject("scripting.filesystemobject") 
Set archivotexto = objfso.createtextfile("desinf.bat", True)
archivotexto.writeline "@echo off"
archivotexto.writeline "title Desinfectando USB (BY S4L)"
archivotexto.writeline "MODE CON: COLS=50 LINES=5"
archivotexto.writeline "color a"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°] 13 /."
archivotexto.writeline "cd /D "" " & strPath & """"
archivotexto.writeline "Attrib /d /s -r -h -s *.*"
archivotexto.writeline "Attrib /d /s -r -h -s Drive\*.*"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°°°°°°°] 25 /."
archivotexto.writeline "del /f /q *.bat"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°] 47 /."
archivotexto.writeline "del /f /q *.wsf"
archivotexto.writeline "del /f /q Drive\*.wsf"
archivotexto.writeline "if exist *.lnk del *.lnk"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°] 70 /."
archivotexto.writeline "del /f /q *.vbs"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°] 89 /."
archivotexto.writeline "del /f /q *.js"
archivotexto.writeline "cls"
archivotexto.writeline "echo/"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ] 100 /."
archivotexto.writeline "attrib -a -s -h -r /s /d"
archivotexto.writeline "attrib +s +h autorun.inf"
archivotexto.writeline "ping localhost -n 2 >nul"
archivotexto.writeline "taskkill /F /im wscript.exe"
archivotexto.writeline "cls"
archivotexto.writeline "echo [ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ] 100 /."
archivotexto.writeline "explorer.exe " & strPath & """"
archivotexto.writeline "exit"
archivotexto.Close
Set objfso = createobject("scripting.filesystemobject")
Set archivo = objfso.getfile("desinf.bat")	
archivo.attributes = 34	
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("desinf.bat", 1, true)	
 

estuve viendo tus otras "consultas", nunca un gracias a las soluciones que te dieron,¿crees qué estamos para arreglarte los scripts? además seguis con un error de algo que ya preguntaste y que es básico, dejá de copiar scripts a lo loco y aprendé lo mínimo.

 ******************error solucionado************************

sustituyan las Primeras 6 lineas por este code:

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Selecciona una carpeta:", 0, 0) 
 
If objFolder Is Nothing Then
 Wscript.Quit
End If
 
strPath = objFolder.self.path

este scrip Sirve para eliminar el virus de accesos directos que se mete en el
pendrive.  Chao. ::)