这是代码的一部分:
oFSO.DeleteFolder Environ("C:\Users\%USERNAME%\AppData\Local\Temp") & "\* " & oFSO.GetFile(strZipFile).Name, True
当我尝试执行它时,它给了我这个错误:“找不到路径”
答案 0 :(得分:2)
使用
oFSO.DeleteFolder _
Environment.ExpandEnvironmentVariables("C:\Users\%USERNAME%\AppData\Local\Temp") & _
......
或使用复杂的字符串连接(没有围绕环境变量的%)
oFSO.DeleteFolder _
"C:\Users\" & Environ("USERNAME") & "\AppData\Local\Temp") & "\* " ....
但是,在处理这种路径时,最好的方法是使用Environment class
Dim userData = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
Dim tempFolder = Path.Combine(userData, "temp")
现在你的其他路径似乎有点不对劲。
"* "
(外卡后面的空格?)后跟一个文件名似乎不正确)