Hallo,
Wie prüfe ich ob das
Verzeichnis C:\Maus vorhanden ist
bzw. wie erstelle ich das wenn es nicht da ist ?
Danke
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
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
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
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