윈 도 우 배치파일 질문입니다.

이미지파일에서 정보를 추출해서 택스트로 가져올 수 있는 외부 바이너리가 필수입니다

그걸로 값을 가져와서 택스트 잘라서 값만 변수에 입력해서 비교시켜야 할듯합니다

배치파일은 모르겠고, VBScript는 가능할겁니다.

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

Dim oImage, mWidth, mHeight
Dim mypath
mypath = InputBox("이미지경로?")

Set oImage = CreateObject("WIA.ImageFile")
oImage.LoadFile mypath
mWidth = oImage.WIDTH: mHeight = oImage.HEIGHT

MsgBox mWidth & vbnewline & mHeight

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

가로로 긴 이미지라면,

mWidth가 mHeight보다 큰 이미지만 복사하거나

한꺼번에 복사해두고 현재폴더를 쭉 훑어서 mHeight가 큰 이미지를 제거하면 되겠죠.

참고로 XP에서는 위 구문이 안될겁니다.

다른 구문으로 되긴 되는데 지금 따로 사용되는 구문보니... 테스트버전 만들기가 헷갈리는군요. ㅡ.ㅡ

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

    Const DIMENSIONS = 26 'XP 기준
    Const WIDTH = 27
    Const HEIGHT = 28
 

sFolder = "이미지파일소유한폴더"
sFile = "이미지파일명"

Set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.Namespace(fso.GetAbsolutePathName(sFolder))
Set oFile = oFolder.ParseName(sFile)

On Error Resume Next
mWidth = 0: mHeight = 0
mWidth = CLng(Replace(oFolder.GetDetailsOf(oFile, WIDTH), "픽셀", ""))
mHeight = CLng(Replace(oFolder.GetDetailsOf(oFile, HEIGHT), "픽셀", ""))

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

지금 XP 돌릴만한게 없어서 테스트는 안해봤지만,

대충 저런식으로 하면 XP도 읽어올 수는 있을겁니다.