VBA 获取图片的尺寸（如宽度或高度）

昨天刚看群里有用bat做的，不过看不懂。。。一会把代码粘上来

<# :
cls
@璐村惂鐢ㄦ埛_000076K馃惥 off
rem 提取图片的文件大小、宽高尺寸和分辨率
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@璐村惂鐢ㄦ埛_053Q95e馃惥 %z%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default))) -Args '%~dp0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$path = $args[0];
$outfile = '.\info.csv';
$ext = @('.jpg', '.jpeg', '.bmp', '.png', '.gif', '.TIF');
function formatsize($n) {
$m = '';
if ($n -ge 1073741824) {
$m = ($n / 1073741824).toString('0.00') + ' GB';
} else {
if ($n -ge 1048576) {
$m = ($n / 1048576).toString('0.00') + ' MB';
} else {
if ($n -ge 1024) {
$m = ($n / 1024).toString('0.00') + ' KB';
} else {
$m = $n.toString() + ' B';
};
};
};
return $m;
};
$outfile = $outfile -replace '^\.', $path.trimend('\');
[System.Collections.ArrayList]$s = @();
[void]$s.Add('"路径","大小","尺寸","分辨率"')
Add-Type -AssemblyName 'System.Drawing';
$files = @(dir -liter $path -Recurse | ? { ($ext -contains $_.Extension) -and ($_ -is [System.IO.FileInfo]) });
for ($i = 0; $i -lt $files.length; $i++) {
$img = [System.Drawing.Image]::FromFile($files[$i].FullName);
$line = '"' + $files[$i].FullName + '",' + (formatsize $files[$i].length) + ',';
$line += $img.Width.toString() + 'x' + $img.Height.toString() + ',' + $img.HorizontalResolution.toString();
[void]$s.add($line);
Write-Host $line;
$img.Dispose();
};
[IO.File]::WriteAllLines($outfile, $s, [Text.Encoding]::Default);
我没测试，应该能用。看不懂……