PDA

Vollständige Version anzeigen : Unterverzeichniss finden


Lupus
06.08.2001, 00:54
gude morsche .. oder auch gude nacht ...

ich versuche gerade per vba in Access 2000 festzustellen ob es das Verzeichnis d:\data\ schon gibt.

schaue bitte nach ob "D:\Data" vorhanden ist
wenn nein dann bitte
MkDir "D:\Data"
MkDir "D:\Data\_Buero"
wenn ja dann bitte
MkDir "D:\Data\_Buero"
wenn "D:\Data\_Buero" schon vorhanden dann
prima ..
Exit Function

irgendwie fehlen mir die richtigen Suchbegriffe in der Onlinehilfe .. oder auch ein Beispiel

werde die ganze nacht deswegen nicht schlafen können .....

Gruß der vollmondgeschädigter Lupus

Lupus
06.08.2001, 02:14
ei was bin ich doch sooooooooo schlau :D

Function dataFinden()
If Dir("d:\Data", vbDirectory) = "" Then
MkDir "D:\Data"
MkDir "D:\Data\_Buero"
Exit Function
Else
If Dir("d:\Data\_Buero", vbDirectory) = "" Then
MkDir "D:\Data\_Buero"
End If
End If
End Function

das wars .....

gruß glücklicher Lupus