Discussion :

[zeuch]

Bonjour à tous,

J’aimerai faire un script qui permettrait de déplacer des dossiers d’un chemin A vers un chemin B avec au passage un renommage dossier par dossier.

Petites complications :

1- Je souhaites qu’une question soit posée à l’utilisateur pour chaque dossier afin que celui-ci choisisse le nom de destination (exemple : Comment doit être renommé le dossier actuellement nommé xxxx ? )
2- Les dossiers contenus dans le chemin A n’ont jamais les mêmes noms
3- Les dossiers contenus dans le chemin A contiennent des fichiers qu’il ne faut pas renommer

D'avance merci pour votre aide.

Zeuch

[l_autodidacte]

Salut;

Essaie avec ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Dim fso, rep, fd, dossier_source, dossier_cible, subFD, sName
 
    dossier_source = "C:\Temp\"
    dossier_cible  = "C:\TMP\"
    Set fso = CreateObject("Scripting.FileSystemObject")
 
      Set fd = fso.GetFolder(dossier_source)
      If fd.SubFolders.Count = 0 Then
         MsgBox "Il n'y a aucun dossier dans le répertoire " & UCase(fd.Path)
           WScript.Quit 0
        End If
      For each subFD In fd.SubFolders
           sName = subFD.Name
             Rep = InputBox(sName,"Déplacement et renommage de dossiers",sName & "_" & Replace(FormatDateTime(Date,2),"/","_"))
             If rep = "" Then WScript.Quit 0
             fso.MoveFolder subFD.Path, dossier_cible & Rep
      Next

Il permet le déplacement en suggérant un nouveau nom(en fait l'ancien nom auquel on ajoute la date de déplacement).
Tu peux taper un nom selon ton besoin.

[zeuch]

Salut,

Merci pour ton aide c'est super!

Deux questions colmplèmentaires:

1- comment peut on mettre en répertoire cible un lecteur réseau ou un chemin UNC ?
2- A t on la possibilité de changer le format de la date pour mettre l'année puis le mois et enfin le jour (YYYYMMDD) ?


Merci de ton aide !

Zeuch

[l_autodidacte]

Pour la question 2, le script devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Dim fso, rep, fd, dossier_source, dossier_cible, subFD, sName, tmp
 
    dossier_source = "C:\Temp\"
    dossier_cible  = "C:\TMP\"
    Set fso = CreateObject("Scripting.FileSystemObject")
 
      Set fd = fso.GetFolder(dossier_source)
      If fd.SubFolders.Count = 0 Then 
         MsgBox "Il n'y a aucun dossier dans le répertoire " & UCase(fd.Path)
         WScript.Quit 0
      End If
 
      tmp = year(now) & "_" & Right("00" & Month(now),2) & "_" & Right("00" & day(now),2)
 
      For each subFD In fd.SubFolders
           sName = subFD.Name
           Rep = InputBox("Le dossier actuel à déplacer est : " & UCase(sName),"Déplacement et renommage de dossiers",sName & "_" & tmp)
           If rep = "" Then WScript.Quit 0
           fso.MoveFolder subFD.Path, dossier_cible & Rep
      Next

Pour la question 1, si j'ai bien compris, tu dois mapper un lecteur réseau ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "Z:", "\\NomServeur\ShareName"

[zeuch]

Pour la question 2 c'est parfait.
Pour la 1 en fait le lecteur réseau est déjà connecté sur mon poste (N: par exemple qui pointe sur \\serveur\share\).
Mais si je mets au niveau du script dossier_cible = "N:\" ça ne fonctionne pas.

[l_autodidacte]

Il faut mettre le nom de partage \\serveur\share\ et pas la lettre qui le représente.

[zeuch]

Salut,

Malheureusement ça ne fonctionne pas alors que j'ai tous les droits sur le share:

[l_autodidacte]

Peut-être qu'il faut un mot de passe.

As-tu accès à ce lecteur réseau ?
UAC activé ou non ?

[zeuch]

Bonjour,

oui j'ai accès à ce partage sans mot de passe.
L'UAC est désactivé sur mon poste.

[l_autodidacte]

Là, je ne vois vraiment pas d'où peut provenir l'erreur.

Se pourrait-il que ce soit dans le code ?!
Montre un peu ce que tu as fait.