Discussion :

[skyzio]

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 :

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

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?

[skyzio]

Je relance mon sujet...