Domino 9 und frühere Versionen > Entwicklung

Existiert Verzeichnis ?

(1/1)

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

Gruss
Martin

eknori:
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

Joker:
Danke,
funzt einwandfrei !

Gruss
Martin

Navigation

[0] Themen-Index