从文本文件％用户名％中读取路径[重复]

Question

我写了一个小脚本，它正在读出一个位于 netlogon 文件夹中的文本文件。在这个文件中，它们是一些类似C:\Users\%USERNAME%\AppData\Roaming\Folder\ 的路径。

我的脚本正在读取文本文件，因此必须删除此文件夹。 我认为的问题是脚本不知道如何处理%username%。如果我在文本文件中写C:\Users\myusername\AppData\Roaming\Folder\，它似乎可以工作。

我该如何解决这个问题？

Answer 1

使用这个：

Dim folderPAth, objShell, objFso
Set objShell = CreateObject("wscript.shell")
folderPath = objShell.ExpandEnvironmentStrings("C:\Users\%USERNAME%\AppData\Roaming\Folder")
Set objShell = Nothing

'To Delete the Folder
Set objFso = createObject("Scripting.FileSystemobject")
If objFso.FolderExists(folderPath) then
   objFso.DeleteFolder folderPath,True
End If
Set objFso = Nothing 

“ExpandEnvironmentStrings”方法将用实际用户名替换 %USERNAME%。现在您可以删除该文件夹了。