我正在尝试让一个程序 self 删除,我正在使用一个单独的批处理文件来完成它。我正在使用这段代码:
Process.Start("cmd.exe",
"/C choice /C Y /N /D Y /T 1 & Del " + Application.ExecutablePath)
Application.Exit()
但是不能删除名称中有空格的文件。如何用“”将 Application.ExecutablePath
括起来,使其最后看起来像“FileName”?
最佳答案
我想通了,我使用了这段代码:
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()
关于windows - 如何让vba文件自行删除,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34344953/