Тему стоит называть в соответствии с задачей которую Вы собираетесь решить. В данном случае, на сколько я понял, у Вас не получается переименовать файл. Значит имя темы логично может быть "VBS: Проблема с переименованием файла" или "VBS: Ошибка при переименовании файла средствами FileSystemObject" и т.п. А Ваше название темы "Колдунство какое-то..." не несёт смысловой нагрузки. Если разобраться в сути, то название темы нужно, чтобы в дальнейшем и Вы и другие участники форума могли благодаря поиску найти интересующую их информацию. Маловероятно, что следующий скриптописец столкнувшийся с такой проблемой будет искать в форуме совпадение по словам "Колдунство", "Шаманство", "Глюконавтика", "Шизофрения", чтобы найти ответ на свой вопрос.

2) Возможно и тему то создавать не было смысла, если бы Вы пользовались шикарной поисковой системой GOOGLE осмысленно. Стоило всего лишь вбить в поиск "FileSystemObject rename LCase" - (кликаем сюда и наслаждаемся) и вторая же ссылка ведёт на пример скрипта, где всё разобрано - ссылка. Не надо думать, что Вы первооткрыватель и весь мир до этого не наступал на Ваши грабли ). На чужих ошибках учиться всегда выгоднее. Не пренебрегайте этим.

3) Ошибка при переименовании через FileSystemObject абсолютно понятна и логична. В файловой системе Windows имя файла "TEST.txt" и "test.txt" и "TeSt.TxT" идентичны. Поэтому при присвоении имени таким кодом:

f.name=Lcase(FileName)

мы получаем ошибку "Файл уже существует".

Обходится это использованием метода Move, который есть у объекта File или функцией MoveFile у объекта FileSystemObject.

Option Explicit

Dim fso, fileName
Set fso = CreateObject("Scripting.FileSystemObject")

fileName = "C:\TEST.txt"

'Переименование в нижний регистр
fso.GetFile(fileName).Move LCase(fileName)

Потеряли расширение имени файла

В настройках Проводника задано "Скрывать расширение для зарегистрированных типов файлов".

Может быть для переименования воспользоваться Shell.Application

Колдунство продолжается. Код:

FolderPath = "C:\"

Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.NameSpace(FolderPath)
Set objFolderItem = objFolder.ParseName("autoexec.bat")
wscript.echo objFolderItem.Name

Под Win7:

Под WinXP:

Потеряли расширение имени файла

2alexii: Согласен, косяков допустил много, виноват. Как менять тему ветки не разобрался. Адекватного названия для ветки тоже не придумал Не стебусь, честно.

Приводите достаточный код. Из приведённого неясно, что такое «FileName» и т.п.

Почему VBA, а не VBS - откуда в VBA wscript.echo?!!

Если честно, я тут с ОРЗ сижу, и страшно туплю. Разумеется VBS.

Да. Спс большое. Так заработало

Может быть для переименования воспользоваться Shell.Application или вызовом cmd.exe

 If FileName <> Lcase(FileName) Then
      wscript.echo  FileName
      set f = fso.GetFile(FileName)
      f.name=Lcase(FileName)
   End If

Но, собственно, преобразования к нижнему регистру все равно не происходит.

   If FileName <> Lcase(FileName) Then
      wscript.echo  FileName
      f = fso.GetFile(FileName)
      f.name=Lcase(FileName)
   End If

И вот такой результат (47 строка - это f.name=Lcase(FileName)):

Что не так-то?
Спасибо