PureBasic Forums - English

Code: Select all

OpenConsole()

;PathBuffer.s = "" ; uncomment this and the full path works ???
PathBuffer = AllocateMemory(0,255,0) ;this does not work for some  ???reason
FileName$ = "client.db"

OpenLibrary(0,"kernel32.dll")

result.w = CallFunction(0,"GetFullPathNameA", FileName$,255,@PathBuffer,NULL)

PrintN("String Count: "+Str(result))
PrintN("File path is: "+PeekS(@PathBuffer,result))
Input()


CloseLibrary(0)
CloseConsole()
End

Code: Select all

Buffer$=Space(512)
FileName$="client.db"
 
GetFullPathName_(FileName$,Len(Buffer$),@Buffer$,@FilePart)
 
Debug PeekS(Buffer$)
Debug PeekS(FilePart)