Discussion :

[enermax31]

Bonjour à tous,
Alors voilà je suis plus que débutant en vbs et je suis actuellement en train de faire un petit script sous Windows pour que lorsque l'utilisateur TOTO se connecte la première fois sous sa session après une réinstallation du système, les fichiers, dossiers et sous-dossiers présents dans le profil sauvegardé stocké dans "c:\temp\TOTO\desktop" par exemple (en sachant que ce sera le cas aussi pour d'autres dossiers dans le profil comme "documents", "favorites", etc...) soient déplacés dans "c:\users\TOTO". En sachant que TOTO est bien sûr une variable utilisateur.
J'ai quand même tenté de faire un script qui ressemble à ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("WScript.Network")
User = objNetwork.Username
oFSO.MoveFolder "c:\temp\" & USER & "Desktop","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "Documents","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "Downloads","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "Favorites","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "Links","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "Music","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "Pictures","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "Videos","c:\users\" & USER & "\"
oFSO.MoveFolder "c:\temp\" & USER & "AppData\Roaming\Microsoft\Signatures","c:\users\" & USER & "\AppData\Roaming\Microsoft\"

Mais ça ne fonctionne pas!!!
Pouvez-vous me corriger là où ça bloque?

Merci à tous d'avance pour votre aide

[ProgElecT]

Salut

Il me semble qu'il manque un \ à la suite des USER

Code :

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

1
2
'oFSO.MoveFolder "c:\temp\" & USER & "Desktop","c:\users\" & USER & "\"
 oFSO.MoveFolder "c:\temp\" & USER & "\Desktop","c:\users\" & USER & "\"

[enermax31]

Merci beaucoup je vais tester ça dès que possible et je vous tiens au courant