Código: Selecionar todos
Func Main()
? Get_Folder(1) //Desktop
? Get_Folder(2) //Meus Documentos
retu
Proc Get_Folder(nfolder)
Local objShell, RetFolder
Local aFolderName:={"Desktop","MyDocuments"}
nfolder:=iif(nfolder=nil,1,nfolder)
objShell := CreateObject("WScript.Shell")
RetFolder := objShell:SpecialFolders:Item(aFolderName[nfolder])
objShell := nil
RETURN RetFolderCódigo: Selecionar todos
LOCAL cMyDocumentsPath := hb_getenv( "USERPROFILE" )
IF !( EMPTY( cMyDocumentsPath ) )
IF IsDirectory( cMyDocumentsPath+'\Documents' )
ALERT( 'Win Vista ou Superior' + ';;' + cMyDocumentsPath+'\Documents' )
ELSE
ALERT( 'Win XP ou Anterior' + ';;' + cMyDocumentsPath' )
ENDIF
ELSE
ALERT( 'hb_getenv retornou NULL' )
ENDIF
Outras variaveis de ambiente no Windows...Windows 98 and Windows Me
C:\My Documents
Windows 2000 and Windows XP
%USERPROFILE%\My Documents
Windows Vista and later
%USERPROFILE%\Documents
%ALLUSERSPROFILE%
%PROGRAMDATA%
%APPDATA%
%COMPUTERNAME%
%COMMONPROGRAMFILES%
%COMMONPROGRAMFILES(x86)%
%COMSPEC%
%HOMEDRIVE%
%HOMEPATH%
%LOCALAPPDATA%
%LOGONSERVER%
%PATH%
%PATHEXT%
%PROGRAMDATA%
%PROGRAMFILES%
%PROGRAMFILES(X86)%
%PROMPT%
%PSModulePath%
%PUBLIC%
%SystemDrive%
%SystemRoot%
%TEMP%
%TMP%
%USERDOMAIN%
%USERNAME%
%USERPROFILE%
%WINDIR%
