Code: Select all
Debug UserName() ; Shows "User"
Code: Select all
Debug UserName() ; Shows "User"
Code: Select all
Debug GetEnvironmentVariable("USERNAME")
Code: Select all
Define Res$ = Space(#UNLEN - 1)
Define L = #UNLEN
GetUserName_(Res$, @L)
Debug Res$
Code: Select all
Define Folder_ID,SFolderLoc.s
If SHGetSpecialFolderLocation_(0, $28, @Folder_ID) = 0 ;CSIDL_PROFILE =$28
SFolderLoc.s = Space(#MAX_PATH*2)
SHGetPathFromIDList_(Folder_ID, @SFolderLoc)
CoTaskMemFree_(Folder_ID)
EndIf
Debug sFolderLoc
Debug StringField(sFolderLoc, 3,"\")
BINGO!