PureBasic

Code : Tout sélectionner

CreateDirectory("i:\mimi\toto")   

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu 
; 
; Explication du programme : 
; Ce code permet de créer un dossier dont le ou les répertoires parents n'existent pas. 
; Exemple : 
; je souhaite créé le dossier "C:\Program files\truc\bidule" 
; Seul le dossier "C:\Program files\" existe 
; Si j'utilise CreateDirectory("C:\Program files\truc\bidule"), cela ne va pas marcher car le dossier "C:\Program files\truc\" n'existe pas 
; Si j'utilise CreateDirectoryEx("C:\Program files\truc\bidule"), tous les les dossiers seront créés : 
; C:\Program files\ 
; C:\Program files\truc\ 
; C:\Program files\truc\bidule 


Procedure.l CreateDirectoryEx(FolderPath.s) 
 
 ; Retourne 1 si la création du dossier à réussi, 0 sinon 
 
 Protected Folder.s, Txt.s, Cpt.l 
 
 If FileSize(Folder) = -1 
 
  Folder.s = StringField(FolderPath, 1, "\") + "\" 
  Cpt.l = 1 
 
  Repeat 
   Cpt + 1 
   Txt.s = StringField(FolderPath, Cpt, "\") 
   Folder = Folder + Txt + "\" 
   CreateDirectory(Folder) 
  Until Txt = "" 
 
 EndIf 
 
 If FileSize(FolderPath) = -2 
  ProcedureReturn 1 
 Else 
  ProcedureReturn 0 
 EndIf 
 
EndProcedure 


;- Test 
If CreateDirectoryEx("c:\truc\bidule") 
 MessageRequester("", "Le dossier 'c:\truc\bidule' a été créé", 0) 
Else 
 MessageRequester("Erreur", "impossible de créer le dossier 'c:\truc\bidule'", 0) 
EndIf

Code : Tout sélectionner

ProcedureDLL MakeSureDirectoryPathExists(Directory.s)
  
  ; Return 1 If success / 0 If fail 
  
  retour=MakeSureDirectoryPathExists_(Directory)
  ProcedureReturn retour
EndProcedure

Code : Tout sélectionner

CreateDirectory("c:\mimi")
CreateDirectory("c:\mimi\toto")

Code : Tout sélectionner

MakeSureDirectoryPathExists_()