×××请问如何建立程序组和快捷方式×××

Question

Private Sub Form_Load()
    Dim wsh As New WshShell
    Dim ProgDir As String, ts As String
    ProgDir = wsh.SpecialFolders("Programs")
    ts = ProgDir & "\我的程序组"
    If Dir(ts, vbDirectory) = "" Then MkDir ts
    Dim UrlLnk As WshURLShortcut, Lnk As WshShortcut
    Set UrlLnk = wsh.CreateShortcut(ts & "\msdn网站.url")
    UrlLnk.TargetPath = "http://msdn.microsoft.com"
    UrlLnk.Save
    Set Lnk = wsh.CreateShortcut(ts & "\启动程序.lnk")
    Lnk.TargetPath = App.Path & "\" & App.EXEName & ".exe"
    Lnk.Save
End Sub

Answer 1

建立程序组实际上就是在X:\windows\start menu\Programs下创建目录。
用mkdir语句试试。

Answer 2

谢谢bcpl兄，我新建了一个工程，你的代码运行很成功但是把这段代码插入到我的程序里后，出现了“自动化错误”，为什么呢？