Dateien kopieren mit Copyfile und Dateiname

[HemSA]

Hallole,
ich will eine Datei in ein anderes Verzeichnis kopieren.

Hier ist der Code

Code: Alles auswählen

 Directory$ = "d:\Testdatei-1"  
  
  If ExamineDirectory(0, Directory$, "*.*")  
    
    While NextDirectoryEntry(0)
      
       tag=DirectoryEntryDate(0, #PB_Date_Modified)
       datums.s= FormatDate("%dd/%mm/%yyyy", tag) 
      
       dateiName$ = DirectoryEntryName(0)
      
       If datums.s="25/05/2012"
      
        Debug DateiName$ ;die Dateien mit dem Datum 25.05.2012 werden im Debuger korrekt angezeigt
        Debug datums.s
       
     ; Debug CopyFile("D:\Testdatei-1\82902060014807716010299.dat", "D:\Testdatei-2\82902060014807716010299.dat") ;das CopyFile funktioniert. Im Debuger wird auch "1" angegeben
       Debug CopyFile("D:\Testdatei-1\DateiName$", "D:\Testdatei-2\DateiName$") ; das funktioniert nicht. Im Debuger ist auch "0" angegeben
     
      EndIf

    Wend
    FinishDirectory(0)
  EndIf

Ich möchte ja schliesslich alle Dateien vom 25.05.2012 in die Testdatei-2 kopieren wie sie auch im Debuger angezeigt werden.
Wie macht man denn das, das es auch mit der 2.Version von CopyFile funktioniert?

Später will ich auch die Datei mit einer anderen Reihenfolge der Zahlen abspeichern und noch andere Abfragen machen, aber da sollte es erst mal so klappen.

Vielen Dank schon mal.
Michael

PS: Verwende PureBasic - 4.61 x64

[RSBasic]

Code: Alles auswählen

"D:\Testdatei-1\" + DateiName$

[HemSA]

Danke RSBasic,
das ging ja flott.