數(shù)碼相機(jī)與手機(jī)拍照所得的高像素照片往往文件較大，給存儲(chǔ)和傳輸帶來(lái)不便。雖然市面上有各種圖片壓縮軟件，但存在著失真的問(wèn)題。在這種情況下，Windows自帶的畫(huà)圖工具M(jìn)S Paint成為一種選擇。重新保存

數(shù)碼相機(jī)與手機(jī)拍照所得的高像素照片往往文件較大，給存儲(chǔ)和傳輸帶來(lái)不便。雖然市面上有各種圖片壓縮軟件，但存在著失真的問(wèn)題。在這種情況下，Windows自帶的畫(huà)圖工具M(jìn)S Paint成為一種選擇。重新保存圖片后，幾乎看不出明顯的失真。但是，手動(dòng)操作費(fèi)時(shí)費(fèi)力，是否能通過(guò)編程來(lái)解決呢？近期偶遇到一些VBScript應(yīng)用，稍加修改后效果不錯(cuò)。

VBScript實(shí)現(xiàn)自動(dòng)重復(fù)打開(kāi)保存操作

要使用VBScript進(jìn)行批量無(wú)損壓縮，首先需要?jiǎng)?chuàng)建一個(gè).vbs文件，命名為“mspaint批量壓縮.vbs”。該腳本的主要功能是自動(dòng)打開(kāi)指定目錄下的jpg圖片并進(jìn)行一次保存操作。在運(yùn)行過(guò)程中，務(wù)必避免點(diǎn)擊鼠標(biāo)，以免程序中斷操作。

```vbscript

'功能：將當(dāng)前圖片目錄下的jpg圖片自動(dòng)保存一次

Set ws CreateObject("")

"mspaint ", 1

Dim fso, pic_file, directory, tmpname, current_url, new_url

Set fso CreateObject("")

'設(shè)置文件目錄位置

current_url InputBox("輸入文件所在的目錄（不支持中文目錄），如D:folder（最后不要帶）")

Set directory (current_url)

'打開(kāi)畫(huà)圖軟件

Set ws ("")

"C:WINDOWSsystem32mspaint.exe", 1

1000

For Each pic_file In

tmpname LCase(pic_)

"paint"

200

'打開(kāi)文件

"^o "

200

current_url tmpname

200

"~"

200

'保存

"^s "

200

Next

"%fx"

```

運(yùn)行注意事項(xiàng)

在運(yùn)行“mspaint批量壓縮.vbs”文件時(shí)，應(yīng)確保該文件不放在磁盤(pán)根目錄，而是放在下一級(jí)目錄或桌面，因?yàn)?60安全衛(wèi)士可能會(huì)誤報(bào)。另外，在填入要壓縮的文件路徑時(shí)，需要注意不支持中文目錄或中文jpg文件，應(yīng)該改為英文或數(shù)字的目錄與文件。在程序運(yùn)行過(guò)程中，切勿點(diǎn)擊鼠標(biāo)，以免中斷操作。完成上述步驟后，你就可以輕松實(shí)現(xiàn)批量無(wú)損壓縮圖片的操作了！

通過(guò)以上VBScript腳本，我們可以利用Windows畫(huà)圖工具M(jìn)S Paint進(jìn)行批量圖片處理，既節(jié)省時(shí)間又能保證圖片質(zhì)量，極大地提高了工作效率。希望這個(gè)小技巧對(duì)你有所幫助！