Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Don Pasquale am 12.12.02 - 15:00:16

Titel: MkDir scheint ohne Wirkung zu sein
Beitrag von: Don Pasquale am 12.12.02 - 15:00:16

Hallo Leute,

um eine txt datei zu generieren, muss
ich mir sicher sein, dass ein bestimmtes
verzeichniss exitiert.
deswegen lege ich es am besten vorher an,
mit MkDir

das scheint aber keine wirkung zu haben

Muss man beim MkDir was spezielles beachten ?

Ciao
Don Pasquale

Titel: Re:MkDir scheint ohne Wirkung zu sein
Beitrag von: Don Pasquale am 12.12.02 - 15:04:09

hmm,

vielleicht, dass man nicht gleich mehrere Ordnerstrukturen untereinander anlegen kann/darf

:-)

Ciao
Don Pasquale

Titel: Re:MkDir scheint ohne Wirkung zu sein
Beitrag von: Performance am 12.12.02 - 17:21:35

heute ist dein Glückstag, bin so gnädig-hab sowas mal gemacht  ;D

Function IsPathAvailable( path As String ) As Variant
   
       REM wenn Pfad nicht vorhanden - wird er erzeugt            
   Dim ok As Variant
   Dim varEnv As String
   
   IsPathAvailable =  False
   
   REM beim Client wird das Client Directory geholt - d.h. manuell testen=lokal starten
   varEnv = session.GetEnvironmentString("Directory", True)
   If varEnv = "" Then Exit Function
   
   On Error Goto errormsg
   
   ok = True
   If originServer = "" Then
      OSDettachPath = path  ' nur für lokal zum testen
   Else
      OSDettachPath = varEnv + "\" + path         
   End If      
   
   Chdir OSDettachPath
   
   If Not ok Then Chdir OSDettachPath  ' zweite Versuch
   
   If ok Then IsPathAvailable = True
   
   Exit Function
   
errormsg:      
   If Err = 76  Then  'kein Pfad vorhanden
      Mkdir OSDettachPath      
      Resume Next
   Elseif Err = 0 Then  'API ok
      IsPathAvailable = True
      Exit Function
   Else
      ok = False
      Resume Next
   End If
   
End Function


cu