Переименование всех файлов в папке из латиницы в кириллицу, не затрагивая расширение файла - VB

Узнай цену своей работы

Формулировка задачи:

Подскажите, может быть есть у кого уже готовое решение?

Решение задачи: «Переименование всех файлов в папке из латиницы в кириллицу, не затрагивая расширение файла»

textual
Листинг программы
For i = 0 To UBound(ArrayEng) - 1 
If Simv = ArrayEng(i) Then 
NewName = NewName + ArrayRus(i)

Оцени полезность:

8   голосов , оценка 3.625 из 5
Похожие ответы