Creer un chemin de plusieurs dossiers

Commenter

Contenu du snippet

Ou comment faire quand MkDir, CreateFolder (api) ou le FSO echoue lors de la création d'un dossier avec ses sous dossiers. exemple : C:\TMP\SOUSTMP\SOUSOUSTEMP\ETPLEINDESOUSOUSDANSLAPOCHE.

Passez le nom du dossier en argument a une fonction a créer plutôt que ce vulgaire bouton.

Source / Exemple : 


Private Sub Command1_Click()
  
  On Error Resume Next
  
  Dim sDossACreer   As String
  Dim sTmp          As String
  
  Dim oFso          As New Scripting.FileSystemObject
  'Projet>Ref>Microsoft Scripting Runtime (
  
  sDossACreer = "C:\TEMP\EXT\1\1\2\1\1"
  
 'Création des sous-dossiers
  sTmp = sDossACreer
  While Not oFso.FolderExists(sTmp)
    sTmp = oFso.GetParentFolderName(sTmp)
    oFso.CreateFolder sTmp
    If Err Then Err.Clear Else sTmp = sDossACreer
  Wend
  
  'Création du dernier dossier
  If Not oFso.FolderExists(sDossACreer) Then oFso.CreateFolder sDossACreer
  
End Sub

Conclusion :


Un peu de pub ... Adoupdoupdoupdoup ...
WinMacro, ArchiDoc, MCopy sur http://soy.free.fr

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (softeur)