Public Function MoveFiles(ByVal flist As List(Of String), _
                              ByVal sourcefolder As String, _
                              ByVal destinationfolder As String) As Boolean
 
   Dim source, dest As String, ok As Boolean
   Try
      For i As Integer = 0 To flist.Count - 1
         source = IO.Path.Combine(sourcefolder, flist(i))
         dest = IO.Path.Combine(destinationfolder, flist(i))
 
         If Not IO.File.Exists(source) Then
            If MsgBox(source & " existiert nicht. - Operation abbrechen?", _
              MsgBoxStyle.Question Or MsgBoxStyle.YesNo) = MsgBoxResult.Yes _
              Then Return False
         Else
            ok = True
            If IO.File.Exists(dest) Then
               If MsgBox(dest & " existiert bereits - Überschreiben? ", _
                 MsgBoxStyle.Question Or MsgBoxStyle.YesNo) = MsgBoxResult.No _
                 Then ok = False
               If ok Then IO.File.Delete(dest)
            End If
            If ok Then IO.File.Move(source, dest) 'Hier evt. Dateiname notieren
         End If
      Next i
      Return True
   Catch
      Return False
   End Try
End Function