zwei "Special-Folder"-Fragen

[c4s]

Ich hatte soeben festgestellt, dass eine User-Lib Probleme bei mir macht,
daher bin ich nun dabei es selber zu lösen.

Ist ja nichts großes mit dem Special-Folder heraussfinden...
Aber ich bin nun auf zwei Methoden gestoßen diese herauszufinden:
> 'SHGetSpecialFolderPathA' laden
oder
> 'SHGetSpecialFolderLocation_()' und SHGetPathFromIDList_()
Ich frage mich nun welche davon sicherer ist bzw "kugelsicher" (wie es so oft
in der Hilfe genannt wird ) ist?

Die zweite Frage bezieht sich nun direkt auf den Desktop-Pfad.
Dafür gibt es die Konstanten #CSIDL_DESKTOP und
#CSIDL_DESKTOPDIRECTORY.
Könnt ihr mir den Unterschied sagen bzw welche mir nun immer einen
richtigen Datei-Pfad (sodass wenn ich Dateien dorthin kopiere, diese auf
dem Desktop gezeigt werden) liefert!?


Danke, c4s

[RSBasic]

Code: Alles auswählen

Procedure.s spec_folder(clsi_const.l)
   path.s = Space(2048)
   SHGetSpecialFolderLocation_(0,clsi_const,@pidl.l)
   SHGetPathFromIDList_(pidl,@path)
   CoTaskMemFree_(pidl)
   ProcedureReturn path+"\"
EndProcedure

Debug spec_folder(#CSIDL_DESKTOPDIRECTORY)

Ich hatte mit diesem Code keine Probleme, kann aber nicht sagen, ob es kugelsicher ist.

[ts-soft]

Ich hatte mit diesem Code keine Probleme, kann aber nicht sagen, ob es kugelsicher ist.

Ist schon okay, aber es ist immer besser für Pointer auch Pointer zu
verwenden, sowie alle Variablen zu deklarieren

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_DESKTOPDIRECTORY) 

Vor allem wenn man sowas als Baustein zur Mehrfachverwendung speichert

PS: Die ganzen Ifs sind auch nicht unbedingt unnütz

[Kurzer]

Ich bin in der MSDN gerade auf folgende Lösung gestossen.
Ist etwas einfacher gehalten.

Code: Alles auswählen

Procedure.s GetSpecialFolder(iCSIDL.i)
  Protected sPath.s = Space(#MAX_PATH)

  If SHGetSpecialFolderPath_(#Null, @sPath, iCSIDL, 0) = #True
	  ProcedureReturn sPath
	Else
		ProcedureReturn ""
  EndIf
EndProcedure

Debug GetSpecialFolder(#CSIDL_LOCAL_APPDATA)