como pegar o usuário do win e a pasta user ?

[paiva_dbdc]

Boa noite

tem users usuários etc

como saber o nome da pasta e o nome do usuario para se poder posicionar uma busca la pasta download ?

ex:

c:\usuários\paiva\download\*.xml ?


desde ja agradeço

Paiva

[JoséQuintas]

Dentre muitas opções, incluindo API Windows, a mais simples é pegar variáveis de ambiente.
No prompt digite SET e vai ver as variáveis que existem.
Depois é só usar GetEnv()

[paiva_dbdc]

Valeu

HOMEPATH=\Users\paiva
USERPROFILE=C:\Users\paiva
windir=C:\Windows


essa mata tudo rs USERPROFILE=C:\Users\paiva

e para executar o set destro do sistema

crio uma bat e no sistema mando executar ?

ou tem uma forma melhor ?

ob

Paiva

[JoséQuintas]

não entendi.

[asimoes]

Definindo uma variável de ambiente em tempo de execução

SetEnvironmentVariable( "TESTE", "12345" )

hwg_MsgInfo( hb_GetEnv( "TESTE" ) ) Vai retornar 12345

Código: Selecionar todos

#pragma BEGINDUMP
#include <Windows.h>
#include <hbApi.h>

HB_FUNC( SETENVIRONMENTVARIABLE )
{
   hb_retl( SetEnvironmentVariableA( (LPCSTR) hb_parcx( 1 ),
                                     (LPCSTR) hb_parcx( 2 )
                                     ) ) ;
}

#pragma ENDDUMP

[asimoes]

Observações:

A função SetEnvironmentVariable() define a variável de ambiente em tempo de execução mas só é vista pela aplicação que a define.

[asimoes]

Lendo melhor esse tópico acho que eu entendi o que você quer, listar as variáveis de ambiente do windows então deve ser isso:

Código: Selecionar todos

FUNCTION GetVariaveisAmbiente()
LOCAL oLocator, oWMI, cVarAmb
   
   oLocator   := CreateObject( "wbemScripting.SwbemLocator" )
   oWMI       := oLocator:ConnectServer()
   cVarAmb    := ""
   
   FOR EACH oEnvVar IN oWmi:ExecQuery( "SELECT * FROM Win32_Environment" )
      cVarAmb += oEnvVar:Name + "=" + oEnvVar:VariableValue + Hb_Eol()
   NEXT
   
RETURN cVarAmb   

[paiva_dbdc]

opa

no DOS .... SET > arq.txt
dentro do arq.txt achei essas linhas

HOMEPATH=\Users\paiva
USERPROFILE=C:\Users\paiva
windir=C:\Windows

essa mata tudo rs USERPROFILE=C:\Users\paiva

e para executar o set destro do sistema

crio uma bat e no sistema mando executar ?

ou tem uma forma melhor ?

ob

Paiva

[asimoes]

opa

no DOS .... SET > arq.txt
dentro do arq.txt achei essas linhas

HOMEPATH=\Users\paiva
USERPROFILE=C:\Users\paiva
windir=C:\Windows

essa mata tudo rs USERPROFILE=C:\Users\paiva

e para executar o set destro do sistema

crio uma bat e no sistema mando executar ?

ou tem uma forma melhor ?

ob

Paiva

A resposta já foi postada.

[Claudio Soto]

cUP:= hb_GetEnv( "USERPROFILE" )