mkdir

Question

Bonjour,

J'utilise la fonction Mkdir pour créer un dossier. elle ne me crée rien du tout. Doit-je installer ou activer quelque chose pour la faire fonctionner.

Merci

cs_Exploreur · Answer

Salut,

Qu'elle syntaxe utilises-tu ? As-tu un message d'erreur ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

jrivet · Answer

> [auteur/EXPLOREUR/17710.aspx Exploreur]: voir ici

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Exploreur · Answer

Salut Jrivet ,

Lol...il y a au moins une amélioration...Bonjour et Merci

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Jack · Answer

Salut
Ma boule de cristal (version 2.0) me dit que tu tentes de créer une arborescence complète et non un seul sous-répertoire derrière un répertoire existant.

Pour créer une arborescence complète, voici une petite fonction à coller dans un module :

Private Sys As Object

Public Function CrééRépertoiresRécursifs(ByVal Chemin As String) As Boolean




    ' On construit l'arborescence en partant du début
    ' (permet de recontruire un arbre entier)
    ' Renvoie True s'il y a eu un problème (arbre non créé)

    Dim s() As String
    Dim Temp As String
    Dim sErreur As String
    Dim r As Long
    Dim Quantité As Long
    
    On Error GoTo Erreur
    If Sys Is Nothing Then
       Set Sys = CreateObject("Scripting.FileSystemObject")
    End If
    ' On ressort si le répertoire existe déjà (RàS)
    If Len(Chemin) = 0 Or Sys.FolderExists(Chemin) Then Exit Function
    ' Recréé les répertoires depuis la racine
    s = Split(Chemin, "")
    Quantité = UBound(s)
    For r = 0 To Quantité
        Temp = Temp & s(r) & ""
        If Not Sys.FolderExists(Temp) Then Sys.CreateFolder (Temp)
    Next r
    
    Exit Function
     
Erreur: '---------------- Gestion erreur
    sErreur = CStr(Err.Number) & " - " & Err.Description
    Temp = "Il n'a pas été possible de créer le répertoire :" & vbCrLf & vbCrLf & _
            Chemin & vbCrLf & vbCrLf & _
           "Causes possibles :" & vbCrLf & _
           "- Le lecteur désigné n'est pas accessible," & vbCrLf & _
           "- Les droits d'accès ne permettent pas la création" & vbCrLf & _
           vbCrLf & "Vérifiez et corrigez."
    MsgBox Temp, vbCritical Or vbOKOnly, App.Title & " " & App.Comments & _
            " - Création des répertoires de travail"
    CrééRépertoiresRécursifs = True    ' Signale Erreur



End Function




Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés





<hr />

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

J'espère que ça fonctionne aussi sous VBA, jamais essayé

jrivet · Answer

Salut [auteur/JACK/2204.aspx jack], 
Ah peu être oui. mais il y a une API MakeSurePathExists ou un truc dans le style

@+: Ju£i?n
Pensez: Réponse acceptée

NHenry · Answer

Bonjour

Sinon en couplant Dir$() et MkDir() c'est faisable sans fso.

Sinon en une API : http://www.codyx.org/snippet_generation-recursive-arborescence-repertoires_289.aspx

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

jrivet · Answer

Ah Voila...

MErci [auteur/NHENRY/68514.aspx NHenry], c'était MakeSureDirectoryPathExists

@+: Ju£i?n
Pensez: Réponse acceptée

jmfmarques · Answer

Bonjour,

Ca ne marche pas, comme ceci ?

Private Sub Command2_Click()
  Dim titi As String, toto
  toto = Array("Leprincipal", "lesousrep1", "lesousrep2", "lesousrep3", "lesousrep4")
  titi = "d:"
  For i = 0 To UBound(toto)
    titi = titi & "" & toto(i)
    If Dir(titi & "", vbDirectory) = "" Then
      MkDir titi
    End If
  Next
End Sub

cs_pb1 · Answer

Bonjour,

En fait, mon problème n'est pas de créer des sous-répertoires mais de créer des répertoires. 

Exemple de code :

path2 =  "C:\Fichiers Travail"
MkDir path2

Ce code ne me crée pas le répertoire. Je n'ai pas de message d'erreur.

jmfmarques · Answer

Bizarre autant qu'étrange !!!!

A moins que :

- soit tu veuilles créer sur une autre machine que la tienne
- soit la racine est protégée en écriture
- soit encore ... (possible) ... le répertoire est bien créé mais non encore affiché dans l'explorateur (un petit copup de affichage ===>> actualiser)

PCPT · Answer

salut,

... soit tu es sous vista et excel n'a pas les droits  :)

ps : (dans le doute) passes-tu seulement par cette ligne de code en pas à pas?

bigfish_le vrai · Answer

Bonsoir,

En VBA pour creer plusieurs repertoires en une fois et de facon simple on peu utiliser la fonction Shell et la commande dos mkdir :

Sub CreatRep()
    Dim NewRep As Double, NewRepPath As String
    NewRepPath = "c:	emp\bob\bil"
    NewRep = Shell("cmd.exe /c mkdir " & NewRepPath, 0) 'ici le repertoires bob et bil seront crée dans c:	emp
End Sub

Simple mais efficace 

A+

bigfish_le vrai · Answer

... oups desolé !

pas vu les derniers echanges  avant de poster 

A+

cs_pb1 · Answer

Je suis sous XP pro avec excel 2003

Mkdir

15 réponses

Votre réponse

Discussions similaires