PDA

Vollständige Version anzeigen : Pfad kontrollieren


Albi
10.06.2001, 21:28
Hier ist wieder einmal Albi

Wie kann ich kontrollieren, ob ein Pfad vorhanden ist, der jedoch leer ist ?

Wieder einmal danke für Eure Hilfe

Gruss aus der verregneten Schweiz Albi

MarioR
10.06.2001, 22:29
Hallo Albi,

Du hast ja schon mal die Frage gestellt, wie man das Vorhandensein einer Datei kontrolliert.

Ich bin mir zwar nicht sicher, ob das immer funktioniert (Netzlaufwerke), aber in jedem Pfad (leer oder nicht leer) gibt es die Datei NUL. Probier mal, ob Du auf das Vorhandensein von NUL testen kannst.

Stefan Kulpa
11.06.2001, 06:08
<font face="Verdana" size="2">Hallo Albi,

die Existenz eines Ordners (mit oder ohne Dateien) kannst auf verschiedene Art und Weise prüfen.

Variante 1: mit VB(A)-Mitteln</font>
<FONT SIZE=1 FACE=Courier New> <FONT COLOR=#000080>On Error Resume Next</FONT> <FONT COLOR=#008000>'!!!</FONT>
<FONT COLOR=#000080>Dim</FONT> bFolderExists <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Boolean</FONT>
bFolderExists = (GetAttr("C:\Windows") <FONT COLOR=#000080>And</FONT> vbDirectory) = vbDirectory
bFolderExists = bFolderExists <FONT COLOR=#000080>And</FONT> (Err.Number = 0)
<FONT COLOR=#000080>Debug.Print</FONT> bFolderExists</FONT>

<font face="Verdana" size="2">Variante 2: mit dem Windows-Scripting-Host</font>
<FONT SIZE=1 FACE=Courier New> <FONT COLOR=#000080>Dim</FONT> objFso <FONT COLOR=#000080>As</FONT> Object
<FONT COLOR=#000080>Dim</FONT> bFolderExists <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Boolean</FONT>
<FONT COLOR=#000080>Set</FONT> objFso = CreateObject("Scripting.FileSystemObject")
bFolderExists = (objFso.FolderExists("C:\WINDOWS"))
<FONT COLOR=#000080>Debug.Print</FONT> bFolderExists</FONT>

<font face="Verdana" size="2">Variante 3: mit dem Win32-API
Ein Beispiel findest Du <a href="http://www.kulpa-online.de/tipps/visualbasic/115.htm" target="_blank">hier</a>.

Gruß,</font>