Como puedo abrir una carpeta desde mi aplicación

1,218 views
Skip to first unread message

Hector Colman

unread,
May 20, 2013, 6:23:32 AM5/20/13
to publice...@googlegroups.com
Hola a todos. Necesito abrir una carpeta que se encuentra en mi sistema y si es posible señalar un archivos especifico que se encuentra en esa carpeta 
Ejemplo:
la carpeta se encuentra en C:\sysges_PYME
y dentro de esta carpeta se crea un archivo

Ricardo Peña

unread,
May 20, 2013, 6:57:46 AM5/20/13
to GRUPO-VFP GRUPO-VFP
¿ La función adir() te sirve ?

Ricardo Luis Peña
Analista de Sistemas
BA - Argentina
011-15-4440-7378
 
Date: Mon, 20 May 2013 03:23:32 -0700
From: hcolma...@gmail.com
To: publice...@googlegroups.com
Subject: [vfp] Como puedo abrir una carpeta desde mi aplicación

Luis Maria Guayan

unread,
May 20, 2013, 8:06:38 AM5/20/13
to publice...@googlegroups.com
Mira las ayudas de las funciones PUTFILE() y GETFILE()

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

Mauricio R. Molinero

unread,
May 20, 2013, 10:37:18 AM5/20/13
to publice...@googlegroups.com
* WSH Run Method
 
oShell = Createobject("wscript.shell")
 
* Open 'MyComputer' view with C: drive selected
oShell.Run("%SystemRoot%\explorer.exe /n, /select, c:")
 
* Open Windows Explorer for current folder
lcCurDir = FULLPATH("")
* Current folder selected
oShell.Run("%SystemRoot%\explorer.exe /n, /select, " + lcCurDir)
* Current folder open
oShell.Run("%SystemRoot%\explorer.exe /n, /root, " + lcCurDir)
 
* Open Windows Explorer with a file selected
lcFileName = _VFP.ServerName
oShell.Run("%SystemRoot%\explorer.exe /n, /select, " + lcFileName)

Saludos!

Mauricio R. Molinero,

K!k3

unread,
May 20, 2013, 11:26:32 AM5/20/13
to publice...@googlegroups.com
Amigo usa GetFile('')

Victor Navarro
Barranquilla COLOMBIA
3008102508
ICQ 279 364 380
Face: +573008102508
MSN: eres_u...@hotmail.com <desactivado>
Mail: eres_u...@yahoo.es
Whatsapp: +573008102508
Skype: eres_un_vago

Mauricio R. Molinero

unread,
May 21, 2013, 3:10:31 PM5/21/13
to publice...@googlegroups.com
Dijo que generaba un archivo y quería mostrar la salida.

El código que subi llama al explorador y selecciona el archivo.

Saludos!

Mauricio R. Molinero,

Jairo Miranda

unread,
May 21, 2013, 3:20:38 PM5/21/13
to publice...@googlegroups.com

GETFILE( ) devuelve la cadena vacía si sale del cuadro de diálogo Abrir presionando ESC, eligiendo Cancelar o eligiendo Cerrar en el menú Control.

Ejemplo

CLOSE DATABASES
SELECT 0
 
gcTable = GETFILE('DBF', 'Browse or Create a .DBF:', 'Browse', 1;   'Browse or Create')
DO CASE
   CASE 'Untitled' $ gcTable
      CREATE (gcTable)
   CASE EMPTY(gcTable)
      RETURN
   OTHERWISE
      USE (gcTable)
      BROWSE
ENDCASE

Vea también

FULLPATH( ) | GETEXPR | GETPICT( ) | LOCFILE( ) | PUTFILE( )

JM

Reply all
Reply to author
Forward
0 new messages