Dim file1 As String
    Dim path As String
 
    file1 = Dir("C:	emp*.dat") ' Alle DAT-dateien im Verzeichnis ausgeben
    path = "C:	emp\"
 
    Do While file1 <> "" ' Wiederholen bis cFile=""
        FileCopy path & file1, path & "temp " & file1
        Kill path & file1
        file1 = Dir ' Aufruf der Funktion ohne Parameter!!
    Loop