Борьба с IIS FTP и буквой «я»

'*******************************************'
'                                           '
' Скрипт предназначен для переименовывания  '
' всех папок и файлов содержащих букву <я>  '
'                                           '
' Требуется для решения проблеммы IIS FTP   '
' заменяет букву "я" на "Я"                 '
'                                           '
' (c) DiamondSteel                          '
'                                           '
'*******************************************'

Sub RunSubFolders (FolderInto)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = FSO.GetFolder(FolderInto)

    For Each iFile in Folder.Files
        NameFile = Mid(iFile, InStrRev(iFile,"\")+1)
        If Detect_ya(NameFile) Then
            On Error Resume Next
            FSO.MoveFile iFile, Mid(iFile,1,InStrRev(iFile,"\")) + convert_ya(NameFile)
        End If
    Next

    On Error Resume Next 

    For Each iSubFolder in Folder.SubFolders
        NameFolder = Mid(iSubFolder, InStrRev(iSubFolder,"\")+1)
        If Detect_ya(NameFolder) Then
            On Error Resume Next
            FSO.MoveFolder iSUbFolder, Mid(iSubFolder,1,InStrRev(iSubFolder,"\")) + convert_ya(NameFolder)
        End If
        RunSubFolders (iSUbFolder)
    Next
End Sub

function convert_ya(str_in)
    str_out = Replace(str_in,"я","Я")
    convert_ya = str_out
End function

function Detect_ya(Str_in)
    If (InStr(Str_in,"я")<>0) then
        Detect_ya = True
    else
        Detect_ya = False
    End If
End Function

' Укажите директорию которую нужно просканировать.
RootFTPFolder = "C:\wwwroot\ftp"

Call RunSubFolders (RootFTPFolder)

'*******************************************'