叩首求教高人:怎样用vb实现新建:文件夹及快捷方式

Question

新建文件夹很容易
mkdir快捷方式如下:
Private Declare Function fCreateShellLink Lib "vb5stkit.dll" _
   (ByVal Forder As String, ByVal ShortCutName As String, _
    ByVal ExePath As String, ByVal Params As String) As LongDim ret As Long
'放在DeskTop
ret = fCreateShellLink("..\..\Desktop", "MyName", "c:\tools\spe3\pe2.exe", "")
'放在開始功能表
ret = fCreateShellLink("..", "MyName", "c:\tools\spe3\pe2.exe", "")
'放在程式集功能表
ret = fCreateShellLink(".", "MyName", "c:\tools\spe3\pe2.exe", "")

Answer 1

但是这个函数用在VB6STKIT.dll里面就不行了，多了两个参数，其声明形式可以为：Private Declare Function CreateShellLink Lib "VB6STKIT.DLL" Alias "fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Integer, ByVal sParent As String) As Long
当然也可以不要别名，但是前面第一参数我不太搞得董，应该是说建立快捷方式的位置，我用相对于应用程序的路径都行，但是用绝对路径就执行不成功（返回值为０）。后面两个参数分别可以设置为－１和vbNullString.请高手出招！