[文件操作] [已解决]批处理或VBS如何识别图片文件的格式？

@echo off
if "%~1"=="" exit /b
findstr /p . "%~1" >nul && goto n
set /p v=<"%~1"
(if "%v%"=="塒NG" (echo png) else (
  if "%v:~,5%"=="GIF89" (echo gif) else (
    if "%v:~,2%"=="BM" (echo bmp) else (
      findstr /n "xif JFIF" "%~1"|findstr "^1:.*JFIF ^1:.*xif">nul 2>nul&&echo jpg
)))) && pause && exit /b

:n
echo 非 png/gif/bmp/jpg
pause
复制代码

@echo off
jhead.exe b.jpg >nul 2>nul
if errorlevel 1 (
  echo Not JPEG file.
) else (
  echo JPEG file.
)
复制代码

PicData = GetPicType("f.bmp")
If PicData(0) = 0 then
WScript.Echo PicData(1) & " : " & PicData(2) & " " & PicData(3) & "x" & PicData(4)
Else
WScript.Echo PicData(1) & "不是图片"
End If



Function GetPicType(PicPath)
Pix = 26.4583
Type0 = "None"				'未知格式
Type1 = "Bitmap"			'位图文件 jpg gif bmp
Type2 = "MetaFile"			'图元文件
Type3 = "IconFile"			'图标文件
Type4 = "Win32-enhanced metafile"	'Win32增强型图元文件
On Error Resume Next
Dim Tmp(4),Pic
Set Pic = LoadPicture(PicPath)
Tmp(0) = Err.Number
Tmp(1) = PicPath
Tmp(2) = Eval("Type" & Pic.Type)
Tmp(3) = Int(Pic.Width/Pix)
Tmp(4) = Int(Pic.Height/Pix)
GetPicType = Tmp
End Function
复制代码