我在下面的 vbscript 中收到类似 Type mismatch : 'instrev' 的错误。
我正在尝试重命名 M:\New 文件夹中的所有 excel 文件,并在扩展之前附加 MMDDYYYY 时间戳
像 Test.xls 到 Test06152013.xls
我正在尝试获取不带扩展名的文件名,并且似乎在该逻辑中出现错误..我也试图不让我的 vbscript 重命名..感谢您的输入
set oFso = createobject("scripting.filesystemobject")
sDirectorypath = "M:\New folder"
rename_files(sDirectorypath)
sub rename_files(folder)
set oFolder = oFso.getfolder(folder)
for each oFile in oFolder.files
pos = instrev(oFile, ".") -1
if pos > 0 then oFile = Left(oFile, InStRev(1, oFile, ".") - 1)
new_name = oFile & replace(FormatDateTime(now,2),"/","") & "." & oFso.GetExtensionName(oFile)
wscript.echo "renaming " & oFile & " => " & new_name
errResult = oFso.MoveFile(oFile, new_name)
next
for each oSubFolder in oFolder.subfolders
rename_files(oSubFolder)
next
end sub