PDA

Vollständige Version anzeigen : Ordner vorhanden ja oder nein


zukki
24.03.2006, 09:50
Hi
wie kann mann ermitteln ob ein Oderner vorhanden ist oder nicht.
mit
Dim da As String
da = Dir("C:\Teste\Fr\*.ini")
kommt die Datei.
möchte aber die Ordner angezeigt bekommen.

Ist warscheinlich ganz leicht wenns man weis.

zukki

Arne Dieckmann
24.03.2006, 10:16
Die Funktion Dir() kann mit der Option vbDirectory aufgerufen werden. Auf http://vb-tec.de/fdexists.htm#dir gefunden:

Public Function DirExists(Path As String) As Boolean

On Error Resume Next

'Stellt fest, ob ein Verzeichnis existiert.
'http://vb-tec.de/fdexists.htm#dir

DirExists = CBool(GetAttr(Path) And vbDirectory)
On Error GoTo 0

End Function

zukki
24.03.2006, 10:43
Super Arne
Danke

cheyenne
20.09.2006, 17:37
Dankeschön Arne!!!!!!
:o