Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час Лови тупица.
iOldName = "C:\Мои документы\Книга.xls" iNewName = "Продажи_2007.xls" With CreateObject("Scripting.FileSystemObject") If .FileExists(iOldName) = True Then .GetFile(iOldName).Name = iNewName Else MsgBox "Переименование файла невозможно", , "" End If End With
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.