Verzeichnis erstellen wenn nicht vorhanden

[Christian18]

Hallo,

ich will Dateien Kopieren. Der Pfad, wo die Dateien liegen ist gekannt. Der Pfad wo die Dateien hin sollen, kann aus einer Edit komponnente ausgelesen werden. Aber die frage die ich jetzt habe. was ist wenn der benutzer meines Programm ein verzeichnis wählt, dass noch nicht existiert. Kann man das dann erstellen??? Wenn ja wie??? hier mein code den ich bis jetzt habe.


CopyFile(PChar(ExtractFilePath(Application.ExeName ) + 'Daten\Benutzer.db'), PChar(Edit1.Text + 'Benutzer.db'), True);

[Zottel]

Wenn ich mich recht errinnere gabs dafür den ForceDirectories befehl, mit dem ganze Verzeichnisstrukturen angelegt werden, wenn sie noch nicht vorhanden sind.

[arbu man]

CreateDir(Verzeichnis) oder
ForceDirectories(Verzeichnis) wobei ForceDirectories besser ist das erstellt auch mehere Ordner

[Matze]

Handelt es sich nur um einen Ordner, der erstellt werden muss:

Delphi-Quellcode:

if not DirectoryExists(Pfad) then
  CreateDir(Pfad);

Falls es sich um Pfade handelt, wo mehr als ein Ordner erstellt werden muss:

Delphi-Quellcode:

if not DirectoryExists(Pfad) then
  ForceDirectories(Pfad);

Edit: Mist, zu langsam.

[Vjay]

Zitat von Matze:

Delphi-Quellcode:

if not DirectoryExists(Pfad) then
  ForceDirectories(Pfad);

Das DirectoryExists kannst du weglassen, ForceDirectories prüft selber.

[Matze]

Ah, wusste ich nicht, hab's immer so gemacht. Vielen Dank für den Hinweis!