![]() |
datei in verzeichnis kopieren
ich möchte eine datei in den ordner "pics" kopieren...irgendwie krieg ich es nicht gebacken...
Delphi-Quellcode:
CopyFile(PChar(''+OpenDialog1.FileName+''), PChar(extractfilepath(application.exename)+('pics\'+''+edit1.text+'')), false);
|
Re: datei in verzeichnis kopieren
Hallo,
versuchs mal mit
Delphi-Quellcode:
Ich nehme einmal an das Edit1.Text den neuen Dateinamen enthält.
CopyFile(PChar(OpenDialog1.FileName), PChar(extractfilepath(application.exename)+('\pics\'+edit1.text)), false);
|
Re: datei in verzeichnis kopieren
Moin Horst,
und so
Delphi-Quellcode:
?
CopyFile(PChar('"'+OpenDialog1.FileName+'"'), PChar('"'+extractfilepath(application.exename)+'pics\'+edit1.text+'"'), false);
WICHTIG: Das Zielverzeichnis muss existieren. |
Re: datei in verzeichnis kopieren
hallo und danke, leider geht das auch nicht
|
Re: datei in verzeichnis kopieren
ich heini...
habe vergessen das noch ein ordner dazwischen liegt... sorry es ist zwar noch früh am abend, habs wohl übersehen, ich danke euch beiden :hello: |
Re: datei in verzeichnis kopieren
existiert denn das Zielverzeichnis ?
allenfalls hilft ein vorgängiges
Delphi-Quellcode:
oder für mehr Info zum Fehler:
ForceDirectories(extractfilepath(application.exename) + 'pics');
Delphi-Quellcode:
If not CopyFile(....) Then RaiseLastOSError();
|
Re: datei in verzeichnis kopieren
superschnelle hilfe...merci ;)
|
Re: datei in verzeichnis kopieren
Hallo,
in einem meiner Programme verwende ich für das kopieren folgenden (funktionierenden) Code:
Delphi-Quellcode:
Die Items enthalten dabei jeweils den kompletten Pfad+Dateinamen.
CopyFile(PChar(AlteDateinamen.Items[i]),PChar(NeueDateinamen.Items[i]),True)
|
Re: datei in verzeichnis kopieren
Moin Zusammen,
auf NT basierten Systemen (NT 4.0/W2K/XP) sollte man besser SHFileOperation dafür nehmen, da ansonsten die Sicherheitseinstellungen für die Datei(en) nicht mitkopiert werden. Für SHFileOperation gibt's hier auch einen Eintrag in der Code Library. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz