Page 1 of 1
Copiar archivo al Escritorio de Windows.
Posted: Thu Nov 18, 2010 10:20 pm
by FiveWiDi
Pués eso,
necesito copiar un archivo al escritorio de Windows y no se como se hace. Alguien lo ha hecho algbuna vez?
Gracias.
Re: Copiar archivo al Escritorio de Windows.
Posted: Fri Nov 19, 2010 11:36 am
by MarioG
FiWidi;
Abriendo el Explorador (de XP) podras ver que la ruta es:
C:\Documents and Settings\All Users\Escritorio
De esta forma lo verán todos los usuarios creados en esa PC.
Ahora si lo querés particularizar deberías indicarle para que usario
C:\Documents and Settings\mariog\Escritorio
No obstante no lo vas a poder hacer muy genérico ya que Windows Vista y 7, si mal no recuerdo,lo tratan de otra manera
Saludos
Re: Copiar archivo al Escritorio de Windows.
Posted: Fri Nov 19, 2010 12:09 pm
by acuellar
FiWidi
Intentalo asi:
Code: Select all
cUsuario:= GetEnv( "USERPROFILE" )
If Left(cUsuario,8)="C:\Users" //Si está en Inglés
cEscritorio:=cUsuario+"\desktop\ARCHIVO.lnk"
Else
cEscritorio:=cUsuario+"\escritorio\ARCHIVO.lnk"
Endif
COPY FILE C:\ARCHIVO.LNK TO (cEscritorio)
Saludos,
Adhemar
Re: Copiar archivo al Escritorio de Windows.
Posted: Fri Nov 19, 2010 10:20 pm
by FiveWiDi
Gracias a ambos,
Voy a ver como me lo monto.
Re: Copiar archivo al Escritorio de Windows.
Posted: Sat Nov 20, 2010 9:20 am
by hmpaquito
FiveWidi,
No lo tengo a mano, pero lo que yo hago es coger el path del escritorio de una
clave del registro de windows. No lo cojo de variables de entorno ni otros sitios por la variedad de situaciones que se dan y que, creo, sólo cogiéndolo del registro no falla: Terminal Service, Versiones Windows, cambio del usuario, etc.
Saludos
FiveWiDi wrote:Gracias a ambos,
Voy a ver como me lo monto.
Re: Copiar archivo al Escritorio de Windows.
Posted: Sat Nov 20, 2010 10:06 am
by pcordonet
FiWidi;
Hola FiWidi,
Seguro que esta funció te lo soluciona.
Code: Select all
#define CSIDL_PROGRAMS 0x0002 // Start Menu\Programs
#define CSIDL_DESKTOPDIRECTORY 0x0010 // <user name>\Desktop
Function Main()
Local cEscritorio
cEscritorio:= GETSPECIALFOLDER(CSIDL_DESKTOPDIRECTORY)
Alert(cEscritorio,{"Ok"})
Return cEscritorio
*---------------------------------------------------------------*
Function GETSPECIALFOLDER(nCSIDL) // Contributed By Ryszard Rylko
*---------------------------------------------------------------*
RETURN C_getspecialfolder(nCSIDL)
#pragma BEGINDUMP
#include <windows.h>
#include <shlobj.h>
#include "hbapi.h"
#include "hbapiitm.h"
HB_FUNC( C_GETSPECIALFOLDER ) // Contributed By Ryszard RyRko
{
char *lpBuffer = (char*) hb_xgrab( MAX_PATH+1);
LPITEMIDLIST pidlBrowse; // PIDL selected by user
SHGetSpecialFolderLocation(GetActiveWindow(), hb_parni(1), &pidlBrowse)
;
SHGetPathFromIDList(pidlBrowse, lpBuffer);
hb_retc(lpBuffer);
hb_xfree( lpBuffer);
}
#pragma ENDDUMP
Espero que te sirva.
Pere
Re: Copiar archivo al Escritorio de Windows.
Posted: Sat Nov 20, 2010 1:23 pm
by FiveWiDi
pcordonet wrote:FiWidi;
Hola FiWidi,
Seguro que esta funció te lo soluciona.
Code: Select all
#define CSIDL_PROGRAMS 0x0002 // Start Menu\Programs
#define CSIDL_DESKTOPDIRECTORY 0x0010 // <user name>\Desktop
Function Main()
Local cEscritorio
cEscritorio:= GETSPECIALFOLDER(CSIDL_DESKTOPDIRECTORY)
Alert(cEscritorio,{"Ok"})
Return cEscritorio
*---------------------------------------------------------------*
Function GETSPECIALFOLDER(nCSIDL) // Contributed By Ryszard Rylko
*---------------------------------------------------------------*
RETURN C_getspecialfolder(nCSIDL)
#pragma BEGINDUMP
#include <windows.h>
#include <shlobj.h>
#include "hbapi.h"
#include "hbapiitm.h"
HB_FUNC( C_GETSPECIALFOLDER ) // Contributed By Ryszard RyRko
{
char *lpBuffer = (char*) hb_xgrab( MAX_PATH+1);
LPITEMIDLIST pidlBrowse; // PIDL selected by user
SHGetSpecialFolderLocation(GetActiveWindow(), hb_parni(1), &pidlBrowse)
;
SHGetPathFromIDList(pidlBrowse, lpBuffer);
hb_retc(lpBuffer);
hb_xfree( lpBuffer);
}
#pragma ENDDUMP
Espero que te sirva.
Pere
Ya van apareciendo cosas...
Muchas gracias por el aporte, me será útil sin duda.