Ordnerexistenz prüfen

dkx · Beiträge: 36

Hallo,
wie kann man die Existenz eines bestimmten Ordners überprüfen?
Ich dachte es müsste etwa so wie mit Dateien gehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

 if FindFirst (pfad+ordnername, faDirectory, sr) = 0 then
   begin
     mkdir(pfad + ordnername);
     // speichere eine Datei in "ordnername"
   end
   else
     // speichere eine Datei in "ordnername"

Das hat bei mir nicht funktioniert !!!
Also im Prinzip möchte ich nur eine Datei in einen Ordner speichern der möglicherweise noch nicht existiert -> falls er nicht existiert soll er angelegt werden und dann soll die datei erst gespeichert werden.

Vielleicht kann mir von euch jemand einen Hinweis geben.
Anton

toms · Beiträge: 1099 Erhaltene Danke: 2

markieren

Delphi-Quelltext

1:	if DirectoryExists(pfad+ordnername) then

matze · Verfasst: Sa 24.01.04 14:18

zitat aus der delphi hilfe:

Zitat:

DirectoryExists ermittelt, ob ein bestimmtes Verzeichnis existiert.

Unit

FileCtrl

Kategorie

Dateiverwaltung

function DirectoryExists(Name: string): Boolean;

Beschreibung

Mit DirectoryExists können Sie feststellen, ob das im Parameter Name übergebene Verzeichnis existiert. In diesem Fall gibt DirectoryExists True zurück, andernfalls False.

Wenn ein vollständiger Pfad angegeben wird, sucht DirectoryExists das Verzeichnis mit dem angegebenen Pfad. Andernfalls wird der Parameter Name als relative Pfadangabe des aktuellen Verzeichnisses interpretiert.

_________________
In the beginning was the word.
And the word was content-type: text/plain.

dkx · Beiträge: 36

Ok, danke für den Hinweis!
In der Hilfe hatte ich zwar geschaut, aber von "direcotryexists" wusste ich noch nichts -> und habe es daher auch nicht gefunden...

toms · Beiträge: 1099 Erhaltene Danke: 2

Zitat:

In der Hilfe hatte ich zwar geschaut, aber von "direcotryexists" wusste ich noch nichts -> und habe es daher auch nicht gefunden...

Suche das nächste Mal doch unter Google.

So:

verzeichnis existiert delphi

Der erste Link ist ein Treffer!

Ehemaliges Mitglied Erhaltene Danke: 1

Für Konsolen- und nonVCL-Programme kann man auf die besagte Unit auch verzichten und direkt mit den API-Funktionen die passende Routine bauen. Vorteil: Trotz des Namens hat die Funktion auch kein Problem mit Ordnern:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function fileexists(const szFilename: string): boolean;
var
  Handle   : THandle;
  FindData : TWin32FindData;
begin
  Handle := FindFirstFile(pchar(szFilename),FindData);
  Result := (Handle <> INVALID_HANDLE_VALUE);

  if(Result) then Windows.FindClose(Handle);
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme