Domino 9 und frühere Versionen > ND6: Entwicklung

Überprüfen ob Ordner vorhanden

(1/3) > >>

TomLudwig:
Hallo,
ich möchte überprüfen ob ein Ordner auf der Festplatte vorhanden ist oder nicht. Das ich ihn ggf. erstellen kann.

Dies geht mit $Dir(Path, Value)

Wenn der Path nur ein Verzeichnis tief ist z.B. "C:\Test" ist es kein Problem,
aber bei z.B. "C:\Test\Test2" bekomme ich die Fehlermeldung "Path not found".

Was mache ich falsch?

eknori (retired):
verschachtelte Verzeichnispfade kannst du mir der API von Windows anlegen

Declare Function MakePath Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" (Byval lpPath As String) As Long
(in die declaration kopieren )

Sub Click(Source As Button)
   Msgbox MakePath("d:\Test\test1\")
End Sub

TomLudwig:
Ja gut, ich möchte aber erst überprüfen ob es das Verzeichnis nicht schon gibt. Und da bekomm ich bei $Dir die Fehlermeldung...

eknori (retired):
Auch kein Akt:

Function checkDir( path As String ) As Integer
   
   On Error Resume Next
   
   CheckDir = False
   
   Chdrive Left( path, 1 )
   Chdir path
   
   If Curdir = path Then          
      CheckDir = True
   End If
   
End Function

TomLudwig:
Ich bekomm wieder die Fehlermeldung "Path not found" wenn ich mehr ein oder mehr unterverzeichnisse angebe...

Navigation

[0] Themen-Index

[#] Nächste Seite