Code archives/File Utilities/find mydocuments

This code has been declared by its author to be Public Domain code.

Download source code

find mydocuments by b32
(Posted 19 years ago)
Uses SHGetFolderPathA to obtain the 'mydocuments' folder path. 
;Save these lines as a textfile in the directory c:\program files\blitz3d\userlibs
;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