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\" |
Partager