_TITLE "Shortcut Maker" PRINT "Enter EXE file name inside QB64 folder (no need to enter file extension)" INPUT a$ Program$ = a$ + ".exe" Icon$ = "qb64.ico" IF a$ = "" THEN Program$ = "qb64.exe" CreateShortCut Program$, Icon$ SUB CreateShortCut (Program$, Icon$) f = FREEFILE SHELL _HIDE "CD > PRGMDIR.INF" OPEN "PRGMDIR.INF" FOR INPUT AS #f LINE INPUT #f, PATH$ CLOSE #f KILL "PRGMDIR.INF" PATH$ = PATH$ + "\": FILE$ = PATH$ + Program$ PRINT PATH$ 'DEMO print A$ = ENVIRON$("HOMEDRIVE") B$ = ENVIRON$("HOMEPATH") C$ = A$ + B$ 'shortcut to user's desktop if found IF C$ = "" THEN C$ = ENVIRON$("ALLUSERSPROFILE") PRINT C$ 'DEMO print URLFILE$ = MID$(Program$, 1, INSTR(Program$, ".")) + "URL" IF C$ > "" THEN SHORTCUT$ = C$ + "\Desktop\" + URLFILE$ ELSE SHORTCUT$ = PATH$ + URLFILE$ END IF PRINT SHORTCUT 'DEMO print OPEN SHORTCUT$ FOR APPEND AS #f IF LOF(f) THEN CLOSE #f: PRINT "Shortcut already exists": EXIT SUB Q$ = CHR$(34) PRINT "Shortcut creation successful!" PRINT #f, "[InternetShortcut]" PRINT #f, "URL=" + Q$ + "file://" + FILE$ + Q$ PRINT #f, "WorkingDirectory=" + Q$ + PATH$ + Q$ PRINT #f, "IconIndex = " + Q$ + "0" + Q$ PRINT #f, "IconFile = " + Q$ + PATH$ + Icon$ + Q$ CLOSE #f END SUB