一个EXE文件自身修改的问题

Question

    If Command = "" Then
        If Dir(App.Path & "\temp.exe") <> "" Then Kill App.Path & "\temp.exe"
        FileCopy App.Path & "\read.exe", App.Path & "\temp.exe"
        pid = GetCurrentProcessId
        runline = App.Path & "\temp.exe " & CStr(pid)
        Shell runline, vbNormalFocus
        Exit Sub
    Else
        pid = val(Command)
        '等待程序结束
        Do
            Handle = OpenProcess(SYNCHRONIZE, 0, pid)
            CloseHandle Handle
            DoEvents
        Loop Until Handle = 0
        '在这里我可以直接kill read.exe但不能写read.exe是怎么回事？
     End If

Answer 1

我日，打开模式不对，问题解决了。另外想问问，使用CreateFile来打开文件使用File_Flag_Delete_ON _Close时，在CloseHandle以后，文件是删除到回收站里，如何用类似的方法直接删除掉而不放到回收站里(回收站的设置不算）

Answer 2

。貌似没有办法。在Close的时候，手动删除把