Private Sub Form_Load()
    Dim sNewFile As String
    Dim sPath As String
    Dim sFile As String
    Dim sBuffer As String
    Dim F As Integer
    Dim NF As Integer
 
    sPath = "\\ka-erp\import\live\"
    sFile = Dir$(sPath & "*.inh")
    'Neuen Name vergeben
    sNewFile = "\\ka-erp\import\live\" & "1" & sFile
 
    NF = FreeFile
    Open sNewFile For Append As #NF
        Do While sFile <> ""
            If sFile <> "." And sFile <> ".." And sFile <> sNewFile Then
                ' Inhalt einlesen
                F = FreeFile
                Open sPath & sFile For Binary As #F
                    sBuffer = Space$(LOF(F))
                    Get #F, , sBuffer
                Close #F
                ' Inhalt an neue Textdatei anhängen
 
                Print #NF, sBuffer
                Kill sPath & sFile
            End If
            sFile = Dir$
        Loop
    Close #NF
    Unload Me
End Sub

-------------------------------------------
Follow the White Rabbit !!!