How to Move the My Documents Folder (Window 10)

[Trong]

My script is no longer working on Windows 10, although it still works fine on XP, Win7,8, 8.1.

Please help script works on Windows 10.

[Danyfirex]

So where is your code?

 

Saludos

[Trong]

If $IsNewOS Then
        $DocumentsDir = @UserProfileDir & "\Documents"
    Else
        $DocumentsDir = @UserProfileDir & "\My Documents"
EndIf

    Local $KEY_Explorer = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer"
    RegWrite($KEY_Explorer & "\User Shell Folders", "Personal", "REG_EXPAND_SZ", $DocumentsDir)
    RegWrite($KEY_Explorer & "\User Shell Folders", "My Video", "REG_EXPAND_SZ", $DocumentsDir & "\Videos")
    RegWrite($KEY_Explorer & "\User Shell Folders", "My Music", "REG_EXPAND_SZ", $DocumentsDir & "\Music")
    RegWrite($KEY_Explorer & "\User Shell Folders", "My Pictures", "REG_EXPAND_SZ", $DocumentsDir & "\Pictures")
    RegWrite($KEY_Explorer & "\User Shell Folders", "Favorites", "REG_EXPAND_SZ", $DocumentsDir & "\Favorites")
    RegWrite($KEY_Explorer & "\User Shell Folders", "{BFB9D5E0-C6A9-404C-B2B2-AE6DB6AF4968}", "REG_EXPAND_SZ", $DocumentsDir & "\Links")
    RegWrite($KEY_Explorer & "\User Shell Folders", "{7D1D3A04-DEBB-4115-95CF-2F29DA2920DA}", "REG_EXPAND_SZ", $DocumentsDir & "\Searches")
    RegWrite($KEY_Explorer & "\User Shell Folders", "{56784854-C6CB-462B-8169-88E350ACB882}", "REG_EXPAND_SZ", $DocumentsDir & "\Contacts")
    RegWrite($KEY_Explorer & "\User Shell Folders", "{374DE290-123F-4565-9164-39C4925E467B}", "REG_EXPAND_SZ", $DocumentsDir & "\Downloads")
    RegWrite($KEY_Explorer & "\User Shell Folders", "{4C5C32FF-BB9D-43B0-B5B4-2D72E54EAAA4}", "REG_EXPAND_SZ", $DocumentsDir & "\Saved Games")
    RegWrite($KEY_Explorer & "\User Shell Folders", "{1B3EA5DC-B587-4786-B4EF-BD1DC332AEAE}", "REG_EXPAND_SZ", $DocumentsDir & "\Libraries")
    RegWrite($KEY_Explorer & "\Shell Folders", "Personal", "REG_SZ", $DocumentsDir)
    RegWrite($KEY_Explorer & "\Shell Folders", "My Video", "REG_SZ", $DocumentsDir & "\Videos")
    RegWrite($KEY_Explorer & "\Shell Folders", "My Music", "REG_SZ", $DocumentsDir & "\Music")
    RegWrite($KEY_Explorer & "\Shell Folders", "My Pictures", "REG_SZ", $DocumentsDir & "\Pictures")
    RegWrite($KEY_Explorer & "\Shell Folders", "Favorites", "REG_SZ", $DocumentsDir & "\Favorites")
    RegWrite($KEY_Explorer & "\Shell Folders", "{BFB9D5E0-C6A9-404C-B2B2-AE6DB6AF4968}", "REG_SZ", $DocumentsDir & "\Links")
    RegWrite($KEY_Explorer & "\Shell Folders", "{7D1D3A04-DEBB-4115-95CF-2F29DA2920DA}", "REG_SZ", $DocumentsDir & "\Searches")
    RegWrite($KEY_Explorer & "\Shell Folders", "{56784854-C6CB-462B-8169-88E350ACB882}", "REG_SZ", $DocumentsDir & "\Contacts")
    RegWrite($KEY_Explorer & "\Shell Folders", "{374DE290-123F-4565-9164-39C4925E467B}", "REG_SZ", $DocumentsDir & "\Downloads")
    RegWrite($KEY_Explorer & "\Shell Folders", "{4C5C32FF-BB9D-43B0-B5B4-2D72E54EAAA4}", "REG_SZ", $DocumentsDir & "\Saved Games")
    RegWrite($KEY_Explorer & "\Shell Folders", "{1B3EA5DC-B587-4786-B4EF-BD1DC332AEAE}", "REG_SZ", $DocumentsDir & "\Libraries")
    
    ReStarExplorer()

 

Edited August 20, 2015 by Trong

[Danyfirex]

Use @MyDocumentsDir instead your way.

 

Saludos

[Trong]

You do not understand my question?
I do not find it, because I know how to take it.
 I need to change it. OK?

[tonycst]

I too find issues with having my scripts work under Windows 10

I think we both have Administrator accounts ?

That could be part of the problem because allot of Windows stuff is actually APPs that dont work unless you are a regular user.

Kinda sucks but i think nerds are screwed and gonna go back to W7

 

Let me know what u fin dout. Try normal user.

[Trong]

Administrator or Normal user is not working.

I have tried but failed.
Currently I still have to change manually.

[BrewManNH]

Look in the registry for the ShellFolders entries, there's a registry key called "!Do not use this registry key" and directs you to "Use the SHGetFolderPath or SHGetKnownFolderPath function instead". That tells me that Windows 10 doesn't use these as anything other than pointers for other programs to use, if you want to set them you should probably be using SHSetKnownFolderPath to change them.

[tonycst]

OK i am now totally confused with this guy.

So your script cant see UserProfileDir & "\Documents" ?

$result = FileExists (@UserProfileDir & "\Documents")
MsgBox (0,'',$result)

returns 1 so it works.

I dontk now what does

$IsNewOS

stands for and how its implemented into your script.
You are asking for answer of a question you never asked.

[Trong]

@tonycst: Do not care to this code, it's just a part of my program. 

; $IsNewOS = FuncCheckOS() 
; Set MyDocument Path for restore.
If $IsNewOS Then
        $DocumentsDir = @UserProfileDir & "\Documents"
    Else
        $DocumentsDir = @UserProfileDir & "\My Documents"
EndIf

@KingBob: I will learn how to use it:  SHSetKnownFolderPath

[ViciousXUSMC]

Hmm what about a symlink? 

Thats how I did this kind of stuff long ago when SSD were still small. 

[Trong]

I don't know. What is symlink ? 
How do I change the path of Document automatically with AutoIt?