中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-09-15 12:48 		共 47,812 主题排行 / 349,917 发帖 / 今日 0 篇 / 48,268 会员排行
DOS批处理 & 脚本技术（批处理室） » 一个可以颠倒文件名的无聊之作（VBS）。
可打印版本 　2,797 / 13
第1楼　jmz573515 发表于 2006-12-19 04:34
银牌会员　发帖 464　积分 1,212
一个可以颠倒文件名的无聊之作（VBS）。
'功能：颠倒当前文件夹下的文件名(包括文件夹)，扩展名不变，本身的文件名不会被颠倒。
'不保证不会出现问题，谨慎使用！（本机上测试通过）
on error resume next
set wshshell=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(WshShell.CurrentDirectory)
set files=folder.files
for each file in files
if file.name<>wscript.scriptname then
kzm=fso.GetExtensionName(file)
file.name=replace(file.name,"." & fso.GetExtensionName(file),"")
file.name=StrReverse(file.name) & "." & kzm
else
end if
next
set wjj=fso.getfolder(WshShell.CurrentDirectory)
set wjjs=wjj.subfolders
for each fd in wjjs
fd.name=StrReverse(fd.name)
next
msgbox "已经将当前文件夹下所有文件名颠倒。",48+4096,"提示"

[ Last edited by jmz573515 on 2006-12-18 at 03:59 PM ]
第2楼　redtek 发表于 2006-12-19 04:51
金牌会员　发帖 1,147　积分 2,902
欣赏～～～
真复杂啊～：）
第3楼　9527 发表于 2006-12-19 05:15
银牌会员　发帖 438　积分 1,185　来自 北京
那我顺便写个P处理版的，倒序当前目录下所有文件的文件名


[ Last edited by 9527 on 2006-12-19 at 05:28 AM ]
第4楼　ccwan 发表于 2006-12-19 05:30
金牌会员　发帖 1,160　积分 2,725　来自 河北廊坊
9527兄，我怎么没成功？原来代码更新了^_^

[ Last edited by ccwan on 2006-12-19 at 05:31 AM ]
第5楼　electronixtar 发表于 2006-12-19 07:32
铂金会员　发帖 2,672　积分 7,493
vbs里的关键就是
第6楼　wudixin96 发表于 2007-04-06 21:55
银牌会员　发帖 931　积分 1,928
真是研究的够彻底的。o(∩_∩)o...哈哈。学习了
第7楼　kich 发表于 2007-04-07 05:01
中级用户　发帖 168　积分 397
就是一个 StrReverse() 函数在起作用嘛!
第8楼　shaokui123 发表于 2008-02-23 23:16
初级用户　发帖 41　积分 83
能颠倒指定分区的文件吗？
如何恢复？
第9楼　slore 发表于 2008-02-23 23:41
铂金会员　发帖 2,478　积分 5,212
回复嘛
再用一次呗～
第10楼　shaokui123 发表于 2008-02-24 18:13
初级用户　发帖 41　积分 83
请高手写一个颠倒指定分区文件的
第11楼　tireless 发表于 2008-02-24 18:27
银牌会员　发帖 1,122　积分 2,025
猪是的念来过倒
第12楼　xmi 发表于 2008-02-24 21:52
初级用户　发帖 56　积分 125
利害, 我這個新手學著呢. 謝謝
第13楼　shaokui123 发表于 2008-02-25 22:54
初级用户　发帖 41　积分 83
能颠倒指定分区的文件吗？
第14楼　abcd 发表于 2008-02-25 23:07
银牌会员　发帖 739　积分 1,436
Originally posted by shaokui123 at 2008-2-25 10:54 PM:
能颠倒指定分区的文件吗？



当然可以，稍作修改。或者把该文件复制到指定分区即可。

恢复的话，请看9楼回复
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023