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
Una ayudita Please!
Una ayudita Please!
Saludos
Angel, Valencia, Venezuela
xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
Angel, Valencia, Venezuela
xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
- Patricio Avalos Aguirre
- Posts: 1028
- Joined: Fri Oct 07, 2005 1:56 pm
- Location: La Serena, Chile
- Contact:
Re: Una ayudita Please!
Hola
Yo lo hago de esta manera, pueda que te sirva
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" )
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
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
Re: Una ayudita Please!
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.
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
Angel, Valencia, Venezuela
xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
- jrestojeda
- Posts: 543
- Joined: Wed Jul 04, 2007 3:51 pm
- Location: Buenos Aires - Argentina
Re: Una ayudita Please!
Hola amigo...
Quizá esta fución te pueda dar una mano...
Espero te sirva.
Saludos,
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
Saludos,
Ojeda Esteban Eduardo.
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
Re: Una ayudita Please!
Gracias, Es exactamente lo que estaba buscando
Saludos
Angel, Valencia, Venezuela
xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
Angel, Valencia, Venezuela
xH .997 - FW 7.9 - BCC55 - WorkShop - MySql