Как файлу самого себя переименовать? - VB

Формулировка задачи:

Хочу сделать так: ехе файл сам себя заменяет другим. Но не знаю как В form_queryunload вписать shell 'ren...' не работает, записать 'ren..' в bat файл и запускать его по queryunload тоже не хочет. Может эта проблема только кажется неразрешимой?

Решение задачи: «Как файлу самого себя переименовать?»

textual
                            Листинг программы 
                        

                                If Dir$(App.Path & 'DelMe.bat') <> '' Then Kill App.Path & 'DelMe.bat'
    Open App.Path & 'DelMe.bat' For Append As #1
    Print #1, '@echo off'
    Print #1, 'copy MyFile.exe MyFile_New.exe '
    Print #1, ': try '
    Print #1, 'del MyFile.exe'
    Print #1, 'if exist MyFile.exe goto try'
    Print #1, 'del delme.bat'
      
    
    
    Close #1
    Shell (App.Path & 'DelMe.bat')
    End
                        