Création arborescenceRésolu

Question

Plop all,

Y'a moyen d'utiliser une commande permettant de créer une arborescence ?

Je m'explique :

C:	emp existe
C:\Temp\PDR n'existe pas
C:`\Temp\Pdr\DC n'existe pas
C:\Temp\Pdr\DC\Qualif n'existe pas

Comment puis-je procéder pour créer ces 3 dossiers (pdr, dc et qualif) et donc cette arborescence...Mkdir et createfolder tels que je les connais (donc peu) ne me le permettent pas.

j'ai fais un truc du style :
set source = c:	emp\pdr\dc\qualif
mkdir (source)

mais que nenni... Enfin, ça revient au même quoi...

Z'avez une solution pour un débutant comme moi siouplait ?

D'avance un grand merci

cs_casy · Accepted Answer

Il faut utiliser l'api MakeSureDirectoryPathExist.

Private Declare Function MakeSureDirectoryPathExists Lib"imagehlp.dll" (ByVal lpPath As String) As Long

Private Sub Form_Load()
'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'create the directory "c:	his\is\a	est\directory", if it doesn't exist already
    MakeSureDirectoryPathExists "c:	his\is\a	est\directory"
End Sub

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Mazhe · Answer

Merky Casy...

Ceci étant, j'colle ça où ? ^^

cs_casy · Answer

La ligne Declare, tu la met au début de la feuille ou tu vas utiliser ta fonction et avant le code. Ou le mieux, tu la met dans un module en remplacçant Private par Public, elle sera dispo pour l'ensemble du projet comme ça.

Le reste du code n'est qu'un exemple pour montrer ce que ça fait.

Pour toi, dans ton code, tu remplace juste MkDir par MakeSureDirectoryPathExist

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_JMO · Answer

Bonjour à tous....

Un exemple avec fso.
Il y a surement plus simple avec un wend ou un do until.

Const racine = "d:\Temp"
MsgBox Verif_Folder(racine),,"Vérification du répertoire"



Function Verif_Folder(rac)
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(rac) Then 
       'Msgbox "la racine n existe pas" 
       Set fso = Nothing 
       Exit Function
   Else
   'MsgBox "la racine existe"
   Dim ext(3), i, f, result
   ext(0) = "Pdr"
   ext(1) = "DC"
   ext(2) = "Qualif"
   Dim tab : tab = Array(ext(0), ext(1), ext(2))  
   
   For i = 0  To UBound(tab)
       result = result & tab(i)
       'MsgBox rac & result
       If Not fso.FolderExists(rac & result) Then Set f = fso.CreateFolder(rac & result)
   Next
   Verif_Folder = rac & result 
End If
Set fso = Nothing 
End Function










jean-marc

cs_JMO · Answer

Re,

Une petite erreur, pas la peine de passer par un second tableau.

   Dim ext(3), i, f, result
   ext(0) = "Pdr"
   ext(1) = "DC"
   ext(2) = "Qualif"
   
   For i = 0  To UBound(ext)
       result = result & ext(i)
       'MsgBox rac & result
       If Not fso.FolderExists(rac & result) Then Set f = fso.CreateFolder(rac & result)
   Next

....jean-marc

cs_casy · Answer

Ben oui Jean-Marc, il y a plus simple. La solution que je donne, tout est fait en 1 seule ligne

MakeSureDirectoryPathExist TonChemin

Essaye l'exemple donné dans ma première réponse

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_JMO · Answer

Re,
Merci casy,
mais je script en vbs (fso, wsh,wmi....).

jean-marc

cs_casy · Answer

t'as pas accès aux API en vbs ???

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Mazhe · Answer

Bon, pour jouer un peu plus mon BôOlay, en fait, j'ai un bouton "Copier" qui dit ceci :

Private Sub Copier_Click()
    If Fso.FolderExists(Dest) =  True Then
    
        Call Fso.CopyFolder(Dest & "*", DestOld, True)
        Call Fso.CopyFolder(Source & "*", Dest, True)
       
    Else
    
         Fso.CreateFolder (Dest) 
       
        Call Fso.CopyFolder(Dest & "*", DestOld, True)
        Call Fso.CopyFolder(Source & "*", Dest, True)
    
    End If


Set Fso  = Nothing


End Sub

Rien de bien compliqué en soi mais je l'insère à la place de la ligne en gras le MakeSure... ?
Est-ce que je peux la déclarer comme ceci :

Private Declare Function MakeSureDirectoryPathExists Lib"imagehlp.dll" (ByVal lpPath As String) As Long

Private Sub Form_Load()

       MakeSureDirectoryPathExists (Dest)
End Sub

cs_casy · Answer

Oui Mazhe Le Private Declare, tu le met au tout début du fichier, avant la première ligne de code (et si necessaire en remplaçant Private par Public) Ensuite tu fais ceci : Private Sub Copier_Click() If Fso.FolderExists(Dest) = True Then Call Fso.CopyFolder(Dest & "*", DestOld, True) Call Fso.CopyFolder(Source & "*", Dest, True) Else ~~Fso.CreateFolder (Dest)~~ MakeSureDirectoryPath (Dest) Call Fso.CopyFolder(Dest & "*", DestOld, True) Call Fso.CopyFolder(Source & "*", Dest, True) End If Set Fso = Nothing End Sub PS: Attention à DestOld qui doit lui aussi exister avant la copie ---- Sevyc64 (alias Casy) ----

# LE PARTAGE EST NOTRE FORCE #

Mazhe · Answer

Et ben suis-je bête... >_<

Je te remercie beaucoup, j'm'en va essayer ça de suite....

(veuillez m'excuser pour mes questions de nôOb, mes dernières notions de Vb datent de 1998 -___-' )

Mazhe · Answer

Mais lorsque je lance mon "appli", j'ai un "chemin d'accès introuvable".

En vérifiant, le MakeSure me créé bien C:\TEMP\PDR\DC mais il me manque le QUALIF. J'ai pourtant bien spécifié ma variable Dest en tant que :

Dest = "c:	emp\pdr\dc\qualif"

Y'a un paramètre en + pour cette fonction ?

(Arf...La touche F1 est mon amie... J'y retourne) ^^

cs_casy · Answer

Vérifie bien que tu as le "" à la fin du chemin sinon le dernier dossier n'est pas créer : Dest =  "c:	emp\pdr\dc\qualif \ 
"

Dest  = "c:	emp\pdr\dc\qualif" ne marche pas

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Mazhe · Answer

cs_JMO · Answer

Bonjour à tous....

J'ai fait une recherche google une "imagehlp.dll".
Il s'avère que cette dll est "parfois, souvent", verolée.
J'en reviens donc à "mon" script fonctionnel, qui est 
facilement adaptable en vb6 (ajout des As...)

jean-marc

cs_casy · Answer

Plus de précision Jean-Marc ????

Perso j'ai jamais eu de soucis avec.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_JMO · Answer

Bonjour à tous....
bonjour Casy
ex: http://www.faqoe.com/rep/err8.htm
D'autres messages mettent en cause Outlook".

jean-marc

Mazhe · Answer

Donc, merky beaucoup...

Ceci étant, voici mon niou problème :
______________________________________
Private Sub Copier_Click()
    If Fso.FolderExists(Dest) = True Then
    
        If MsgBox("Etes vous sur de vouloir copie " & Source & " vers " & Dest, vbQuestion + vbYesNo, "Confiramtion") = vbYes Then
                MsgBox ("Copie en cours")
                Call Fso.CopyFolder(Dest & "*", DestOld, True)
                Call Fso.CopyFolder(Source & "*", Dest, True)
                MsgBox ("copie terminée")
...
_______________________________________

Donc, en cliquant sur "Oui" de la msgbox demandant confirmation, je souhaiterais avoir juste une fenêtre indiquant "Copie en cours"... La msgbox que j'ai mis en gras le fait bien mais demande que l'on clic sur le bouton OK pour lancer la copie.... Or, étant donné qu'il y a quelques fichiers à copier, on a l'impression que l'appli a buggé.

Y parait qu'insérer une progressbar, c'est un peu miséreux donc, je voulais juste avoir un message "copie en cours" puis, une fois fini la msgbox "Copie terminée"...

Comment puis-je faire siouplait ?

Ah Ah ! chui chiant hein :)

Bien à vous.

cs_casy · Answer

Il faut que tu te crée ta propre fenêtre pour ça.
tu un .shox pour l'afficher à la place de la msgbox, et un unload à la place de la seconde msgbox.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Mazhe · Answer

Ben en fait, j'ai fais ceci :

If MsgBox("Etes vous sur de vouloir copie " & Source & " vers " & Dest, vbQuestion + vbYesNo, "Confiramtion") =  vbYes Then
                 cec.Show 1 
                
                Unload Me
                MsgBox ("copie terminée")
        
        End If

Dans la feuille cec, j'ai créé un "label" : Copie en cours...

Mais niveau code de la copie, je sais pas trop comment faire...

A l'origine, c'était ceci :

If MsgBox("Etes vous sur de vouloir copie " & Source & " vers " & Destination, vbQuestion + vbYesNo, "Confiramtion")  = vbYes Then
              
        Call Fso.CopyFolder(Dest & "*", DestOld, True)
        Call Fso.CopyFolder(Source & "*", Dest, True)
   
End If

Mais je souhaitais avoir une fenêtre indiquant "copie en cours" pendant la copie (pour éviter que l'on croit que ça plante) et qui se ferme pour laisser apparaitre un "copie terminée"...

En recopiant les Call Fso.copyfolder.... dans la feuille CeC, bien entendu, les variables ne sont pas reconnues (dest, destold, etc...)

Pouvez-vous m'aider siouplait ? :)

cs_JMO · Answer

Bonjour à tous....

Bonjour 890390  Mazhe ,

N'ayant pas vb6 (et/ou .Net), pour remplacer une ProgressBar , j'utlise une autre méthode.

Exemple:

' ################## AFFICHER UNE FENETRE D'INFORMATION  
strComputer  = "." 
Set objWMIService = GetObject("Winmgmts:\" & strComputer & "\root\cimv2") 
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor") 
For Each objItem in colItems 
    intHorizontal = objItem.ScreenWidth 
    intVertical = objItem.ScreenHeight 
Next 
Set objExplorer = CreateObject("InternetExplorer.Application") 
objExplorer.Navigate "about:blank"    
objExplorer.ToolBar = 0 
objExplorer.StatusBar = 0 
objExplorer.Left = (intHorizontal - 800) / 2 
objExplorer.Top = (intVertical - 100) / 2 
objExplorer.Width = 500 
objExplorer.Height = 180
objExplorer.Visible = 1              
objExplorer.Document.Body.Style.Cursor = "wait" 
objExplorer.Document.Title = fic & "  -  " & Now 
objExplorer.Document.Body.InnerHTML = "
Création du fichier
""" &_
 fic & """
en cours , merci de patienter.
" 

'ICI copy files ou folders

' ################## FERMER LA FENETRE  
objExplorer.Document.Body.Style.Cursor = "default" 
objExplorer.Quit 



Set colItems = Nothing
Set objExplorer = Nothing
Set objWMIService = Nothing




jean-marc

Mazhe · Answer

Merci JMO,

En fait, voilà MON soucis existenciel ^^ Je n'y connais absolument (plus) rien en VB. Mon chef me demande de faire un truc pour de la simple copie de fichier, en .Bat mais, par soucis de "j'me la pête", j'ai voulu faire un truc sympa en VB alors, j'ai pris VB6 parce que le .Net me paraissait trop "pro"... Et là, v'la-t-y pas qu'il me demande d'améliorer mon truc pour x applis...

"A vouloir (trop) bien faire"

Bref, on s'en fiche... Toussa pour dire que le code que je pose là est issu de nombre de réponses à des questions que j'ai déjà posée sur ce même forum. Je ne vais pas jusqu'à dire que je n'y comprends rien (puisque j'apprends en même temps) mais...j'ai peur que ta méthode ajoutée au FSO me "gêne" un peu...

Mais je suis preneur de toute façon. Et la question que j'ai alors, c'est où placer ce code... J'aimerais bien pouvoir ajouter mon code-source en pièce jointe, que vous vous fassiez une idée mais (encore une fois) z'avez p'tet pas que ça à faire...

Et là, subitement, j'arrête, j'me rends compte que c'est pas un forum où la discussion style 3615 MaLife est de mise mais plutôt du style : "Voici mon pb, avez-vous la soluce ?"...(Info : chui Plus admin réseau que développeur ^^)

Et, Jmo, je comprends pas du tout comment je peux intégrer ton code dans mon mien...Spa ta faute, c'est moua, chui nuuuuul

Création arborescence

22 réponses

Votre réponse

Discussions similaires