Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Joker am 17.09.03 - 16:55:21

Titel: Existiert Verzeichnis ?
Beitrag von: Joker am 17.09.03 - 16:55:21

Hi,
habe ich per Script eine Möglichkeit herauszufinden, ob ein bestimmtes Verzeichnis auf der Platte vorhanden ist ?

Gruss
Martin

Titel: Re:Existiert Verzeichnis ?
Beitrag von: eknori (retired) am 17.09.03 - 17:10:29

guckst du:

Function ExistFileDirDrive(FilePathName As String) As Integer
   Dim nTest As String
   
   nTest = Lcase$(FilePathName)
   If Len(nTest) = 1 Then
      Select Case Left$(nTest, 1)
      Case "a" To "z"
         nTest = FilePathName & ":\"
      End Select
   Elseif Len(nTest) = 2 Then
      Select Case Left$(nTest, 2)
      Case "a:" To "z:"
         nTest = FilePathName & "\"
      End Select
   End If
   On Error Resume Next
   ExistFileDirDrive = Cint(Getattr(nTest) Or vbNormal _
   Or vbHidden Or vbSystem Or vbArchive Or vbDirectory)
End Function

Sub Click(Source As Button)
   Dim dummy As Integer
   dummy = ExistFileDirDrive("c:\my downloads")
   If dummy > 0 Then   
      Msgbox "Yoo, ist da"
   Else
      Msgbox "Nö, nicht gefunden"
   End If
End Sub

Titel: Re:Existiert Verzeichnis ?
Beitrag von: Joker am 18.09.03 - 15:09:24

Danke,
funzt einwandfrei !

Gruss
Martin