Question

我收到类似错配的错误：vbscript下面的'instrev'。

我正在尝试将所有excel字段重命名为M：\ New文件夹，并在扩展名之前附加MMDDYYYY时间戳

像Test.xls到Test06152013.xls

我正在尝试获取没有扩展名的文件名＆amp;似乎在那个逻辑中得到了错误。我也在尝试不将我的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

Answer 1

该函数的名称为InStrRev，而非InStRev。

类型不匹配：'instrev'

1 个答案: