windows - 如何让vba文件自行删除

Question

我正在尝试让一个程序 self 删除，我正在使用一个单独的批处理文件来完成它。我正在使用这段代码:

Process.Start("cmd.exe", 
    "/C choice /C Y /N /D Y /T 1 & Del " + Application.ExecutablePath)
Application.Exit()

但是不能删除名称中有空格的文件。如何用“”将 Application.ExecutablePath 括起来，使其最后看起来像“FileName”？

Answer 1

我想通了，我使用了这段代码:

Dim applicationPath As String
Dim quote As String
quote = Chr(34)
applicationPath = fso.GetFileName(Application.ExecutablePath)
Process.Start("cmd.exe",
    "/C choice /C Y /N /D Y /T 1 & Del " + quote & applicationPath & quote)
Application.Exit()

有很多额外的代码用于解决问题。所以我把它缩减为:

Dim quote As String
quote = Chr(34)
Process.Start("cmd.exe",
    "/C choice /C Y /N /D Y /T 1 & Del " + quote & Application.ExecutablePath & quote)
Application.Exit()