Seite 2 von 2

Verfasst: 26.01.2009 18:23
von Little John
Cabble hat geschrieben:kann mir bitte jemand den link zu so einer library geben?
Siehe den Link in diesem Forumsbeitrag.
(Der mehr ins Auge fallende Link im ersten Beitrag des Threads verweist leider auf eine ältere Version der Bibliothek.)

Die ganze Sache könnte/sollte in der PB-Hilfe aber auch besser erklärt werden.

Gruß, Little John

Verfasst: 26.01.2009 18:28
von ts-soft
Cabble hat geschrieben:die access datenbank liegt mit im ordner des programms (wo auch die exe liegt)
Das ist aber keine gute Idee. Dort hat Dein Programm keine Schreibrechte,
wird Dein Programm ohne Admin-Rechte wohl auch nicht zugreifen können.

Besser wäre sowas:

Code: Alles auswählen

Procedure.s GetSpecialFolder(CSIDL.l)
  Protected *itemid.ITEMIDLIST
  Protected location.s = Space(#MAX_PATH)

  If SHGetSpecialFolderLocation_ (0, CSIDL, @*itemid) = #NOERROR
    If SHGetPathFromIDList_(*itemid, @location)
      CoTaskMemFree_(*itemid)
      If Right(location, 1) <> "" : location + "" : EndIf
      ProcedureReturn location
    EndIf
  EndIf
EndProcedure

Debug GetSpecialFolder(#CSIDL_COMMON_APPDATA) + "Cabble\unitbase.mdb"