Hallo,
hab ein kleines Problem bzgl. Ordnerverwaltung.
Ich möchte aus meiner Access Datenbank prüfen, ob der Ordner zu meiner Auftragsnummer im Laufwerk vorhanden ist.
Sollte dieser nicht angelegt sein, soll eine MsgBox erscheinen "Ordner nicht vorhanden"
Ist der Ordner jedoch angelegt, soll gleich der passende Ordner zur jeweilig ausgewählten Auftragsnummer geöffnet werden.
Weiß hierzu jemand vielleicht eine Lösung? :'(
Vielen Dank!
Mit der Funktion Dir lässt sich das einfach feststellen:
dir("Pfad",vbDirectory) liefert den Namen des Ordners falls er existiert.
In der VBA Hilfe gibt es umfangreiche Beispiele.
Statt der Msg Box könntest du den Ordner natürlich auch gleich anlegen.
LG
Edit:
das öffnen eines Ordner mach ich so:
call Shell("""Explorer.exe"" """ & sOrdner & """", 1)