0

Documents and Settings フォルダを C ドライブから D ドライブに完全に移動したとき、製品アドオンのインストールが機能しません。ポップアップ windowsFolderSplit(0):C とエラー Folder does not exisit? が表示されます。単一のパーティションを持つシステムの場合、これは正常に機能しますが、複数のパーティションの場合のみ、これは機能しません

インストール スクリプトで使用される 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」ドライブに値をハードコーディングしていますか?

4

1 に答える 1

1

特別なフォルダー ( MSDN ):

Dim objShell As Object
Dim strPath As String

Set objShell = Wscript.CreateObject("Wscript.Shell")
strPath = objShell.SpecialFolders("MyDocuments")
wscript.echo strPath

またはオプションで：

Set S = CreateObject("WScript.Shell")
Set E = S.Environment
WScript.Echo E("USERPROFILE")
于 2012-07-06T20:09:42.717 に答える