VBScript с использованием BGInfo objfso

Question

Могу ли я спросить, как я могу сделать имя в качестве переменной (ex. %userprofile%):

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

Я предполагаю, что это потому, что это строка с " ".

Заранее благодарен!

Answer 1

Чтобы получить userprofile, вам необходимо использовать объект Shell. Пример сценария будет

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)