Dim newfolder As String = "F:\demo\out" 'Ausgabeordner für alle Bilder
 
'Bilder gemäß Dateinamen laden und als PNG im Zielordner speichern
For i As Integer = 0 To ListView1.Items.Count - 1
   If Not SavePictureAs(ListView1.Items(i).Text, _
         Imaging.ImageFormat.Png, newfolder) Then
         MsgBox("Fehler beim Speichern von " & ListView1.Items(i).Text)
   End If
Next i
 
 
'===================================================================
'Benötigte Funktion (aus VB@Archiv entwendet)
'===================================================================
 
Public Function SavePictureAs(ByVal sSourceFile As String, _
    ByVal nFormat As System.Drawing.Imaging.ImageFormat, _
    ByVal sDestFolder As String) As Boolean
 
    Dim sDestFile As String = sDestFolder & "\" & _
    IO.Path.GetFileNameWithoutExtension(sSourceFile) & _
     "." & nFormat.ToString.ToLower
 
    Try
       Dim oBitmap As New Bitmap(sSourceFile)
       oBitmap.Save(sDestFile, nFormat)
       Return True
    Catch
       Return False
    End Try
End Function