Set objFS = CreateObject("Scripting.FileSystemObject")
strFolder = objFS.GetAbsolutePathName(".")
Set objFolder = objFS.GetFolder(strFolder)
For Each Folder In objFolder.SubFolders
Folder.Name=Mid(Folder.Name,1,InStrRev(Folder.Name,".")-1)
Next
rename.bat
cscript /nologo script.vbs
将它们放置在更改文件夹所在的同一文件夹中。并运行 rename.bat 文件。
就是这样。 享受 ：）
Create a batch file and write this
attrib -h -s -r \s \d
this will change attributes of all files and folders at current directory
Update:
The following vbScript will rename all folders having extension like folder_name.someExtension and make them with previous names.
create 2 files: 1. script.vbs 2. rename.bat
script.vbs
Set objFS = CreateObject("Scripting.FileSystemObject")
strFolder = objFS.GetAbsolutePathName(".")
Set objFolder = objFS.GetFolder(strFolder)
For Each Folder In objFolder.SubFolders
Folder.Name=Mid(Folder.Name,1,InStrRev(Folder.Name,".")-1)
Next
rename.bat
cscript /nologo script.vbs
Place them is same folder where changed folder are. And run the rename.bat file.
Using "attrib -h -s -r \s \d" immediately did the trick for me, except for one thing. The backslashes ( \ ) should both be forward slashes ( / ) So
attrib -h -s -r /s /d
But nontheless, many thanks to the original poster of the solution, because it really helped me. I just thought i'd point it out for other people who might need to do this.
The Folders attributes must have been changed to Hidden+System+Readonly. Delete the links. And enable "View Hidden Files" and "View System Files" to view your folders.
发布评论
评论（4）
创建一个批处理文件并写入此文件，
这将更改当前目录中所有文件和文件夹的属性
更新：
以下
vbScript将重命名所有具有类似folder_name扩展名的文件夹。 someExtension并使用以前的名称。创建 2 个文件：
1.脚本.vbs
2. rename.bat
script.vbs
rename.bat
将它们放置在更改文件夹所在的同一文件夹中。并运行
rename.bat文件。就是这样。
享受 ：）
Create a batch file and write this
this will change attributes of all files and folders at current directory
Update:
The following
vbScriptwill rename all folders having extension likefolder_name.someExtensionand make them with previous names.create 2 files:
1. script.vbs
2. rename.bat
script.vbs
rename.bat
Place them is same folder where changed folder are. And run the
rename.batfile.and That's it.
Enjoy :)
使用“attrib -h -s -r \s \d”
立即为我解决了问题，除了一件事。
反斜杠 (\) 应该都是正斜杠 (/)
尽管如此
，还是非常感谢该解决方案的原始发布者，因为它确实对我有帮助。
我只是想向其他可能需要这样做的人指出这一点。
Using "attrib -h -s -r \s \d"
immediately did the trick for me, except for one thing.
The backslashes ( \ ) should both be forward slashes ( / )
So
But nontheless, many thanks to the original poster of the solution, because it really helped me.
I just thought i'd point it out for other people who might need to do this.
放轻松，，，用最简单的步骤：-
转到控制面板
打开文件夹选项
转到那里的“查看”选项卡< /p>
子菜单>隐藏文件和文件夹
勾选该选项，即：显示隐藏的文件和文件夹
应用并单击“确定”
立即返回包含 .lnk 扩展名的文件夹的硬盘驱动器
在那里您将看到原始文件夹（暗淡的闪电）
删除带有 .lnk 扩展名的文件/文件夹
并享受原始文件夹......！
希望这有帮助...:-)
Take it easy,,,with easiest Steps :-
Go to Control Panel
Open Folder Options
Go to "View" tab there
Sub Menu> Hidden Files and Folders
Tick the option i.e: Show hidden files and folders
Apply and Click Ok
Now Be Back to Hard Drive Containing Folders of .lnk extensions
There you will see your original folders (dim lightning)
Delete files/folders with .lnk extensions
and enjoy with your original folders....!
Hope this Helps...:-)
文件夹属性必须已更改为
Hidden+System+Readonly。删除链接。并启用“查看隐藏文件”和“查看系统文件”来查看您的文件夹。干杯!
The Folders attributes must have been changed to
Hidden+System+Readonly. Delete the links. And enable"View Hidden Files"and"View System Files"to view your folders.Cheers!