Тип несоответствия: «instrev»

Question

Я получаю ошибку, как Тип несоответствие: «instrev» в ниже vbscript.

Я пытаюсь переименовать все первенствовать поданную stroed в M: \ Новая папки с ММДДГГГГ меткой времени добавляется перед тем расширением

Как test.xls в Test06152013.xls

я пытаюсь получить имена файлов без расширения & кажется получаю ошибку в том, что logic..I также пытается не получить мой VBScript переименовано itself..appreciate ваших входов

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.