PB4 Beta 6

[Ninja]

Hi,
Why does this not work?

Code: Select all

Procedure.s GetSpecialfolder(CSIDL) 

Structure shItemID 
    cb.l 
    abID.b 
EndStructure 
Structure ItemIDlist 
    mkid.shItemID 
EndStructure 

    r = SHGetSpecialFolderLocation_(0, CSIDL, @IDL.ITEMIDLIST) 
    If r = #NOERROR 
        Path$ = Space(512) 
        r = SHGetPathFromIDList_(IDL\mkid\cb, Path$) 
        folder$ = Trim(Path$)        
       Else 
        folder$="" 
    EndIf
    
    ProcedureReturn folder$ 
    
EndProcedure 

Even if i write:

Code: Select all

Procedure.s GetSpecialfolder(CSIDL) 

    r = SHGetSpecialFolderLocation_(0, CSIDL, @IDL.ITEMIDLIST) 
    If r = #NOERROR 
        Path$ = Space(512) 
        r = SHGetPathFromIDList_(IDL\mkid\cb, Path$) 
        folder$ = Trim(Path$)        
       Else 
        folder$="" 
    EndIf
    
    ProcedureReturn folder$ 
    
EndProcedure 

I hope someone is able to help me!

greez Ninja[/code]

[MrMat]

IDL.ITEMIDLIST is a 3 byte structure, whereas SHGetSpecialFolderLocation expects the address of a pointer for it's last argument (i.e. it wants 4 bytes that it can write the address into). So change IDL.ITEMIDLIST to @*IDL.ITEMIDLIST or just @*IDL (since we won't access the contents of the structure it is pointing to) or even just @IDL. Then SHGetPathFromIDList wants the pointer we just received as it's first argument so pass *IDL (or IDL if you used @IDL). Also, instead of 512 you could use #MAX_PATH.

[Ninja]

thanks, it works.

[Ninja]

uhm i just saw it doesnt work correct..

i changed to

Code: Select all

Procedure.s GetSpecialfolder(CSIDL) 


r = SHGetSpecialFolderLocation_(1, CSIDL, @IDL.ITEMIDLIST) 
If r = #NOERROR 
        Path$ = Space(512) 
        r = SHGetPathFromIDList_(@*IDL, Path$) 
        folder$ = Trim(Path$)        
       Else 
        folder$="" 
EndIf   
    ProcedureReturn folder$ 
    
EndProcedure

but it always returns C:\Dokumente und Einstellungen\MeinPC\Desktop on every CSIDL..

[ts-soft]

Code: Select all

Procedure.s GetSpecialFolder(CSIDL.l)
  Protected Path.s, Result.l
  Result = SHGetSpecialFolderLocation_(0, CSIDL, @*IDL.ITEMIDLIST)
  If Result = #NOERROR
    Path = Space(#MAX_PATH)
    Result = SHGetPathFromIDList_(@*IDL\mkid\cb, Path)
    If Right(Path, 1) <> "\" : Path + "\" : EndIf
  Else
    Path = ""
  EndIf
  ProcedureReturn Path
EndProcedure

Debug GetSpecialfolder(5)

[Ninja]

Thank you!

[MrMat]

Sorry i should have checked that better! Thanks for the fix ts-soft