专家坐堂-照片缩小问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  照片缩小问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116462)

--  作者：HJG_HB950207
--  发布时间：2018/3/25 9:12:00
--  照片缩小问题

将目录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下。

--  作者：有点甜
--  发布时间：2018/3/25 17:06:00
--
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    For Each f As String In FileSys.GetFiles(dlg.SelectedPath)
        Dim ifo As new FileInfo(f)
        Dim name As String = ifo.name.Replace(ifo.Extension, "")
        Dim file As String = dlg.SelectedPath & "\\" & ifo.Name
        Dim img As image = getImage(file)
        Dim bmp = new bitmap(img, 110, 140)
        bmp.save ("d:\\照片1\\" & ifo.Name)
        bmp.Dispose
    Next
End If