读取文本文件％username％的路径

Question

我写了一个小脚本，它正在读出一个位于netlogon文件夹中的文本文件。在此文件中，它们是%username%中的一些路径。

我的脚本正在读取文本文件，必须删除此文件夹。 我认为问题是脚本不知道如何处理C:\Users\myusername\AppData\Roaming\Folder\。如果我在文本文件中写{{1}}它似乎有效。

我该如何解决这个问题？

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 

方法＆＃39; ExpandEnvironmentStrings＆＃39;将使用实际用户名替换％USERNAME％。现在您可以删除该文件夹了。