Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ' Verzeichnis in dem die Millionen  Dateien liegen
        My.Computer.FileSystem.CurrentDirectory = "D:\Dateien"
 
        ' Alle Dateien einlesen
        Dim FileList As System.Collections.ObjectModel.ReadOnlyCollection(Of _
          String)
 
        FileList = My.Computer.FileSystem.GetFiles( _
                   My.Computer.FileSystem.CurrentDirectory, _
                   FileIO.SearchOption.SearchTopLevelOnly, "*.*")
 
        For Each FoundFile As String In FileList
            If Char.IsNumber(System.IO.Path.GetFileNameWithoutExtension( _
              FoundFile)) Then
                Dim Pfad2 As String = Math.Truncate( _
                System.IO.Path.GetFileNameWithoutExtension(FoundFile) / 1000) + _
                1
                Dim Pfad1 As String = Math.Truncate(Pfad2 / 1000) + 1
 
                If Pfad2.Length > 3 Then
                    Dim Nummer As Long = CType(Pfad2.Substring(Pfad2.Length - _
                      3), Long) - 1
                    Pfad2 = CType(Nummer, String)
                End If
 
                If Not My.Computer.FileSystem.FileExists("C:\" & Pfad1) Then
                    My.Computer.FileSystem.CreateDirectory("C:\" & Pfad1)
                End If
 
                If Not My.Computer.FileSystem.FileExists("C:\" & Pfad1 & "\" & _
                  Pfad2) Then
                    My.Computer.FileSystem.CreateDirectory("C:\" & Pfad1 & "\" _
                    & Pfad2)
                End If
 
                My.Computer.FileSystem.CopyFile(FoundFile, "C:\" & Pfad1 & "\" _
                  & Pfad2 & "\" & System.IO.Path.GetFileName(FoundFile), True)
 
            End If
        Next
 
    End Sub
 
End Class