topic-15659

Posts: 299

Joined: Mon Oct 22, 2007 03:03 PM

Una ayudita Please!
Posted: Wed May 20, 2009 09:28 PM

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

:oops:

Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Una ayudita Please!
Posted: Wed May 20, 2009 10:01 PM

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

Code (fw): Select all Collapse

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

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

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

ADBLANCO

Posts: 299

Joined: Mon Oct 22, 2007 03:03 PM

Re: Una ayudita Please!
Posted: Thu May 21, 2009 01:00 PM

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.

Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: Una ayudita Please!
Posted: Thu May 21, 2009 01:44 PM

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

Code (fw): Select all Collapse

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,

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

ADBLANCO

Posts: 299

Joined: Mon Oct 22, 2007 03:03 PM

Re: Una ayudita Please!
Posted: Thu May 21, 2009 09:01 PM

Gracias, Es exactamente lo que estaba buscando

Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql

FiveTech Support Forums

Continue the discussion