Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi wenn ordner nicht existiert -> ordner Erstellen (https://www.delphipraxis.net/96488-wenn-ordner-nicht-existiert-ordner-erstellen.html)

Darksniper 25. Jul 2007 10:28


wenn ordner nicht existiert -> ordner Erstellen
 
Wie ist der code für folgendes:

Wenn ein ordner nicht existiert dann soll er erschaffen werden.

Bernhard Geyer 25. Jul 2007 10:28

Re: wenn ordner nicht existiert -> ordner Erstellen
 
ForceDirectories aus der Unit SysUtils

alleinherrscher 25. Jul 2007 10:29

Re: wenn ordner nicht existiert -> ordner Erstellen
 
Delphi-Quellcode:
forcedirectories(Pfad:String);
Beispiel:

Delphi-Quellcode:
var sDir : string;

sDir := 'c:\apps\code\free';;

//if sDir path does not exist, create it!
if NOT DirectoryExists(sDir) then
  ForceDirectories(sDir);
//edit: Beispiel entnommen aus: About.com Delphi Programming

SirThornberry 25. Jul 2007 10:31

Re: wenn ordner nicht existiert -> ordner Erstellen
 
prüfen ob ein Ordner existiert kannst du mit
Delphi-Quellcode:
DirectoryExists(Ordnername);
anlegen kannst du einen Ordner mit
Delphi-Quellcode:
CreateDir(Ordnername);
oder du verwendest die Funktion
Delphi-Quellcode:
ForceDirectories(Odnername);
diese kümmert sich selbst um die Prüfung ob der Ordner existiert. Genauere Informationen zu den Funktionen findest du über die Suche und in der Hilfe von Delphi

DeddyH 25. Jul 2007 10:33

Re: wenn ordner nicht existiert -> ordner Erstellen
 
@Threadersteller: dass SirThornberry Dir sagt, mache bitte pro Frage einen neuen Thread auf, bedeutet nicht, dass dies Pflicht ist, wenn diese Frage bereits beantwortet wurde. :mrgreen:

SirThornberry 25. Jul 2007 10:35

Re: wenn ordner nicht existiert -> ordner Erstellen
 
Zitat:

Zitat von DeddyH
@Threadersteller: dass SirThornberry Dir sagt, mache bitte pro Frage einen neuen Thread auf, bedeutet nicht, dass dies Pflicht ist, wenn diese Frage bereits beantwortet wurde. :mrgreen:

:thumb:

Darksniper 25. Jul 2007 10:35

Re: wenn ordner nicht existiert -> ordner Erstellen
 
Es ist aber übersichtlicher

DeddyH 25. Jul 2007 11:02

Re: wenn ordner nicht existiert -> ordner Erstellen
 
Was ich meinte, ist, dass dieser Thread eigentlich sinnlos ist. Ich hatte Dir die Antwort mit ForceDirectories ja bereits gegeben. Daher macht es wenig Sinn, die Frage nun in einem neuen Thread noch einmal zu stellen. Erst, wenn zu dem genannten Befehl weitere Fragen auftauchen, solltest Du IMHO einen neuen Thread eröffnen. :zwinker:


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz