윈 도 우 파일명 변경(+확장자제거) - 수정완료

123.png  <-->  123`png  

파일명에 " ` "가 없어야 합니다

랜섬웨어에서 내 자료가 안전해질 수 있을까?

저장되어 있는 우리식당 극비 레시피가 안전해지길 바라며...

지우기와 복구.vbs 내부의 확장자만 수정하면 -> .txt, .exe, .zip, .7z.... 다 적용됩니다.

그림파일-확장자-지우기.vbs

스크립트시작

Dim WshShell

Set WshShell = CreateObject("Wscript.Shell")

Set FSO = CreateObject("Scripting.FileSystemObject")

curDir = FSO.GetParentFolderName(WScript.ScriptFullName) 

Set oFile = FSO.CreateTextFile(curDir & "\그림파일-확장자-지우기.cmd", True)

oFile.WriteLine "@echo off"

oFile.WriteLine "pushd ""%~dp0"""

oFile.WriteLine "for /f ""usebackq delims="" %%a in (`dir /b /s *.png`) do ren ""%%a"" ""%%~na`png"""

oFile.WriteLine "for /f ""usebackq delims="" %%a in (`dir /b /s *.jpg`) do ren ""%%a"" ""%%~na`jpg"""

oFile.WriteLine "for /f ""usebackq delims="" %%a in (`dir /b /s *.jpeg`) do ren ""%%a"" ""%%~na`jpeg"""

oFile.WriteLine "for /f ""usebackq delims="" %%a in (`dir /b /s *.gif`) do ren ""%%a"" ""%%~na`gif"""

oFile.WriteLine "for /f ""usebackq delims="" %%a in (`dir /b /s *.ico`) do ren ""%%a"" ""%%~na`ico"""

oFile.WriteLine "exit"

oFile.Close

'WshShell.Run chr(34) & curDir & "\그림파일-확장자-지우기.cmd" & Chr(34), 0, True

WshShell.Run "cmd /c 그림파일-확장자-지우기.cmd",  0, True

FSO.DeleteFile(curDir & "\그림파일-확장자-지우기.cmd")

스크립트끝