devxlogo

A Shortcut to Load the Last Project Into VB

A Shortcut to Load the Last Project Into VB

Most of the time, I wish to start VB and resume the last project I was working on, but I don’t like to littermy desktop with program icons for works in progress. As a solution install this program in compiled form onyour desktop. You can probably adapt it to other versions of VB as well as to other programs that store thisinformation in an INI file:

 Option ExplicitDeclare Function GetPrivateProfile_        String Lib "kernel32" _        Alias "GetPrivateProfileStringA" _                (ByVal lpApplicationName As _                String, ByVal lpKeyName As Any, _                ByVal lpDefault As String, _                ByVal lpReturnedString As _                String, ByVal nSize As Long, _                ByVal lpFileName As String) _                As LongPublic Sub Main()        Dim temp As String, rVal$, tmp _                As Long        rVal$ = String$(256, 0)        tmp = GetPrivateProfileString_                ("Visual Basic", _                "vb32location", "", rVal$, _                ByVal Len(rVal$) - 1, _                "c:windowsvb.ini")        temp = Left$(rVal$, tmp)        rVal$ = String$(256, 0)        tmp = GetPrivateProfileString_                ("Visual Basic", "RecentFile1", _                        "", rVal$, ByVal Len(rVal$) _                        - 1, "c:windowsvb.ini")        temp = temp & " """ & Left$(rVal$, _                tmp) & """"        Shell temp, 1        EndEnd Sub

devx-admin

Share the Post: