DeleteFolder Environ发出错误“找不到路径”

时间:2014-03-27 16:00:32

标签: vb.net

这是代码的一部分:

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

当我尝试执行它时,它给了我这个错误:“找不到路径”

1 个答案:

答案 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")

现在你的其他路径似乎有点不对劲。 "* "(外卡后面的空格?)后跟一个文件名似乎不正确)