Board logo

标题: (错误)vbs strreverse 颠倒文件名提示文件已存在 [打印本页]

作者: huzixuan     时间: 2007-6-17 14:59    标题: (错误)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

作者: slore     时间: 2007-6-17 15:31
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

作者: huzixuan     时间: 2007-6-17 15:42
slore兄
能给指点一下顶楼代码错误出现的地方吗..

作者: slore     时间: 2007-6-17 15:53
我这里没有显示错误

作者: huzixuan     时间: 2007-6-17 16:03
饿,晕呢.
谢过 自己再测试去

作者: 3742668     时间: 2007-6-17 16:16
1.对于file对象的概念了解比较模糊。
set file=fso.getfile(file)这句完全多余。
2.如果当前目录存在“单个字符”+“扩展名”或两个文件名刚好相反的情况则回出错。例如存在"a.txt"或者同时存在"abc.txt"和"cba.txt"的情况。对于第一种情况,如果不想自己做判断的话可以尝试用file的move方法来实现。

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
file.Move strreverse(fso.getbasename(file))&"."&fso.getextensionname(file)
end if
next

作者: huzixuan     时间: 2007-6-18 17:54
多谢 3742668 荣誉版主
知道了