Dateien kopieren mit Variablen

[blauglaser]

Hallo zusammen,
ich habe in einem Verzeichniss Dateien mit dem gleichen Namen aber unterschiedlichen Endungen, diese möchte ich auf eine Diskette kopieren.
Mein Ansatz war "CopyFile(PChar('C:\eula.txt'),PChar('A:\eula.txt' ),false);", wie kann man aber den Dateinamen in ein Editfeld eingeben und dann an "CopyFile" übergeben.

Im voraus besten Dank!

Gruß
Ralf

[ConnorMcLeod]

Wie man den Dateinamen aus einem TEdit übernimmt, sollte klar sein:

Delphi-Quellcode:

CopyFile(PChar('c:\'+Edit1.Text),PChar('A:\'+Edit1.Text ),false);

vllt. mit zusätzlichen Feinheiten für die Pfade.

Solltest Du Wildcards meinen ('eula.*'), dann geh alle Files mit FindFirst/FindNext durch.