按键精灵怎么批量重命名? 已经实现文件夹改名+ 文件夹移动

时间:2023-01-09 12:30:09

 

KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
Delay 200
Clipboard = Plugin.Sys.GetCLB()
Call Plugin.File.CreateFolder("C:\Users\acer\Desktop\"&Clipboard&"")
Delay 200
Set FSO=CreateObject("Scripting.FileSystemObject")
ThisDirectory="C:\Users\acer\Pictures"
CopyFromPath=FSO.BuildPath(ThisDirectory, "*.*")
CopyToFolder="C:\Users\acer\Desktop\"&Clipboard&""
FSO.MoveFile CopyFromPath, CopyToFolder & "\"
Set FSO=Nothing
我现在的情况如上
就是把剪切板上的文字设置成变量 Clipboard
然后在桌面上新建一个名为Clipboard文件夹...
之后把c盘图片收藏的批量文件移动到这个文件夹
我想..既然可以批量移动...那么可不可以在后面加上和set fso类似的什么...用Clipboard这个变量批量重命名?
求神人帮助...鄙人全部家当10分献上




都批量移动了 批量修改文件夹名不是手到擒来么
重命名的快捷键位F2