使用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