Макрос для переименования файла.

[galleon2006]

Подскажите пожалуйста, как сделать переименование файла с помощью макроса, с добавлением даты перед началом имени файла.
Например, имя файла "Qwerty.doc", а нужно получить "15.09.11 - Qwerty.doc"
Я написал макрос, но он не переименовывает а создает новый файл, а нужно чтобы оставался только один файл


Sub SaveAsDate()
Dim strDate As String


strDate = Format(Now(), "ddmmyy")

ActiveDocument.SaveAs ActiveDocument.Path & "\" & strDate & " " & ActiveDocument.Name
End Sub

[Step_UA]

SaveAs - сохраняет под другим именем, добавьте удаление файла со старым именем

Sub SaveAsDate()
 Dim name As String
 name = ActiveDocument.name
 ActiveDocument.SaveAs ActiveDocument.Path & "\" & Format(Now(), "ddmmyy") & " - " & name
 Kill (ActiveDocument.Path & "\" & name)
End Sub

[Ципихович Эндрю]

уверен, что Килл, когда нибудь даст сбой, автор проверите, отпишитесь пжл

[Step_UA]

конечно нужно проверять что при переименовании не возникло ошибки и такой файл существовал ...

[Ципихович Эндрю]

Сообщение от Step_UA

конечно нужно проверять что при переименовании не возникло ошибки и такой файл существовал ...

нет позже именно на Килле, что-то типа он ещё занят когда хотим удалить, точно не помню

[galleon2006]

Спасибо, с удалением работает нормально, пока без сбоев.
А из-за чего может возникнуть ошибка с занятостью файла? И разве при этом макрос выполнится удачно а не напишет, что произошла ошибка?

[Ципихович Эндрю]

Сообщение от galleon2006

А из-за чего может возникнуть ошибка с занятостью файла? И разве при этом макрос выполнится удачно а не напишет, что произошла ошибка?

нет, макрос не выполнится удачно, а напишет ошибку № 70
Ждите
Из-за чего? Ну он же не метеор, счёт идёт на доли секунды

[galleon2006]

Сообщение от Ципихович Эндрю

нет, макрос не выполнится удачно, а напишет ошибку № 70
Ждите
Из-за чего? Ну он же не метеор, счёт идёт на доли секунды

Понял. А может быть тогда как то паузу добавить, чтобы ждал, к примеру 1-2 секунды, или такой функции нет?

[Sasha_Smirnov]

Вроде бы есть, но лучше, наверно, поставить вначале (во 2-й строке)

DoEvents

http://yandex.ru/yandsearch?text=doevents

[Aent]

А ещё никто не отменял для закрытых файлов оператора NAME (VBA)

Renames a disk file, directory, or folder.

Syntax

Name oldpathname As newpathname

The Name statement syntax has these parts:

Part Description
oldpathname Required. String expression that specifies the existing file name and location — may include directory or folder, and drive.
newpathname Required. String expression that specifies the new file name and location — may include directory or folder, and drive. The file name specified by newpathname can't already exist.

Пример из HELP

Dim OldName, NewName
OldName = "OLDFILE": NewName = "NEWFILE"    ' Define file names.
Name OldName As NewName    ' Rename file. 

OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
Name OldName As NewName    ' Move and rename file.