的DeleteFolder ENVIRON給

Question

這裏是代碼的一部分的錯誤「找不到路徑」：

oFSO.DeleteFolder Environ("C:\Users\%USERNAME%\AppData\Local\Temp") & "\* " & oFSO.GetFile(strZipFile).Name, True 

當我嘗試執行它，它給了我這個錯誤：「找不到路徑」

Answer 1

使用

oFSO.DeleteFolder _ 
     Environment.ExpandEnvironmentVariables("C:\Users\%USERNAME%\AppData\Local\Temp") & _ 
     ...... 

或使用複雜的字符串連接（沒有周圍的環境變量的％）

oFSO.DeleteFolder _ 
"C:\Users\" & Environ("USERNAME") & "\AppData\Local\Temp") & "\* " .... 

但是用這種路徑問題時，最好的方法是使用環境類

Dim userData = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) 
Dim tempFolder = Path.Combine(userData, "temp") 

現在你的路徑的其餘部分似乎有點不對勁。 "* "（通配符後的空格？）後跟文件名似乎不正確）