大神们帮忙看看 ,是不是有什么地方有错,执行了没有动静,3Q
Private Sub a()
MkDir "d:\backup\%userprofile%"
P1 = "HKCU\\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\"
WshShell.RegWrite p1 & "Desktop", "d:\backup\%userprofile%\桌面"
WshShell.RegWrite p1 & "Favorites", "d:\backup\%userprofile%\Favorites"
WshShell.RegWrite p1 & "Personal", "d:\backup\%userprofile%\My Documents"
End Sub
Private Sub a()
MkDir "d:\backup\%userprofile%"
P1 = "HKCU\\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\"
WshShell.RegWrite p1 & "Desktop", "d:\backup\%userprofile%\桌面"
WshShell.RegWrite p1 & "Favorites", "d:\backup\%userprofile%\Favorites"
WshShell.RegWrite p1 & "Personal", "d:\backup\%userprofile%\My Documents"
End Sub