Script renommage dossier via boite de dialogue

Version imprimable

26/03/2014, 14h14
zeuch

Script renommage dossier via boite de dialogue

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

Salut;

Essaie avec ce

Code:

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.

27/03/2014, 09h49
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

Pour la question 2, le script devient :

Code:

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:

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

27/03/2014, 22h55
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.
27/03/2014, 23h47
l_autodidacte

Il faut mettre le nom de partage \\serveur\share\ et pas la lettre qui le représente.
28/03/2014, 16h03
zeuch

1 pièce(s) jointe(s)

Salut,

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

Pièce jointe 141628
28/03/2014, 16h58
l_autodidacte

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

As-tu accès à ce lecteur réseau ?
UAC activé ou non ?
31/03/2014, 09h32
zeuch

Bonjour,

oui j'ai accès à ce partage sans mot de passe.
L'UAC est désactivé sur mon poste.
04/04/2014, 10h52
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.