Visual Basic Programming Code Examples Visual Basic > Windows and Controls Code Examples Make group en icons under w95 Make group en icons under w95 'in vb4 & w95 Declare Function OSfCreateShellGroup Lib "STKIT432.DLL" Alias "fCreateShellFolder" _ (ByVal lpstrDirName As String) As Long Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal _ lpstrFolderName As String, ByVal lpstrLinkName As String, _ ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long ' SUB: CreateShellGroup ' ' Creates a new program group off of Start>Programs in the ' Windows 95 shell if the specified folder doesn't already exist. ' ' IN: [strFolderName] - text name of the folder. ' This parameter may not contain ' backslashes. ' ex: "My Application" - this creates ' the folder Start>Programs>My Application ' Public sub CreateShellGroup(ByVal strFolderName As String) If strFolderName = "" Then exit Sub end If dim fSuccess As Boolean fSuccess = OSfCreateShellGroup(strFolderName) End Sub 'use as dim res& dim vLocation$ vLocation$ = "testing" Call CreateShellGroup(vLocation$) vLocation$ = "..\..\Start Menu\Programs\" & vLocation$ res& = fCreateShellLink(vLocation, [title], [path&executable], "") 'where ' title = name to be mentioned ' path&executable = full path and executable name of application Return
