*.exe переименовывает сам себя

[Decaz]

Каким образом можно сделать так, чтобы при нажатии на кнопку в программе её исполнительный файл exe переименовал сам себя, т.е., например был Test.exe, а стал Test2.exe, и вообще можно-ли такое сделать?

[GAGArin]

Запустить лежащую рядом прогу которая все сделает и снова запустит первую (можно её даже быстренько написать перед этим).

[Zer]

например так:

Код: Выделить всё

Dim FileName1 As String
Dim FileName2 As String
FileName1 = App.Path & "\" & App.EXEName & ".exe"
FileName2 = App.Path & "\" & App.EXEName & "1" & ".exe"
FileCopy FileName1, FileName2


[Zer]

Старый файл убить не забудь...

[Decaz]

Спасибо!