'=================================================================
'Скрипт, решающий проблемы, связанные с IIS FTP и буквой "я" |
'скрипт проходит по всем поддиректориям от указанной директории |
'и заменяет букву "я" на "Я" во всех именах файлов и дерикториях. |
'=================================================================


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:\Test_Folder" 'Корневая директория FTP сервера
Call RunSubFolders (RootFTPFolder)