Question

我试图在vb中一次性将多个图像保存到本地文件夹。现在，我可以一次将一个图像保存到指定的文件夹。在我的代码中，我为上传时使用的图像设置了文件名。我需要的是使用原始文件名和文件类型保存图像。我的程序还应该允许用户一次保存多个图像。

我正在使用VB 2013 Ultimate

这是搜索的代码。

 Try
            a.Filter = "Image files | *.*"
            If a.ShowDialog() = Windows.Forms.DialogResult.OK Then
                PictureBox1.Image = Image.FromFile(a.FileName)
                PictureBox1.BackgroundImageLayout = ImageLayout.Stretch

            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

这是我保存

的代码

If (Not System.IO.Directory.Exists("d:/Site Images/" & Label33.Text & "/")) Then
                System.IO.Directory.CreateDirectory("d:/Site Images/" & Label33.Text & "/")
            End If
            'Dim address = ("d:/Site Images/" & a.FileName & ".jpg")
            PictureBox1.Image.Save("d:/Site Images/" & Label33.Text & "/" & "a.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

感谢您的帮助。

Answer 1

示例代码段

Dim a As New OpenFileDialog
a.Filter = "Jpeg Files|*.jpg"
a.ShowDialog()
For i As Integer = 0 To a.FileNames.Count - 1
    Try
        Dim img As Image = Image.FromFile(a.FileNames(i))
        img.Save("Your Saving Path")
    Catch ex As Exception

    End Try
Next

使用vb.net中的默认文件名将多个图像保存到本地文件夹

1 个答案: