Una necesidad que tengo, pues no se como solucinarla.
Utilizo TFileOpenDlg correctamente, establezco una carpeta para que sea la
que de entrada esté para seleccionar el archivo.
Bien, pero si quiero que no sea una carpeta, sinó que por defecto entre en
"Mi Pc", debo de pulsar el botón izquierdo que me dirige allí.
Pues mi consulta...
¿Como puedo hacer para que al abrir el cuadro de diálogo de abrir archivo se
vaya directamente a "Mi Pc"???
Gracias.
Un Saludo,
Xevi.
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
TFileOpenDlg establecer carpeta
-
joselalinf
- Mensajes: 291
- Registrado: Jue Ene 31, 2013 1:10 pm
TFileOpenDlg establecer carpeta
Xevi,
WITH OBJECT TFileOpenDlg()...
:cInitialDir := GetDrivesFolder()
...
END
Mira con MsgInfo( GetDrivesFolder() ) lo que sale, sólo por curiosidad
Saludos,
José Lalín
WITH OBJECT TFileOpenDlg()...
:cInitialDir := GetDrivesFolder()
...
END
Mira con MsgInfo( GetDrivesFolder() ) lo que sale, sólo por curiosidad
Saludos,
José Lalín
-
Bingen Ugaldebere
- Mensajes: 1310
- Registrado: Mié Sep 26, 2007 7:12 pm
TFileOpenDlg establecer carpeta
Pues en principio sale
Compilando FrmMain.prg...
Enlazando XGescontactos.exe...
C:/xDesarrollos/Programas/xGesContactos/Obj/FrmMain.o:(.data +0x2fa8):
undefined reference to `HB_FUN_GETDRIVESFOLDER'
1 Files, 0 Warnings, 1 Errors
Tiempo de compilación: 3.84s Tiempo de enlazado: 1.53s Tiempo total:
5.68s
El 11/06/2014 15:20, José Lalín escribió:
> Xevi,
>
> WITH OBJECT TFileOpenDlg()...
> :cInitialDir := GetDrivesFolder()
> ...
> END
>
> Mira con MsgInfo( GetDrivesFolder() ) lo que sale, sólo por curiosidad
>
> Saludos,
> José Lalín
>
Compilando FrmMain.prg...
Enlazando XGescontactos.exe...
C:/xDesarrollos/Programas/xGesContactos/Obj/FrmMain.o:(.data +0x2fa8):
undefined reference to `HB_FUN_GETDRIVESFOLDER'
1 Files, 0 Warnings, 1 Errors
Tiempo de compilación: 3.84s Tiempo de enlazado: 1.53s Tiempo total:
5.68s
El 11/06/2014 15:20, José Lalín escribió:
> Xevi,
>
> WITH OBJECT TFileOpenDlg()...
> :cInitialDir := GetDrivesFolder()
> ...
> END
>
> Mira con MsgInfo( GetDrivesFolder() ) lo que sale, sólo por curiosidad
>
> Saludos,
> José Lalín
>
-
joselalinf
- Mensajes: 291
- Registrado: Jue Ene 31, 2013 1:10 pm
TFileOpenDlg establecer carpeta
Bingen,
entonces prueba con DriversFolderGet() y GetFolderDrives()
Saludos,
José Lalín
entonces prueba con DriversFolderGet()
y GetFolderDrives()Saludos,
José Lalín
-
Bingen Ugaldebere
- Mensajes: 1310
- Registrado: Mié Sep 26, 2007 7:12 pm
TFileOpenDlg establecer carpeta
El segundo si que funciona y es el que sale en el manual de Xailer.
> entonces prueba con DriversFolderGet() y GetFolderDrives()
MsgInfo(GetFolderDrives(.T.)) --> Equipo
Pero al igual que otras funciones de ficheros son claras por su nombre,
otras como esta no entiendo que es lo que muestra.
Supongo que buscando información sobre el API habrá mas datos que el
manual de Xailer no?
Gracias.
> entonces prueba con DriversFolderGet()
y GetFolderDrives()MsgInfo(GetFolderDrives(.T.)) --> Equipo
Pero al igual que otras funciones de ficheros son claras por su nombre,
otras como esta no entiendo que es lo que muestra.
Supongo que buscando información sobre el API habrá mas datos que el
manual de Xailer no?
Gracias.
-
joselalinf
- Mensajes: 291
- Registrado: Jue Ene 31, 2013 1:10 pm
TFileOpenDlg establecer carpeta
Bingen,
> Pero al igual que otras funciones de ficheros son claras por su nombre,
> otras como esta no entiendo que es lo que muestra.
sin parámetros muestra el directorio (en este caso virtual) y con .T.
muestra el nombre del directorio.
> Supongo que buscando información sobre el API habrá mas datos que el manual
> de Xailer no?
Las funciones GetFolder...() son wrappers a una función del API más
compleja, por eso se hicieron así.
Saludos,
José Lalín
> Pero al igual que otras funciones de ficheros son claras por su nombre,
> otras como esta no entiendo que es lo que muestra.
sin parámetros muestra el directorio (en este caso virtual) y con .T.
muestra el nombre del directorio.
> Supongo que buscando información sobre el API habrá mas datos que el manual
> de Xailer no?
Las funciones GetFolder...() son wrappers a una función del API más
compleja, por eso se hicieron así.
Saludos,
José Lalín