|
huzixuan
高级用户
积分 537
发帖 219
注册 2006-10-31
来自 芜湖
状态 离线
|
『楼 主』:
(错误)vbs strreverse 颠倒文件名提示文件已存在
用以下代码来将当前目录的文件做颠倒文件名的动作,成功了.
但会提示文件已存在?哪里存在?何解??
set ws = createobject("wscript.shell")
set fso = createobject("scripting.filesystemobject")
set folder= fso.getfolder(ws.currentdirectory)
for each file in folder.files
if fso.getfilename(file) <> wscript.scriptname then
set file=fso.getfile(file)
file.name = strreverse(fso.getbasename(file))&"."&fso.getextensionname(file)
end if
next
|
江湖远
碧空长
路茫茫
一个人漫无目的的奔跑,风,刺骨的冷.... |
|
 2007-6-17 14:59 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
 『第
2 楼』:
Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.getfolder(ws.CurrentDirectory)
For Each file In folder.files
If file.name <> wscript.scriptname Then
NewName = Mid(file.name,1,InstrRev(file.name,".") - 1)
file.name = StrReverse(NewName) & "." & fso.getextensionname(file)
End If
Next
Set folder = Nothing
Set fso = Nothing
Set ws = Nothing
|
|
|
2007-6-17 15:31 |
|
|
huzixuan
高级用户
积分 537
发帖 219
注册 2006-10-31
来自 芜湖
状态 离线
|
『第
3 楼』:
slore兄
能给指点一下顶楼代码错误出现的地方吗..
|
江湖远
碧空长
路茫茫
一个人漫无目的的奔跑,风,刺骨的冷.... |
|
|
2007-6-17 15:42 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
|
|
2007-6-17 15:53 |
|
|
huzixuan
高级用户
积分 537
发帖 219
注册 2006-10-31
来自 芜湖
状态 离线
|
『第
5 楼』:
饿,晕呢.
谢过 自己再测试去
|
江湖远
碧空长
路茫茫
一个人漫无目的的奔跑,风,刺骨的冷.... |
|
|
2007-6-17 16:03 |
|
|
3742668
荣誉版主
积分 2013
发帖 718
注册 2006-2-18
状态 离线
|
|
|
2007-6-17 16:16 |
|
|
huzixuan
高级用户
积分 537
发帖 219
注册 2006-10-31
来自 芜湖
状态 离线
|
『第
7 楼』:
多谢 3742668 荣誉版主
知道了
|
江湖远
碧空长
路茫茫
一个人漫无目的的奔跑,风,刺骨的冷.... |
|
|
2007-6-18 17:54 |
|
