テキストファイルからのパスの読み取り％username％

Question

netlogonフォルダにあるテキストファイルを読み込んでいる小さなスクリプトを書きました。このファイルには、C:\Users\%USERNAME%\AppData\Roaming\Folder\のようないくつかのパスがあります。

スクリプトがテキストファイルを読み込んでいて、このフォルダを削除する必要があります。 問題私は、スクリプトが%username%の処理方法を知らないと考えています。私が​​をテキストファイルに書き込むと、うまくいくようです。

どうすればこの問題を解決できますか？

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％に置き換えられます。これで、フォルダを削除できます。