Private Sub DateiSplittenUndSpeichern(ByVal ordner As String, ByVal Datei _
      As String, ByVal Seite As String)
 
        Dim sFileName As String = IO.Path.GetFileName(Datei)
        Dim sFileNameWithoutExtension As String = _
          IO.Path.GetFileNameWithoutExtension(Datei)
        Dim sFileNameExtension As String = IO.Path.GetExtension(Datei)
 
        Dim NeuerDateiname As String = ""
        Dim img As Image = Image.FromFile(Datei)
        Dim selection As Rectangle
 
        If Seite = "links" Then
            selection = New Rectangle(0, 0, CInt(img.Width / 2), CInt( _
              img.Height))
        Else
            selection = New Rectangle(CInt(img.Width / 2) + 1, 0, CInt( _
              img.Width / 2), CInt(img.Height))
        End If
 
        NeuerDateiname = ordner & "\" & sFileNameWithoutExtension & "_" & Seite _
          & sFileNameExtension
 
        Dim bmpnew As Bitmap = Nothing
 
        bmpnew = New Bitmap(selection.Width, selection.Height)
 
        Using g As Graphics = Graphics.FromImage(bmpnew)
            g.DrawImage(img, 0, 0, selection, GraphicsUnit.Pixel)
        End Using
 
        img.Dispose()
 
        bmpnew.Save(NeuerDateiname, System.Drawing.Imaging.ImageFormat.Jpeg)
 
        bmpnew.Dispose()
 
    End Sub

EALA FREYA FRESENA