从文本文件 %用户名 %读取路径

Question

我写了一个小脚本，它读出一个位于netlogon文件夹中的文本文件。在此文件中，有一些路径类似于C:Users%USERNAME%AppDataRoamingFolder。

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

如何解决这个问题？

Answer 1

使用这个：

Dim folderPAth, objShell, objFso
Set objShell = CreateObject("wscript.shell")
folderPath = objShell.ExpandEnvironmentStrings("C:Users%USERNAME%AppDataRoamingFolder")
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%替换为实际的用户名。现在，您将能够删除该文件夹。