桌面路径修改

Tyyi

额额额额额
更改桌面路径，因为更改要打开注册表bu la bu la bu la
遂写了个小东西（你们猜有多少行代码）（C#）
恩，就这样。
只试过win10系统（我的电脑）
链接：https://pan.baidu.com/s/1ODwYWdOTjGrCqtZ-HH-KbQ
提取码：57bx
那个，能用就用，喷的话……
不听不听
--------------------------------------------------------------------------
貌似看到大神了
至于好多人都说右键文件夹就可以更改路径
原谅楼主一开始并不知道
然后写完了才知道的。
但是也可见好多人也像楼主一样，也不知道右键的神奇功能，
对吧。
嗯嗯嗯嗯！
弄都弄出来了，就原谅这款功能鸡肋的小小小软件吧。
嗯嗯嗯嗯！
以后楼主会写更多鸡肋的软件，请多多支持。
嗯嗯嗯嗯！

Tyyi

阿非 发表于 2018-12-10 10:46
楼主出个改用户目录的吧，以前win7有个工具很方便，win10用不了了

链接：https://pan.baidu.com/s/1ODwYWdOTjGrCqtZ-HH-KbQ
提取码：57bx 这个东西的作用
1.楼主频繁更换路径（把路径设到移动硬盘：注：好卡）
2.增加一种更换路径操作
3.打发楼主又闲又菜的时间

heyxiaoniu

[Actionscript3] 纯文本查看 复制代码

#NoTrayIcon
If FileExists("D:") Then
   DirCreate("D:\Users")
   DirCreate("D:\Users\Pictures")
   DirCreate("D:\Users\Videos")
   DirCreate("D:\Users\Downloads")
   DirCreate("D:\Users\Desktop")
   DirCreate("D:\Users\Music")
   DirCreate("D:\Users\Documents")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","{374DE290-123F-4565-9164-39C4925E467B}","REG_SZ","D:\Users\Downloads")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop","REG_SZ","D:\Users\Desktop")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Music","REG_SZ","D:\Users\Music")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Pictures","REG_SZ","D:\Users\Pictures")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","My Video","REG_SZ","D:\Users\Videos")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal","REG_SZ","D:\Users\Documents")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","{0DDD015D-B06C-45D5-8C4C-F59713854639}","REG_EXPAND_SZ","D:\Users\Pictures")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","{35286A68-3C57-41A1-BBB1-0EAE73D76C95}","REG_EXPAND_SZ","D:\Users\Videos")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","{374DE290-123F-4565-9164-39C4925E467B}","REG_EXPAND_SZ","D:\Users\Downloads")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","{754AC886-DF64-4CBA-86B5-F7FBF4FBCEF5}","REG_EXPAND_SZ","D:\Users\Desktop")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","{7D83EE9B-2244-4E70-B1F5-5393042AF1E4}","REG_EXPAND_SZ","D:\Users\Downloads")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","{A0C69A99-21C8-4671-8703-7934162FCF1D}","REG_EXPAND_SZ","D:\Users\Music")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","{F42EE2D3-909F-4907-8871-4C22FC0BF756}","REG_EXPAND_SZ","D:\Users\Documents")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Desktop","REG_EXPAND_SZ","D:\Users\Desktop")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Music","REG_EXPAND_SZ","D:\Users\Music")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Pictures","REG_EXPAND_SZ","D:\Users\Pictures")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","My Video","REG_EXPAND_SZ","D:\Users\Videos")
   RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Personal","REG_EXPAND_SZ","D:\Users\Documents")
   ToolTip("个人文件夹转移完毕(3)",0,0,"提示",1)
   Sleep(1000)
   ToolTip("个人文件夹转移完毕(2)",0,0,"提示",1)
   Sleep(1000)
   ToolTip("个人文件夹转移完毕(1)",0,0,"提示",1)
   Sleep(1000)
   ProcessClose("explorer.exe")
   Sleep(500)
   ShellExecuteWait("explorer.exe")
   Exit 0
Else
   ToolTip("取消转移个人文件夹(5)",0,0,"D盘不存在",3)
   Sleep(1000)
   ToolTip("取消转移个人文件夹(4)",0,0,"D盘不存在",3)
   Sleep(1000)
   ToolTip("取消转移个人文件夹(3)",0,0,"D盘不存在",3)
   Sleep(1000)
   ToolTip("取消转移个人文件夹(2)",0,0,"D盘不存在",3)
   Sleep(1000)
   ToolTip("取消转移个人文件夹(1)",0,0,"D盘不存在",3)
   Sleep(1000)
   Exit 0
EndIf

转移个人文件夹到D盘的AU3源码

Alon88888888

楼主你咋这么可爱呢

Sanstyle01

感谢墨白楼主的分享，

卟懂人心

牛逼 好东西

888wqvb

有啥用处呢

cetfygh

多谢多谢！

408859307

感谢，虽然用不到

zl980524

这个真的可以有

yuren008

不错的，谢谢楼主分享。

一天一盒烟

科普什么情况可以用到?