Una ayudita Please!

[ADBLANCO]

Tengo que crear unos archivos temporales en el disco del usuario, pero resulta que como el windows está configurado con un administrador, me niega el acceso al disco duro del equipo exceptuando en el subdirectorio asignado a este usuario;

Existe alguna forma de saber cual es este directorio???
Desde FiveWin o Xharbour???

Gracias de antemano

[Patricio Avalos Aguirre]

Hola
Yo lo hago de esta manera, pueda que te sirva

Code: Select all

#Define DRIVELOCAL DiskName() + ":\"+Curdir()

cFileTemp := cNewFileName( DRIVELOCAL + "\TEMPORAL\TEMPO", "DBF" )
dbCreate( cFileTemp, aStruc, "DBFCDX" )

[ADBLANCO]

No me sirve la sentencia CURDIR(), porque no regresa el directorio de trabajo de un usuario windows.
Por lo menos necesitaría algo que me regrese el nombre de usuario de windows para así armar el path.

[jrestojeda]

Hola amigo...
Quizá esta fución te pueda dar una mano...

Code: Select all

Function DatosPC-UserWin()
Local NombrePC,Usuario

NombrePC:=GetEnv("COMPUTERNAME") // Asigna el nombre de la PC 
Usuario :=GetEnv("USERNAME")     // Asigna el nombre del usuario de Windows logueado

MsgInfo(NombrePC,"Nombre del equipo")
MsgInfo(Usuario,"Usuario de Windows")

Return nil
 

Espero te sirva.
Saludos,

[ADBLANCO]

Gracias, Es exactamente lo que estaba buscando