Domino 9 und frühere Versionen > ND6: Entwicklung

Verzeichnis Existenz verifizieren?

<< < (2/2)

Glombi:

--- Zitat von: TMC am 01.09.04 - 19:37:47 ---Geht das nicht noch einfacher?

If dir$("c:\dokumente\test", 16) = "" Then
   Msgbox "Das Verzeichnis -test- gibt es nicht !"
Else
   Msgbox "Das Verzeichnis -test- ist vorhanden."
End If


--- Ende Zitat ---

Der fliegt auf die Nase, wenn das Laufwerk nicht da ist. Auch bei 8 anstelle von 16: Es kommt die Meldung "Path not found" (oder so). Also auch hier wäre ein Error Handling nötig.

Andreas

TMC:
Errorhandling: Klar, logisch, immer  :D

Wollte nur auf den "Dir" - Befehl aufmerksam machen  ;)

Glombi:
Ok, dann muss aber der Code anders aufgebaut sein. Er geht nicht in den If Zweig, sondern knallt gleich vor die Wand.

Ansonsten: Dir$ ist mir auch als erstes eingefallen, da ich das immer für sowas verwende.

Andreas

HarryB:

--- Zitat von: eknori am 01.09.04 - 13:15:15 ---Function checkDir( path As String ) As String
   
   On Error Resume Next
   
   CheckDir = False
   
   Chdrive Left( path, 1 )
   Chdir path
   
   If Curdir = path Then          
      CheckDir = True
   End If
   
End Function

Sub Click(Source As Button)
   Msgbox checkDir("c:\Winnt\system32\drivörs")
End Sub

Gibt TRUE zurück, wenn Dir existiert andernfalls FALSE

--- Ende Zitat ---

Wäre es sinnvoll, am Ende der Funktion das Directory wieder auf den ursprünglichen Pfad zu setzen?

Viele Grüße
Harry

Navigation

[0] Themen-Index

[*] Vorherige Sete