GetUserProfileDirectoryA

[Silvio.Falconi]

How Use this in fwh ?

https://docs.microsoft.com/en-us/windows/win32/api/userenv/nf-userenv-getuserprofiledirectorya

GetUserProfileDirectoryA function of Windows 10

I wish Know the right directory of \users\nameuser\

[karinha]

There is no documentation of this on Harbour.

Code: Select all  Expand view  RUN

Dim sBuffer As String, Ret As Long, hToken As Long
 
Declare Function GetUserProfileDirectory Lib "userenv.dll" Alias "GetUserProfileDirectoryA" (ByVal hToken As Long, ByVal lpProfileDir As String, ByVal lpcchSize As Long) As Boolean
 
Sub Main()
Dim SpecialFolder As String
Dim fs As Object
Dim oldPath As String, newPath As String, specialPath As String
specialPath = GetUserProfileDirectory(hToken, sBuffer, 255)
oldPath = "H:\"
newPath = "specialPath"
fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile(oldPath & "\" & "January2009.txt", newPath & "\" & "January2009.txt")
fs = Nothing
End Sub

Regards.

[Silvio.Falconi]

How Convert it into fwh ?

[Horizon]

Code: Select all  Expand view  RUN

FUNCTION GetDesktopDir()
LOCAL Result:=""
    Result := GETENV("USERPROFILE")+"\Desktop"
RETURN Result

[Silvio.Falconi]

thanks