如何使vba文件自己刪除

Question

我想讓程序刪除自己，我使用單獨的批處理文件來做到這一點。我正在使用此代碼：

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()