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:
Código
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)