閉じる

ディスクトップにショートカットを作成する。


≪準備≫

ショートカットを作成するファイルは、「C:\db1.mdb」 とします。

ショートカットに表示する名前は、「サンプルmdb」 とします。

ショートカットに使用するアイコンファイルは、「C:\sheep.icl」 とします。





Sub setShortCut()

'デスクトップにファイルのショートカットを作成する

'WScript使用 2006/04/08 pPoy

    Dim myWSH As Object                 'WScript

    Dim link As Object

    Dim DesktopPath As String

    Dim filePath As String              '対象ファイルのフルパス

    Dim strIcon As String               'ショートカットファイル名

    

    filePath = "C:\db1.mdb"

    strIcon = "サンプルmdb.lnk"

    

    If MsgBox("デスクトップにショートカットを作成します。", _

        vbOKCancel) = vbCancel Then Exit Sub

    

    'ショートカット作成

    Set myWSH = CreateObject("WScript.Shell")

    DesktopPath = myWSH.SpecialFolders("Desktop")

    Set link = myWSH.CreateShortcut(DesktopPath & "\" & strIcon)

    With link

        '顔の黒いひつじさんのアイコン

        .IconLocation = "C:\sheep.icl,0"

        .TargetPath = filePath

        .WindowStyle = 1

        .WorkingDirectory = "C:\"

        .Save

    End With

    

    Set myWSH = Nothing: Set link = Nothing

    MsgBox "処理終了〜！ デスクトップを確認してください。", vbOKOnly

End Sub