FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Copiar archivo al escritorio
Posts: 257
Joined: Tue May 16, 2006 04:46 PM
Copiar archivo al escritorio
Posted: Fri Aug 27, 2010 12:28 AM

Alguien sabe como copiar desde mi aplicacion un archivo al escritorio de windows sin importar el idioma o la version de windows?

O en otras palabras, como obtengo la ruta del escritorio de cualquier maquina?

Salu2 y gracias

RodolfoRBG
FWH 1307, xHarbour123 BCC582
rodolfoerbg@gmail.com
Posts: 33
Joined: Thu Aug 10, 2006 12:23 PM
Re: Copiar archivo al escritorio
Posted: Fri Aug 27, 2010 01:52 AM

Hola Rodolfo:

No es tan fácil ya que el escritorio depende del usuario que ingrese a la computadora y creo que también depende del idioma de tu windows ypopr si fuera poco también de la unidad donde se instaló el SO, así las cosas

para Windows XP y suponiendo que estuviera en español y en la unidad C la ruta es:

"c:\documents and settings\%username%\escritorio"

para win 7 y vista
"C:\users\%username%\desktop"

al parecer en las nuevas versiones no importa el idioma que hayas instalado

Saludos y espero sea de utilidad

Héctor García

México, D.F.
Posts: 71
Joined: Fri Jan 11, 2008 06:55 AM
Re: Copiar archivo al escritorio
Posted: Fri Aug 27, 2010 02:32 AM
Rodolfo,

Encontre la siguiente informacion esta en ingles pero es facil de comprender,

http://msdn.microsoft.com/en-us/library/bb762181(VS.85).aspx

Saludos,
Andres Reyes
{{{ ---- xharbour + Borland C --- }}}
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Copiar archivo al escritorio
Posted: Fri Aug 27, 2010 11:54 AM
Rodolfo

Intenta asi:
Code (fw): Select all Collapse
   cUsuario:= GetEnv( "USERPROFILE" ) 
    If Left(cUsuario,8)="C:\Users"  
            cEscritorio:=cUsuario+"\desktop\ARCHIVO.XYZ"
    Else
          cEscritorio:=cUsuario+"\escritorio\ARCHIVO.XYZ"
    Endif

   COPY FILE C:\SISTEMAS\ARCHIVO.XYZ TO (cEscritorio)


Saludos,

Adhemar
Saludos,



Adhemar C.
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
Re: Copiar archivo al escritorio
Posted: Sat Aug 28, 2010 07:52 AM
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix

Continue the discussion