Public Function SplitFNtoDirectory(ByVal substring As String, ByVal vPath _
      As String) As Boolean
        Try
            Dim firstPath As String = "C:\Test"
 
            ' Beim Umgang mit Dateien und Ordner, nehme ich lieber 
            ' DirectoryInfo und FileInfo anstelle von allgemeinen Collections 
            ' oder Listen
            Dim diQuellDir As New DirectoryInfo(vPath)
 
            For Each SuchFilter As String In substring.Split(";")
                For Each fiQuellDatei As FileInfo In diQuellDir.GetFiles( _
                    SuchFilter, SearchOption.TopDirectoryOnly)
 
                    Dim fiZielDatei As New FileInfo( _
                        Path.Combine( firstPath, fiQuellDatei.Name.Replace("_", _
                        "\")))
                    If Not fiZielDatei.Directory.Exists Then _
                        fiZielDatei.Directory.Create()
 
                    fiQuellDatei.CopyTo(fiZielDatei.FullName, True)
                    fiQuellDatei.Delete()
 
                    ' Alternativ zu CopyTo & Delete
                    'fiQuellDatei.MoveTo(fiZielDatei.FullName)
                Next
            Next
 
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function