的VBScript與bginfo使用objfso

Question

請問我怎樣才能使用戶名作爲變量(ex. %userprofile%)：

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

我想這是因爲它是與" "的字符串。

在此先感謝！

Answer 1

您需要使用Shell對象來獲取userprofile。示例腳本將

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)