Créer un répertoire

[Michael DELIQUE]

Code : Tout sélectionner

Function CreateDirectory(wPath As String) As Integer
   
   'Déclaration des Variables   
   Dim Directoty As String
   Dim i As Long
   Dim J As Long
   
   On Error Goto ErreurCreateDirectory
   
   If Trim(wPath)="'" Then
      Exit Function
   End If
   
   If Right(Trim(wPath),1)<>"\" Then
      wPath =Trim(wPath)+"\"
   End If
   
   On Error Resume Next
   
   i = 4
   J = 0
   While i <= Len(wPath)
      If Mid(wPAth,i,1)="\" Then
         Directoty= Left(wPath,i)
         Mkdir Directoty
         J=i
      Else
         j=j+1
      End If
      i=i+1
   Wend
   
   Exit Function
ErreurCreateDirectory:
   Msgbox "(CreateDirectory) Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   Exit Function
   
End Function