Pfad aus Textdatei lesen% username%

Question

Ich habe ein kleines Skript geschrieben, das eine Textdatei ausliest, die sich in einem Netlogon-Ordner befindet. In dieser Datei sind einige Pfade wie C:\Users\%USERNAME%\AppData\Roaming\Folder\.

Mein Skript liest die Textdatei und muss diesen Ordner löschen. Das Problem Ich denke, dass das Skript nicht mit %username% umgehen kann. Wenn ich C:\Users\myusername\AppData\Roaming\Folder\ in die Textdatei schreibe, scheint es zu funktionieren.

Wie kann ich dieses Problem lösen?

Answer 1

verwenden:

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 

Die Methode 'Expand' wird% BENUTZERNAME% mit den tatsächlichen Benutzernamen ersetzen. Jetzt können Sie den Ordner löschen.