Autor Thema: MkDir scheint ohne Wirkung zu sein  (Gelesen 1282 mal)

Offline Don Pasquale

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.390
  • Geschlecht: Männlich
  • Don Pasquale
    • Auf Verlorenem Posten
MkDir scheint ohne Wirkung zu sein
« 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


« Letzte Änderung: 12.12.02 - 15:01:21 von Don Pasquale »

Offline Don Pasquale

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.390
  • Geschlecht: Männlich
  • Don Pasquale
    • Auf Verlorenem Posten
Re:MkDir scheint ohne Wirkung zu sein
« Antwort #1 am: 12.12.02 - 15:04:09 »
hmm,

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

:-)

Ciao
Don Pasquale

Offline Performance

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.096
  • Geschlecht: Männlich
  • I love YaBB 1G - SP1!
Re:MkDir scheint ohne Wirkung zu sein
« Antwort #2 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
Wir können alles außer hochdeutsch !

Alles ist möglich, es ist nur eine Frage der Zeit oder des Geldes!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz