PureBasic Forums - English

Code: Select all

Procedure CreateDirectories(fullPath.s)
  fullPath = ReplaceString(fullPath, "\", "/")
  
  If Right(fullPath, 1) <> "/"
    fullPath + "/"
  EndIf
  
  depth = CountString(fullPath, "/")
  Dim folder.s(depth)
  
  For i = 1 To depth
    folder(i) = StringField(fullPath, i, "/")
  Next
  
  For i = 1 To depth        
    If i = 1
      currentFolder$ = folder(i)
      If CountString(folder(i), ":")
        currentFolder$ + "/" + folder(i + 1)
        i + 1 
      EndIf
    Else      
      currentFolder$ + "/" + folder(i)        
    EndIf    
    If FileSize(currentFolder$) <> -2
      If CreateDirectory(currentFolder$) = 0
        Break
      Else
        Debug currentFolder$ + " created!"
      EndIf        
    EndIf      
  Next  
  
EndProcedure

CreateDirectories("d:\Fantaisie\PureBasic\64bit\examples\advanced\graphics\bitmaps")

Code: Select all

dirtree$="d:\aa\bb\cc\"
Debug MakeSureDirectoryPathExists_(dirtree$) ; Shows 1, but didn't work.
Debug SHCreateDirectory_(0,dirtree$) ; Shows 0, but did create the tree.

Code: Select all

Procedure CreateDirectoryTree(dir$)
  ok=1
  If Right(dir$,1)<>"\" : dir$+"\" : EndIf
  If FileSize(dir$)<>-2
    For a=1 To CountString(dir$,"\")
      tmp$+StringField(dir$,a,"\")+"\"
      If FileSize(tmp$)=-1
        If CreateDirectory(tmp$)=0
          ok=0
          Break
        EndIf
      EndIf
    Next
  EndIf
  ProcedureReturn ok
EndProcedure