마영전 - 스크린샷'이 13만장... 용량이 180 GB...

화질이 5% 정도 떨어진다. ㅇ_ㅇ;; 눈에는 잘 띄지 않지만...

꿀불 뷰어와 알씨 뷰어로도 변환이 되는데. 8%정도 화질이 떨어진다.

윈도우10 MS Paint(페인트 프로그램)'로 저장하니. 용량이 2MB 에서 751KB 로 줄어든 경우가 있다.

1. 윈도우10 MS Paint(페인트 프로그램)로 JPG 저장할 경우. 품질이 손실 없이. 화질이 거의 비슷하다.

거의. 1/2 정도 용량이 줄어든다.

2. PNG 로 저장하는 경우도 용량을 많이 줄이는 경우가 있었다.

3. 이미지변환에서 DPI 갯수를 늘려서. 용량을 줄이는 방법도 있었다.

스크린샷 용량만 180GB 를 넘었습니다. ㅇ_ㅇ;; 용량 줄이는 방법이 어렵네요.

사용해보니. 폴더 이름에 한글 띄어쓰기가 있는 경우는 명령어의 인자값으로 인식하지 못했다. 띄어쓰기가 없는 폴더로 파일을 이동해서. 사용하도록 하자.

상당히 느리고. 오래 걸리며. 실행시. 마우스 클릭도 하기 어려우니. 적은 파일로 먼저. 테스트 해보고 하면 좋다.

여기 게시판에서는 W 원표시가 안되서. / 로 대신 적었습니다.

-----------------------------------------------------

VBScript 스크립트로 jpg 이미지 파일을 MS Paint 페인트로 불러와서. 저장하는 방법

MS Paint 페인트 프로그램으로 저장하면 이미지 용량을 1/2 절반으로 줄일 수 있다.

-----------------------------------------------------

이 예제는 MS Paint 페인트 프로그램에서 불러올 이미지 파일이름을 1.jpg 로 파일이름을 강제로 지정한 경우 입니다.
-----------------------------------------------------

set Wshshell = WScript.CreateObject(WScript.Shell)

Wshshell.Run mspaint 1.jpg
WScript.Sleep 500

WshShell.AppActivate Paint
WScript.Sleep 500

WshShell.sendkeys ^(s)
WScript.Sleep 500

WshShell.sendkeys%{F4}
WScript.Sleep 500

Set WshShell=Nothing
WScript.Quit

-----------------------------------------------------

폴더에 있는 모든 .jpg 이미지 파일을 MS Paint 페인트로 불러와서 저장하는 VBScript 스크립트

사용방법 도스명령어 예제 (스크립트 뒤에 폴더 경로명 입력)a.vbs C:/스크린샷

Sleep 수치를 너무 낮게 100정도로 잡으면. 프로그램이 많이 떠서 컴퓨터가 재부팅 될 위험이 있습니다.

300 10 10 100 10 정도면 무난합니다.

-----------------------------------------------------

On Error Resume Next

set Wshshell = WScript.CreateObject("WScript.Shell")

strFolder = Wscript.Arguments(0)
saveFile = strFolder & "/FileList.txt"
ForWriting = 2

Set objShell = CreateObject ("Shell.Application")
Set objFolder = objShell.Namespace(strFolder)

For Each objItem in objFolder.Items
If objItem.isFolder Then
strFolds = strFolds & "[" & objItem.Name & "]" & vbCrLf
Else

Wshshell.Run "mspaint " & strFolder & "/" & objItem.Name
WScript.Sleep 500

WshShell.AppActivate Paint
WScript.Sleep 500

WshShell.sendkeys ^(s)
WScript.Sleep 500

WshShell.sendkeys%{F4}
WScript.Sleep 500

strFiles = strFiles & objItem.Name & vbCrLf

End If
Next
strLists = strFolds & vbCrLf & strFiles

Set fs = CreateObject (Scripting.FileSystemObject)
Set ts = fs.OpenTextFile (saveFile, ForWriting, True)
ts.Write strLists: ts.Close

Set WshShell=Nothing
WScript.Quit

//

마영전 게시판은. 소스 코드' 내용이 손실' 되었으니.

아래 코드를 그대로 확인해서 적어야 합니다. ㅇ_ㅇ;;

"" 따옴표'가 빠졌습니다.

/ 역슬래쉬 (원표시) 랑...

-----------------------------------------------------

VBScript에서 폴더 목록 얻는 방법은. 여기서 알 수 있다.

http://egloos.zum.com/nazelm/v/938927