Dim sPath As String
  Dim sFile As String
  Dim sFile2 As String
  Dim i As Long
  Dim splitter As Integer
  Dim avsnr As String
 
  Me.lblhinweis.Visible = True
  Me.Repaint
 
  ' 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, " ")
    If splitter > 0 Or splitter <= 6 Then
    avsnr = Left$(sFile2, splitter - 1)
    If IsFilePath(Me.txtzielordner & "\" & avsnr) = False Then
        MkDir Me.txtzielordner & "\" & avsnr
        FileCopy Me.txtavsordner & "\" & sFile, Me.txtzielordner & "\" & avsnr _
          & "\" & sFile
        Kill Me.txtavsordner & "\" & sFile
    ElseIf IsFilePath(Me.txtzielordner & "\" & avsnr & "\" & sFile) = False Then
        FileCopy Me.txtavsordner & "\" & sFile, Me.txtzielordner & "\" & avsnr _
          & "\" & sFile
        Kill Me.txtavsordner & "\" & sFile
    End If
    End If
    End If
    sFile = Dir
  Loop