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

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