0

我在下面的 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
4

1 回答 1

2

函数的名称是InStrRev,不是InStRev

于 2013-06-10T08:48:45.687 回答