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

'ショートカットを作成する

  'lpstrFolderName：ディレクトリ
  'lpstrLinkName：アイコンの名前
  'lpstrLinkPath:ショートカットの元になるファイルのフルパスを指定
  'lpstrLinkArguments:コマンドライン
  
  
'＊このサンプルはVB5.0用です。4.0の場合はSTKIT432.DLLをつかいます。
'＊VB5STKIT.DLLファイルがその他のフォルダにある場合はパスを変更してください
'　>>>VB5STKIT.DLLがSystemフォルダにある場合は、DLL名だけでOKです。
Private Declare Function fCreateShellLink Lib "C:\Program Files\DevStudio\VB\setupkit\kitfil32\VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As Long


Private Sub Command1_Click()

Call fCreateShellLink("..\..\ﾃﾞｽｸﾄｯﾌﾟ", "calc.exe", "C:\Windows\Calc.exe", "")

End Sub