|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
 『楼 主』:
一个可以颠倒文件名的无聊之作（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 ]
此帖被 +14 点积分 点击查看详情 | 评分人：【 redtek 】 | 分数： +5 | 时间：2006-12-19 05:32 | | 评分人：【 ccwan 】 | 分数： +5 | 时间：2006-12-19 05:43 | | 评分人：【 tireless 】 | 分数： +4 | 时间：2008-2-24 18:38 |
|
|
|
 2006-12-19 04:34 |
|
|
redtek
金牌会员
积分 2902
发帖 1147
注册 2006-9-21
状态 离线
|
『第
2 楼』:
欣赏～～～
真复杂啊～：）
|
Redtek，一个永远在网上流浪的人……
_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._ |
|
|
2006-12-19 04:51 |
|
|
9527
银牌会员
努力做坏人
积分 1185
发帖 438
注册 2006-8-28
来自 北京
状态 离线
|
|
|
2006-12-19 05:15 |
|
|
ccwan
金牌会员
积分 2725
发帖 1160
注册 2006-9-23
来自 河北廊坊
状态 离线
|
『第
4 楼』:
9527兄，我怎么没成功？原来代码更新了^_^
[ Last edited by ccwan on 2006-12-19 at 05:31 AM ]
|
三人行，必有吾师焉。 学然后知不足，教然后知困，然后能自强也。 |
|
|
2006-12-19 05:30 |
|
|
electronixtar
铂金会员
积分 7493
发帖 2672
注册 2005-9-2
状态 离线
|
『第
5 楼』:
vbs里的关键就是
file.name=StrReverse(file.name) & "." & kzm
|
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>" |
|
|
2006-12-19 07:32 |
|
|
wudixin96
银牌会员
积分 1928
发帖 931
注册 2007-1-6
状态 离线
|
『第
6 楼』:
真是研究的够彻底的。o(∩_∩)o...哈哈。学习了
|
|
|
2007-4-6 21:55 |
|
|
kich
中级用户
积分 397
发帖 168
注册 2006-10-8
状态 离线
|
『第
7 楼』:
就是一个 StrReverse() 函数在起作用嘛!
|
|
|
2007-4-7 05:01 |
|
|
shaokui123
初级用户
积分 83
发帖 41
注册 2008-2-23
状态 离线
|
『第
8 楼』:
能颠倒指定分区的文件吗？
如何恢复？
|
|
|
2008-2-23 23:16 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
|
|
2008-2-23 23:41 |
|
|
shaokui123
初级用户
积分 83
发帖 41
注册 2008-2-23
状态 离线
|
『第
10 楼』:
请高手写一个颠倒指定分区文件的
|
|
|
2008-2-24 18:13 |
|
|
tireless
银牌会员
积分 2025
发帖 1122
注册 2007-9-5
状态 离线
|
|
|
2008-2-24 18:27 |
|
|
xmi
初级用户
积分 125
发帖 56
注册 2008-2-20
状态 离线
|
『第
12 楼』:
利害, 我這個新手學著呢. 謝謝
|
|
|
2008-2-24 21:52 |
|
|
shaokui123
初级用户
积分 83
发帖 41
注册 2008-2-23
状态 离线
|
『第
13 楼』:
能颠倒指定分区的文件吗？
|
1、打破砂锅问到底，生下来就是这样
2、有些问题很可笑，但请不要笑，我只想从技术角度解决 |
|
|
2008-2-25 22:54 |
|
|
abcd
银牌会员
积分 1436
发帖 739
注册 2007-10-11
状态 离线
|
『第
14 楼』:
| Quote: | Originally posted by shaokui123 at 2008-2-25 10:54 PM:
能颠倒指定分区的文件吗？ |
|
当然可以，稍作修改。或者把该文件复制到指定分区即可。
恢复的话，请看9楼回复
|
|
|
2008-2-25 23:07 |
|
