inock
1)
не знаю как обозвать тему
Тему стоит называть в соответствии с задачей которую Вы собираетесь решить. В данном случае, на сколько я понял, у Вас не получается переименовать файл. Значит имя темы логично может быть "VBS: Проблема с переименованием файла" или "VBS: Ошибка при переименовании файла средствами FileSystemObject" и т.п. А Ваше название темы "Колдунство какое-то..." не несёт смысловой нагрузки. Если разобраться в сути, то название темы нужно, чтобы в дальнейшем и Вы и другие участники форума могли благодаря поиску найти интересующую их информацию. Маловероятно, что следующий скриптописец столкнувшийся с такой проблемой будет искать в форуме совпадение по словам "Колдунство", "Шаманство", "Глюконавтика", "Шизофрения", чтобы найти ответ на свой вопрос.
2) Возможно и тему то создавать не было смысла, если бы Вы пользовались шикарной поисковой системой GOOGLE осмысленно. Стоило всего лишь вбить в поиск "FileSystemObject rename LCase" - (кликаем сюда и наслаждаемся) и вторая же ссылка ведёт на пример скрипта, где всё разобрано - ссылка. Не надо думать, что Вы первооткрыватель и весь мир до этого не наступал на Ваши грабли ). На чужих ошибках учиться всегда выгоднее. Не пренебрегайте этим.
3) Ошибка при переименовании через FileSystemObject абсолютно понятна и логична. В файловой системе Windows имя файла "TEST.txt" и "test.txt" и "TeSt.TxT" идентичны. Поэтому при присвоении имени таким кодом:
мы получаем ошибку "Файл уже существует".
Обходится это использованием метода Move, который есть у объекта File или функцией MoveFile у объекта FileSystemObject.
Option Explicit
Dim fso, fileName
Set fso = CreateObject("Scripting.FileSystemObject")
fileName = "C:\TEST.txt"
'Переименование в нижний регистр
fso.GetFile(fileName).Move LCase(fileName)
Передумал переделывать мир. Пашет и так, ну и ладно. Сделаю лучше свой !