0

次の vbscript を使用してドキュメントをバックアップしています。

If strMessage = vbYes Then
    Dim FSO
    Dim objShell
    Dim strDesktop 
    Dim strDocuments

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set objShell = WScript.CreateObject("Wscript.Shell")

    strDesktop = objShell.SpecialFolders("Desktop")
    strDocuments = objShell.SpecialFolders("MyDocuments")

    If FSO.DriveExists("H") Then
        FSO.CopyFolder strDesktop, "H:\Desktop", True
        FSO.CopyFolder strDocuments, "H:\Documents", True
    Else 
        MsgBox("Your personal folder is not mapped.  Please contact IT to have it mapped or created.")
    End if
Else
    MsgBox("You will be reminded again in 30 days")
End if

マイドキュメントをコピーするときに「権限が拒否されました」というエラーが発生することを除けば、問題なく動作します。自分のドキュメントをコピーするためのアクセス権を持たない理由が思い浮かびません..Windows Script Host と関係があるのでしょうか?

4

0 に答える 0