Dim sPath As String
  Dim sFile As String
  Dim sFile2 As String
  Dim i As Long
  Dim splitter As Integer
  Dim avsnr As String  ' Verzeichnis
  sPath = Form_frmstart.txtavsordner & "\"
 
  ' alle Dateien ermitteln und in ein Array speichern
  sFile = Dir(sPath & "*.*")
  Do While Len(sFile) > 0
    sFile2 = LTrim$(sFile)
    If sFile2 <> "." And sFile2 <> ".." Then
    splitter = InStr(sFile2, " ")
    avsnr = Left$(sFile2, splitter - 1)
    If Dir(Me.txtzielordner & "\" & avsnr) = "" Then
        MkDir Me.txtzielordner & "\" & avsnr
        FileCopy Me.txtavsordner & "\" & sFile, Me.txtzielordner & "\" & avsnr _
          & "\" & sFile
        Kill Me.txtavsordner & "\" & sFile
    ElseIf Dir(Me.txtzielordner & "\" & avsnr & "\" & sFile) = "" Then
        FileCopy Me.txtavsordner & "\" & sFile, Me.txtzielordner & "\" & avsnr _
          & "\" & sFile
        Kill Me.txtavsordner & "\" & sFile
    End If
    End If
    sFile = Dir
  Loop