PureBasic Forums - English

Code: Select all

CreateShortcut 
ShortcutTarget

Code: Select all

; Extract full program name from lnk file
; (C)Marc56(us) - 2015-11-27 
; Updated 2025-04-12

RegEx.s     = "^[A-Z]\:\\[\w\d\:\\\s\.()\-]+"
Source_Dir$ = GetUserDirectory(#PB_Directory_Desktop)

If Not CreateRegularExpression(1, RegEx)
    Debug "Bad RegEx" : End
EndIf

If ExamineDirectory(0, Source_Dir$, "*.lnk")
    While NextDirectoryEntry(0)
        If DirectoryEntryType(0) = #PB_DirectoryEntry_File
            File_Name$ = DirectoryEntryName(0)
            If ReadFile(2, Source_Dir$ + File_Name$)
                While Eof(2) = 0
                    Txt$ = ReadString(2)
                    If MatchRegularExpression(1, Txt$)
                        Debug "-" + RSet(File_Name$, 50, ".") + " > [" + Txt$ + "]"
                    EndIf
                Wend   
                CloseFile(2)    
            EndIf
        EndIf
    Wend
    FinishDirectory(0)
EndIf