Hai,
hier mal ein einfachs Beispiel:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
dateiname,
quelle,
ziel :
String;
begin
ziel := '
c:\bilder\';
Forcedirectories (ziel);
// UNIT FileCtrl
If (OpenPictureDialog1.Execute)
then //Ein Bild wurde ausgewählt
begin
quelle := OpenPictureDialog1.FileName;
dateiname := ExtractFileName (quelle);
//Unit Sysutils
CopyFile(PChar(quelle), PChar(ziel + dateiname), false);
//Vorhandende Dateien werden nicht überschrieben.
end;
end;
Chris war mal wieder schneller
Stephan B.
"Lasst den Gänsen ihre Füßchen"