Imports System
Imports System.IO
 
Module SplitFilenameCfg
    Public Function SplitFNtoDirectory(ByVal substring As String, ByVal vPath _
      As String)
        Dim vInput As String = Nothing
        Dim overwrite As Boolean = True
        Dim firstPath As String = "C:\Test\"
        Dim returnFiles As ObjectModel.ReadOnlyCollection(Of String)
 
        Dim splitString() As String = substring.Split(";")
        For i As Integer = 0 To splitString.Length - 2
            Dim splitString1() As String = CopyArray(splitString)
            returnFiles = My.Computer.FileSystem.GetFiles(vPath, _
              FileIO.SearchOption.SearchTopLevelOnly, splitString1(i))
 
            For Each QuellDatei As String In returnFiles
                Dim fiQuellDatei As New FileInfo(QuellDatei)
 
                Dim fiZielDatei As New FileInfo(Path.Combine(firstPath, _
                  fiQuellDatei.Name.Replace("_", "\")))
 
                If Not fiZielDatei.Directory.Exists Then
                    fiZielDatei.Directory.Create()
                End If
 
                fiQuellDatei.CopyTo(fiZielDatei.FullName, overwrite)
 
                fiQuellDatei.Delete()
            Next
        Next i
 
    End Function
 
End Module