[软件工具]ARW文件批量转图片jpg工具使用教程

你可以使用以下代码将ARW格式的图片批量换成JPG格式: ```vb.net Imports System.IO Imports System.Drawing.Imaging Public Class Form1 Private Sub btnConvert_Click(sender As Object, e As EventArgs) Handles btnConvert.Click '获取源文件夹路径和目标文件夹路径 Dim sourceFolder As String = txtSourceFolder.Text Dim targetFolder As String = txtTargetFolder.Text '检查源文件夹是否存在 If Not Directory.Exists(sourceFolder) Then MessageBox.Show("源文件夹不存在!") Return End If '检查目标文件夹是否存在,如果不存在则创建 If Not Directory.Exists(targetFolder) Then Directory.CreateDirectory(targetFolder) End If '遍历源文件夹中的所有ARW文件 For Each arwFile As String In Directory.GetFiles(sourceFolder, "*.arw") '获取ARW文件名(不含扩展名) Dim arwFileName As String = Path.GetFileNameWithoutExtension(arwFile) '构造目标文件名(JPG格式) Dim targetFileName As String = Path.Combine(targetFolder, arwFileName + ".jpg") '使用Image类加载ARW文件 Using arwImage As Image = Image.FromFile(arwFile) '设置保存参数(JPG格式,压缩质量为90) Dim encoderParameters As EncoderParameters = New EncoderParameters(1) encoderParameters.Param(0) = New EncoderParameter(Encoder.Quality, 90) '获取JPG编码器 Dim jpgEncoder As ImageCodecInfo = GetEncoder(ImageFormat.Jpeg) '保存为JPG文件 arwImage.Save(targetFileName, jpgEncoder, encoderParameters) End Using Next MessageBox.Show("换完成!") End Sub Private Function GetEncoder(format As ImageFormat) As ImageCodecInfo '获取所有编码器 Dim codecs As ImageCodecInfo() = ImageCodecInfo.GetImageEncoders() '查找指定格式的编码器 For Each codec As ImageCodecInfo In codecs If codec.FormatID = format.Guid Then Return codec End If Next Return Nothing End Function End Class ``` 这个代码会遍历指定源文件夹中的所有ARW文件,将其换成JPG格式并保存到指定目标文件夹中。你需要在窗体中添加两个TextBox控件和一个Button控件,并将上面的代码复制到Button的Click事件中即可使用
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

FL1623863129

你的打赏是我写文章最大的动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值