将用户配置文件应用到路径中

Question

我需要获取计算机的用户文件夹名称并将其放入路径中，在本例中为启动和桌面路径。我想出了如何找到用户文件夹名称，但我一直在想办法将其放入路径中。有人知道怎么做吗？

Set WshShell = CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("PROCESS")

这会很有帮助。

编辑

Set objShell = Wscript.CreateObject("Wscript.Shell")
strPath = objShell.SpecialFolders("Startup")
wscript.echo strPath
dim WSHShell, desktop, pathstring, startup, objFSO
set objFSO=CreateObject("Scripting.FileSystemObject")
Set WSHshell = CreateObject("WScript.Shell")
desktop = WSHShell.SpecialFolders("Desktop")
pathstring = objFSO.GetAbsolutePathName(desktop)
WScript.Echo desktop
set filesys=CreateObject("Scripting.FileSystemObject") 
filesys.CopyFile "desktop", dolpis.vbs,"startup", dolpis.vbs
set objFso=createObject("scripting.fileSystemObject")
set objWShell=wScript.createObject("WScript.Shell")
usrName=objWShell.expandEnvironmentStrings("%USERNAME%")
if objFso.folderExists(strFolder) then
   objFso.copyFile strFileToCopy,strFolder&"\",True
else
   msgbox "The folder " & strFolder & " does not exist"
end if
CreateObject("WScript.Shell").Run("C:\WINNT\system32\notepad.exe")
Set wshshell = wscript.CreateObject("WScript.Shell")

第 11 行指出 "Object Required: Dolpis"

Answer 1

WshShell 的 SpecialFolders 属性 object 提供对 Windows 特殊文件夹（桌面、收藏夹等...）的引用

Windows 个可用的特殊文件夹列表：

所有用户桌面
所有用户开始菜单
所有用户程序
所有用户启动
桌面
收藏夹
字体
我的文档
网罩
印花罩
计划
最近
发送至
开始菜单
启动
模板

Set WshShell = CreateObject("WScript.Shell")
wscript.echo "Desktop Folder = " & WshShell.SpecialFolders("Desktop")
wscript.echo "Startup Folder = " & WshShell.SpecialFolders("Startup")

For i = 0 to WshShell.SpecialFolders.Count -1 
     sf = sf & WshShell.SpecialFolders(i) & vbCr 
Next 
wscript.echo "Special folders of Windows : " & vbCrlf & vbCrlf & sf

编辑

Option Explicit
Dim WshShell,Desktop,Startup
Set WshShell = CreateObject("WScript.Shell")
Desktop = WshShell.SpecialFolders("Desktop")
Startup = WshShell.SpecialFolders("Startup")
wscript.echo Desktop
wscript.echo Startup

将用户配置文件应用到路径中

Apply userprofile into a path

windows

vbscript

windows-2000