CreateDirectoryEx (crossplattform)

[ts-soft]

a very simple way to create all dirs at once
(MacOS not tested)

Code: Select all

EnableExplicit

CompilerIf #PB_Compiler_OS = #PB_OS_Windows
CompilerElse
  ImportC ""
    system(cmd.p-utf8)
  EndImport
CompilerEndIf

Procedure CreateDirectoryEx(DirPath.s)
  CompilerSelect #PB_Compiler_OS
  CompilerCase #PB_OS_Windows
    RunProgram(GetEnvironmentVariable("COMSPEC"), "/c mkdir " + #DQUOTE$ + DirPath + #DQUOTE$, "", #PB_Program_Wait | #PB_Program_Hide)
    If FileSize(DirPath) = -2
      ProcedureReturn #True
    EndIf
  CompilerDefault
  If Not system("mkdir -p " + #DQUOTE$ + DirPath + #DQUOTE$)
    ProcedureReturn #True
  EndIf
  CompilerEndSelect
EndProcedure

Define.s Path = GetHomeDirectory() + "test1/test2/tesatäöü"


Debug CreateDirectoryEx(Path)

[rsts]

Very useful.

Thanks for sharing

[Kwai chang caine]

Thanks Ts-Soft
Just a question, what is the difference with MakeSureDirectoryPathExists_() ?

[ts-soft]

Thanks Ts-Soft
Just a question, what is the difference with MakeSureDirectoryPathExists_() ?

MakeSureDirectoryPathExists_ is not Unicode compatible and not available on all Win Versions.

[Kwai chang caine]

and not available on all Win Versions.

Waoouuuh!!! fortunately i ask you this question....
Because i use it frequently, and don't know it's possible a day that don't work everywhere

Again thanks TsSoft, for the sharing and your answer

[ts-soft]

It is only missing on some UserDefined Win9x installation, not a problem in 2014

[Kwai chang caine]

Always good to know this missing, even if win 9x are far now...because again numerous PC works with
The problem with the API, it's sometime she change and bill gates never ask at KCC if he have the right
And it's like when, i have learning, thanks to the PB members, PathAddBackslash_(@Var) can be dangerous
The API are powerfull, but it's important to know her, before use it
Thanks for your tips