Ordner anlegen

25/08/2008 - 08:28 von Dirk Spieß | Report spam
Moin zusammen,

stehe mal wieder vor einem Problem und hoffe auf Eure Hilfe.

Ich möchte automatisch einen Ordner anlegen. Funktioniert eingentlich vom
Feinsten.

If Dir(Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)))
& "Register\Test", vbDirectory) = "" Then
MkDir(Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)))
& "Register\Test"
End If

Nun möchte ich nicht den Ordner "Test" überprüfen bzw. anlegen, sondern
einen Ordner, der den Namen aus einer Datenbank bzw aus einem Datensatz
tràgt. Ich hab eine Tabelle bzw. Formular mit dem Feld [Name]. Die Schleife
soll jetzt prüfen, ob es einen Ordner mit [Name] bibt, wenn nicht, soll er
den Ordner [Name] anlegen.

Alles verstanden?

Vielen Dank für dei Unterstützung.
 

Lesen sie die antworten

#1 Jens Schilling
25/08/2008 - 08:58 | Warnen spam
Hallo, Dirk

Dirk Spieß wrote:
Ich möchte automatisch einen Ordner anlegen. Funktioniert eingentlich
vom Feinsten.

If Dir(Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) & "Register\Test", vbDirectory) = "" Then
MkDir(Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name))) & "Register\Test"
End If

Nun möchte ich nicht den Ordner "Test" überprüfen bzw. anlegen,
sondern einen Ordner, der den Namen aus einer Datenbank bzw aus einem
Datensatz tràgt. Ich hab eine Tabelle bzw. Formular mit dem Feld
[Name]. Die Schleife soll jetzt prüfen, ob es einen Ordner mit [Name]
bibt, wenn nicht, soll er den Ordner [Name] anlegen.



Schau dir mal die Beispiele bei Thomas Kessler an:

http://www.tksoft-online.de/Dateiop...egory.html

Die DB "Verschachtelte Verzeichnisse erstellen" sollte in etwas sein, was Du
suchst ...

Gruss
Jens
______________________________
FAQ: http://www.donkarl.com

Ähnliche fragen