Code: Alles auswählen
[url=https://www.purebasic.fr/german/viewtopic.php?p=366113] Hier geht es zu meinem Letzten Beitrag [/url]
Code: Alles auswählen
[url=https://www.purebasic.fr/german/viewtopic.php?p=366113] Hier geht es zu meinem Letzten Beitrag [/url]
Gut gemeint, aber das hilft mir leider aus zwei Gründen nicht weiter. Erstens zeigst Du nicht, wie man so einen Link erstellt. Und das ist - zweitens - noch wichtiger für mich, als Dein Link hier ganz woanders hinzeigt, nicht auf meinen Lösungspost.tft hat geschrieben: 02.06.2024 02:32Code: Alles auswählen
[url=https://www.purebasic.fr/german/viewtopic.php?p=366113] Hier geht es zu meinem Letzten Beitrag [/url]
Das stimmt übrigens nicht, Purebasic kann ja nichts dafür, dass Du nicht erkannt hast, dass es sich nicht um eine Desktopverknüpfung (*.lnk), sondern um eine Internetverknüpfung (*.url) handelt.OlderCoder hat geschrieben: 02.06.2024 08:27 @Bisonte:
Das mag sein. Aber PureBasic kann nun mal mit .lnk nichts anfangen, braucht, wie es aussieht, zwingend .url. Und das ist hier entscheidend.
Aber es hatte damit, ohne explizit Adminrechte anzufordern, bei mir geklappt.
Code: Alles auswählen
Procedure GetLinks(Folder$, List FileNames$())
Protected Dir
If Right(Folder$, 1) <> #PS$
Folder$ + #PS$
EndIf
Dir = ExamineDirectory(#PB_Any, Folder$, "*.*")
If Dir
While NextDirectoryEntry(Dir)
If DirectoryEntryType(Dir) = #PB_DirectoryEntry_File
Select LCase(GetExtensionPart(DirectoryEntryName(Dir)))
Case "lnk", "url"
AddElement(FileNames$())
FileNames$() = Folder$ + DirectoryEntryName(Dir)
EndSelect
EndIf
Wend
FinishDirectory(Dir)
EndIf
ProcedureReturn Dir
EndProcedure
Global NewList Files$()
GetLinks("C:\", Files$())
ForEach Files$()
Debug Files$()
Next