将目录D:\照片FOX 下的照片缩小到d:\照片1 目录下,代码如下:
For Each f As String In FileSys.GetFiles("d:\照片FOX")
Dim ifo As new FileInfo(f)
Dim name As String = ifo.name.Replace(ifo.Extension, "")
Dim file As String ="D:\照片FOX\" &ifo.Name
Dim img As image = getImage(file)
Dim bmp = new bitmap(img, 110, 140)
bmp.save ("d:\照片1\" & ifo.Name)
bmp.Dispose
Next
请教:用选择目录的形式将所选目录下的照片缩小到d:\照片1下,以上代码如何修改。
即点击按钮后,界面为选择目录的界面,然后缩小该目录下照片,自动保存到d:\照片1下。