[bb] find mydocuments by b32 [ 1+ years ago ]

Started by BlitzBot, June 29, 2017, 00:28:42

Previous topic - Next topic
Print
Go Down Pages1
User actions

BlitzBot

June 29, 2017, 00:28:42
Title : find mydocuments
Author : b32
Posted : 1+ years ago

Description : Uses SHGetFolderPathA to obtain the 'mydocuments' folder path.

Code :
Code (blitzbasic) Select
;Save these lines as a textfile in the directory c:program fileslitz3duserlibs
;and call the file 'shell32.decls'
;-------------------------------------
;.lib "shell32.dll"

;api_GetFolderPath%(hwnd, p1, p2, p3, out*) : "SHGetFolderPathA"
;-------------------------------------
;it will enable the api_getfolderpath command


Print GetMyDocumentsPath$()

WaitKey()
End

;-------------------------------------------------------------------------------------------------------
; GetMyDocumentsPath()
;-------------------------------------------------------------------------------------------------------
;uses SHGetFolderPathA to get the mydocuments folder
Function GetMyDocumentsPath$()

bank = CreateBank(256)

api_GetFolderPath(0, $5, 0, 0, bank)

s$ = ""
For i = 0 To 255
b = PeekByte(bank, i)
If b = 0 Then Exit
s$ = s$ + Chr$(b)
Next

FreeBank bank

If Right$(s$, 1) <> "" Then s$ = s$ + ""

Return s$

End Function

Comments : none...
Print
Go Up Pages1
User actions