中国DOS联盟

用以下代码来将当前目录的文件做颠倒文件名的动作,成功了.
但会提示文件已存在?哪里存在?何解??

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

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

slore兄
能给指点一下顶楼代码错误出现的地方吗..

我这里没有显示错误

饿,晕呢.
谢过 自己再测试去

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

多谢 3742668 荣誉版主
知道了