Win7(32bit)で実行できるVBscriptプログラムがWin10(64bit)で実行できない

Question

パブリックのデスクトップ上にドラッグ＆ドロップしたファイルのショートカットを作成したいと思い、VBSを作成しました。

Windows7(32bit)環境化では動き、Windows10(64bit)ではエラーを出して動かなく困っています。

以下がコードになります。

'////////////////////////////////////////////////////////////////////////////////////////////////

Option Explicit       

    'ドラッグアンドドロップで取得したファイルパスを変数に入れる

    Dim GetPathArray

    Set GetPathArray = WScript.Arguments

    'ファイルシステムオブジェクト

    Dim objFSO     

    Set objFSO = CreateObject("Scripting.FileSystemObject")             

    'イテレータ

    Dim pt

    'ファイルの数ぶんループする

    For Each pt in GetPathArray     

        '取得したファイル名

        Dim FileName

        FileName = objFSO.GetFileName(pt)  

        Dim ArgStr6            

        ArgStr6 = Left(FileName, 6)

       Dim objWshShell

       Set objWshShell = WScript.CreateObject("WScript.Shell")

       Dim objShortcut

       Set objShortcut = objWshShell.CreateShortcut("C:\Users\Public\Desktop" & ArgStr6 & ".lnk") 'ショートカット作成

       objShortcut.TargetPath = pt 'フルパスを指定

       objShortcut.Save 'ショートカットを保存（新規作成）

       Set objShortcut = Nothing

       Set objWshShell = Nothing            

       Next

    'オブジェクト変数をクリア

    Set objFSO = Nothing

'////////////////////////////////////////////////////////////////////////////////////////////////

Answer 1

パブリックのデスクトップ上にドラッグ＆ドロップしたファイルのショートカットを作成したいと思い、VBSを作成しました。

Windows7(32bit)環境化では動き、Windows10(64bit)ではエラーを出して動かなく困っています。

以下がコードになります。

'////////////////////////////////////////////////////////////////////////////////////////////////

Option Explicit       

 

    'ドラッグアンドドロップで取得したファイルパスを変数に入れる

    Dim GetPathArray

    Set GetPathArray = WScript.Arguments

   

    'ファイルシステムオブジェクト

    Dim objFSO     

    Set objFSO = CreateObject("Scripting.FileSystemObject")             

    'イテレータ

    Dim pt

 

    'ファイルの数ぶんループする

    For Each pt in GetPathArray     

                       

        '取得したファイル名

        Dim FileName

        FileName = objFSO.GetFileName(pt)  

        Dim ArgStr6            

        ArgStr6 = Left(FileName, 6)

       Dim objWshShell

       Set objWshShell = WScript.CreateObject("WScript.Shell")

       Dim objShortcut

       Set objShortcut = objWshShell.CreateShortcut("C:\Users\Public\Desktop" & ArgStr6 & ".lnk") 'ショートカット作成

       objShortcut.TargetPath = pt 'フルパスを指定

       objShortcut.Save 'ショートカットを保存（新規作成）

       Set objShortcut = Nothing

       Set objWshShell = Nothing            

   

       Next

   

    'オブジェクト変数をクリア

    Set objFSO = Nothing

'////////////////////////////////////////////////////////////////////////////////////////////////

マイクロソフト コミュニティは一般ユーザー向けのフォーラムなので Msdn フォーラム　が適当かと

Microsoft フォーラム

Answer 2

すいません、ありがとうございます。