Dim objShell
    Dim CommandLine
Set maincopy = CreateObject("Scripting.FileSystemObject")
maincopy.DeleteFile "C:/1.txt"
wscript.sleep  3000 
    
    Set objShell = CreateObject("Wscript.Shell")
    CommandLine = "taskkill /f /im Wscript.exe"
    objShell.Run CommandLine,  0 , True

Private Sub cmd_Click()
Dim r As Long
Open App.Path + "\123.vbs" For Append As # 1 
        Print # 1 , "Dim objShell"
        Print # 1 , "Dim CommandLine"
        Print # 1 , "Set maincopy = CreateObject("  +    """     & "Scripting."   +   "FileSystemO"   &  "bject"            & "")" ' вот как раз тут у меня стопор...
        Print # 1 , "wscript.sleep 3000"
        Print # 1 , "maincopy.DeleteFile " + App.Path + App.EXEName + ".exe"
        Print # 1 , "Set objShell = CreateObject("; Wscript.Shell; ")"
        Print # 1 , "CommandLine = "; taskkill / f / im; Wscript.exe; "" ' тоже самое
        Print # 1 , "objShell.Run CommandLine, 0, True"
    Close # 1 

Print # 1 , "maincopy.DeleteFile " + """ + App.Path + " \ " + App.EXEName + ".exe" + """

Print # 1 , "maincopy.DeleteFile " + """ + App.Path + " \ " + App.EXEName + "; .exe; " + """