Déplacer renommer un fichiers et 2 dossier avec Inputbox+ oShell.browseForFolder
Bonjour à tous,
Je suis débutant sur VBS mais j'ai quelques connaissances sur VBA.
Je vous explique mon problème.
Je souhaiterai copier, déplacer et renommer un fichier et "2 dossiers (déjà nommé)" dans un dossier déjà existant.
Pour cela j'aurai voulu m'aider d'un InputBox pour donner le nom du qu'on souhaite au fichier.
et un oShell.browseForFolder pour qu'on donne la destination.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Dim oFS,oFl,oFd
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFl = oFSO.GetFile("C:\Users\technicien.be\Desktop\000 - Test\Plans créés\CBE000.ipj")
oFl.Copy "C:\Users\technicien.be\Desktop\001 - Test\Plans créés\CBE001.ipj",False
Set oFd = oFSO.GetFolder("C:\Users\technicien.be\Desktop\000 - Test\Plans créés\Fichiers du centre de contenu")
oFd.Copy "C:\Users\technicien.be\Desktop\001 - Test\Plans créés\Fichiers du centre de contenu",False
Set oFd = oFSO.GetFolder("C:\Users\technicien.be\Desktop\000 - Test\Plans créés\OldVersions")
oFd.Copy "C:\Users\technicien.be\Desktop\001 - Test\Plans créés\OldVersions",False |
Après quelque heures de recherche et de manip, j'ai réussi à copier et renommer mon fichier et à copier mes deux dossiers dans un autre dossier.
Mais voilà comment je fais pour mettre en place mon imputbox et surtout insérer la variable dans le changement de nom? et pareil pour le changement de destination?
