Переименование всех файлов в папке из латиницы в кириллицу, не затрагивая расширение файла - VB
Формулировка задачи:
Подскажите, может быть есть у кого уже готовое решение?
Решение задачи: «Переименование всех файлов в папке из латиницы в кириллицу, не затрагивая расширение файла»
textual
Листинг программы
For i = 0 To UBound(ArrayEng) - 1 If Simv = ArrayEng(i) Then NewName = NewName + ArrayRus(i)