VBAで圧縮したzipファイルについて

Question

VBAでLocal\Temp\11\radD8E1C.tmp.ps1が生成されて、PowerShellで指定複数ファイルをzip形式で圧縮してます。
エディタでデバッグすると、zipファイルは作成されますが、Callの後zipファイルが消えるのはなぜでしょうか？
※ps1をPowerShellで手動実行したら、問題なくzipファイルは生成されました。

Compress-Archive -Path "ファイル1のフルパス","ファイル2のフルパス","ファイル3のフルパス","ファイル4のフルパス","ファイル5のフルパス","ファイル6のフルパス","ファイル7のフルパス","ファイル8のフルパス","ファイル9のフルパス" -DestinationPath "\保存先\aaa.zip" -Force

Private Sub ExecPowerShell(strCommand As String)

    Dim strTemp As String
    Dim strFile As String
    Dim strBuf As String

    With CreateObject("Scripting.FileSystemObject")

        strTemp = .GetSpecialFolder(2).Path
        strFile = .BuildPath(strTemp, .GetTempName & ".ps1")

        'テキスト出力
        With .CreateTextFile(strFile, True)
            .Write strCommand
            .Close
        End With

        strBuf = "powershell"
        strBuf = strBuf & " -ExecutionPolicy"
        strBuf = strBuf & " RemoteSigned "
        strBuf = strBuf & " -File"
        strBuf = strBuf & " """ & strFile & """"

        Call CreateObject("WScript.Shell").Run(strBuf, 0, True)
        'With CreateObject("WScript.Shell")
            'Call .Run(strBuf, 0, True)
        'End With

        .DeleteFile strFile

    End With

End Sub

Comments

[radames1000]

呼び出し元でzipを削除するコードを書いてませんか？

[rena_168]

1行ずつデバッグしていて、zipを削除するようなコードはなかったです。
ps1をTempフォルダ配下に作成し、実行すると消えるものでしょうか？

[radames1000]

質問は「zipファイル」が消えるというものですが、「ps1ファイル」が消えるのがなぜか、という質問の間違いでしょうか。
提示された情報だけを実行した場合、zipファイルが作成されps1ファイルが削除されます。テストしましたが問題ありませんでした。（zipは残った）

[rena_168]

すみません、zipファイルが消えます。VBAをデバッグしててCallでパワーシェルが起動され、パワーシェル実行完了したら生成されたzipファイルが消えました。ps1ファイルは、最後に削除の処理があるから、消えるのは問題ないです。なぜ自分だけそうなるのかが不思議ですね。

[radames1000]

質問は記載の通りで間違いないんですね。。。
.DeleteFile strFileでブレイクポイントを設定していただいてもzipが消えるということですよね。
（Callが終わった直後にzipが消える）
後は保存先を変更したり、ファイルの数を減らしてみたり、ExecPowerShellプロシージャ単体で動かしてみたり、でしょうか。色々条件を変えないと分からなさそうです。

[radames1000]

環境も書いておいてくださいね。
元のQiitaでは下記環境となってましたので。
PowerShell 5.0
.Net Framework 4.5 以降
Windows 10　なら大丈夫なはず。