2016-04-20 11 views
1

Darf ich fragen, wie ich den Benutzernamen als Variable (ex. %userprofile%) machen kann:Vbscript mit BGInfo mit objFSO

Set objFile = objFSO.OpenTextFile("c:\users\username\AppData\Roaming\Samplefolder\sampletext.txt", 1) 

Ich nehme an, es ist, weil es sich um eine Zeichenfolge mit dem " " ist.

Vielen Dank im Voraus!

+0

durch die Art und Weise .. wenn ich versuche, es zu ändern, um „% username%/appdate/...“ es gibt einen Fehler: „Fehler scripted Feld Auswertung“ – Alex

+0

Bitte verwenden Sie Code-Tags in deine Fragen. Vielen Dank. – Clijsters

Antwort

2

Sie müssen Shell Objekt verwenden, um die userprofile zu holen. Beispielskript

wäre
dim objShell, strPath, objFSO, objFile 
Set objShell = WScript.CreateObject("WScript.Shell") 
strPath = objShell.ExpandEnvironmentStrings("%UserProfile%") 
strPath = objFSO.BuildPath(strPath, "AppData\Roaming\Samplefolder\sampletext.txt") 

set objFSO = CreateObject("Scripting.FileSystemObject") 
set objFile = objFSO.OpenTextFile(strPath,1) 
+0

vielen dank pal! Ich werde es versuchen! – Alex

+0

Hallo Pankaj, es gibt einen Fehler mit wscript zurück - set objShell = Wscript.CreateObject ("Wscript.Shell") – Alex

+0

@Alex - Verwenden Sie ExcelVBA oder VBScript (. Vbs) -Datei? Versuchen Sie 'Set objShell = CreateObject (" Wscript.Shell ")' –