Vbscript 移动文件夹结构的安装脚本问题

当我们将文档和设置文件夹从C驱动器完全移动到D驱动器时，产品加载项安装不起作用，最终弹出windowsFolderSplit（0）：C，错误文件夹不存在？对于具有单个分区的系统，这可以正常工作，但仅对于多个分区，这不起作用

这是安装脚本中使用的vbscript代码，我需要在这里做任何修改吗

Dim windowsFolder      ' For finding shortcut location
Dim windowsFolderSplit ' For isolating the WINDOWS drive

windowsFolder = fso.GetSpecialFolder(WindowsFolder)
If DEBUG = "D1" Then        
   MsgBox "windowsFolder:" & windowsFolder
End If

windowsFolderSplit = Split(windowsFolder, "\", -1, 1)

If DEBUG = "D1" Then        
   MsgBox "windowsFolderSplit(0):" & windowsFolderSplit(0)
   MsgBox "windowsFolderSplit(1):" & windowsFolderSplit(1)
End If

Set docAndSetFolder = fso.GetFolder(windowsFolderSplit(0) & "\Documents and Settings")

是否将值硬编码到“C”驱动器？

SpecialFolders（）：

或者可选地：

Set S = CreateObject("WScript.Shell")
Set E = S.Environment
WScript.Echo E("USERPROFILE")

---

“产品插件”到底是什么意思？@reporter这就是我说的产品补丁。该产品运行良好，但当我开始安装补丁时，它抛出了这一个。该vbscript是修补程序安装的一部分，是否将值硬编码到“C”驱动器？是的，“空间windows文件夹”通常是指向硬盘上特定路径的链接。如果文档和设置文件夹仅存在于D文件夹中，而不存在于C文件夹中，则此代码是否会获取该文件夹？第一个代码将获取MSDN文章中列出的特殊文件夹，无论它们在何处。第二个代码在命令行中获取环境变量-type

SET

，以查看哪些变量是打开的，可以返回

Set S = CreateObject("WScript.Shell")
Set E = S.Environment
WScript.Echo E("USERPROFILE")