Prüfen ob Verzeichnis da ?

Hallo,
Wie prüfe ich ob das
Verzeichnis C:\Maus vorhanden ist
bzw. wie erstelle ich das wenn es nicht da ist ?

Danke

mit opendir() kannst du prüfen ob ein Verzeichnis vorhanden ist :wink:

Hallo mit dem befehl dir kannst du prüfen ob ein verzeichnis oder eine datei existiert. Mit dem Befehl mkdir kannst du Verzeichnise erstellen.
Wie du das realisierst, da gibt es viele wege.

Bsp.:

if dir („c:\maus“,vbdirectory)="" then mkdir(„c:\maus“)

hierbei wird geprüft ob das Verzeichnis existiert, wenn nicht dann wird es angelegt. Diese Variante würde ich aber nicht nehmen, da Dir ab und wann mal falsche angaben macht.

Eine weitere Variante waere

private Sub MakeDir(directory as string)
on error resume next
mkdir directory
end sub

Sollte das verzeichnis nicht existieren wird es angelegt. Sollte es aber bereits existieren so wird beim versuch dies anzulegen ein Fehler auftreten. Aber dieser wird durch on error resume next ignoriert.
Auf Deutsch, dann wird nichts unternommen :smile:

eine naechste variante waere zum bsp. einfach der Befehl

if dir („c:\Maus*.*“)="" then mkdir („c:\maus“)

Hierbei wird versucht alle Dateien aus dem Verzeichnis auszulesen.
Problem koennte sein wenn keine daten darin vorhanden sind, sprich ein leerer Ordner, dann führt die Variante zu einem falschen ergebnis.

Naechste Variante waere zum bsp. ein File zu erzeugen in dem Verzeichnis, oder ein bestehende datei zu öffnen.
Desweiteren koenntest du dich diversen API Aufrufen bedienen.

Wie du siehst gibt es dazu verdammt viele wege. Welcher für dich der beste ist musst du wissen :smile:

Alle Varianten hier zu posten würde den rahmen sprengen, deswegen belasse ich es erstmal bei dem und hoffe dir geholfen zu haben.

MFG Alex

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hallo,
Wie prüfe ich ob das
Verzeichnis C:\Maus vorhanden ist
bzw. wie erstelle ich das wenn es nicht da ist ?

Hi Sam,
in Excel-VBA so:

Sub tt()
Set fs = CreateObject(„Scripting.FileSystemObject“)
If Not fs.FolderExists(„c:\Maus“) Then MkDir „c:\Maus“
End Sub

gruß
reinhard