Aktuelle Zeit: 09.07.2020 09:27

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 1 Beitrag ] 
Autor Nachricht
 Betreff des Beitrags: CreatePath - erstellt beliebig tiefe Verzeichnisebenen
BeitragVerfasst: 03.02.2017 17:37 
Offline
Benutzeravatar

Registriert: 11.08.2005 19:08
Code:
CompilerSelect #PB_Compiler_OS
  CompilerCase #PB_OS_Windows
    #Path_Slash$ = "\"
  CompilerDefault
    #Path_Slash$ = "/"
CompilerEndSelect

Procedure.i CreatePath(Path$)
 
  Protected CountOfDirectories, i
  Protected TempPath$
 
  Path$ = Trim(Path$, #Path_Slash$)
 
  CountOfDirectories = CountString(Path$, #Path_Slash$) + 1
  For i = 1 To CountOfDirectories
    CompilerIf #PB_Compiler_OS = #PB_OS_Windows
      If i = 1
        TempPath$ = StringField(Path$, i, #Path_Slash$)
        Continue
      EndIf
    CompilerEndIf
    TempPath$ + #Path_Slash$ + StringField(Path$, i, #Path_Slash$)
    If FileSize(TempPath$) <> -2 And Not CreateDirectory(TempPath$)
      ProcedureReturn #False
    EndIf
  Next
 
  ProcedureReturn #True
EndProcedure

;Debug CreatePath("/home/username/myproject/codes/gui")
;Debug CreatePath("C:\Dokumente und Einstellungen\Benutzername\Programmieren\Mein Projekt\GUI")


Der obige Code wird nicht mehr aktualisiert. Bitte schaue für den aktuellsten Code ins CodeArchiv:
https://github.com/SicroAtGIT/PureBasic ... iv-Rebirth
Pfad: FileSystem/CreatePath

_________________
Bild
Warum OpenSource eine Lizenz haben sollte
PureBasic-CodeArchiv-Rebirth: Git-Repository / Download – Jede Hilfe ist willkommen!
Manjaro Xfce x64 (Hauptsystem) :: WindowsXP/Xubuntu x86 (VirtualBox) :: PureBasic (Linux: x86/x64, Windows: x86) :: jeweils neueste Version


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 1 Beitrag ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 5 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye