cGetFile - OK en XP, mal en W7 - Solucionado

[rolando]

Buenas noches,

He notado un comportamiento distinto de la función cGetFile() usando la misma aplicación (FWH 32 bits).

Code: Select all  Expand view

cTexto:= cGetFile( " | *.*", "Escribe el nombre del archivo",1,"\\pcnoganet\"  )

Cuando esta es ejecutada en windos XP 32 bits, cGetFile() se comporta como es esperado, es decir que abre una ventana en el directorio indicado para que elija un archivo.

Pero si es ejecutada en win seven 64 bits, abre la ventana para elegir un archivo, pero NO la abre en el directorio indicado (\\pcnoganet\), sino que lo hace en el último visitado.

¿Hay una forma de lograr que inicie en el directorio asignado?.

Gracias.

Rolando

[rolando]

Up

[karinha]

Rolando, mira se ayuda:

viewtopic.php?f=6&t=18240&start=15&hilit=GETFILE

Salu2.

[rolando]

karinha,

Gracias por responder, pero no es mi caso.

El cGetFile() funciona bien en XP y en W7 también funciona pero la ventana de selección de archivos no inicia en la carpeta que le indico.

Gracias.

Rolando

[karinha]

Rolando, intenta asi:

Code: Select all  Expand view

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL cFile, cPathError

   MsgInfo( CurDrive() )

   SetCurDrive( "P:" )  // en red

   // cPathError := "\\pcnoganet\"

   MsgInfo( CurDrive() )

   cPathError := CurDrive() + ":\PLENOCBX"  // windows 7 de 32 bits PERFECTO

   ? cPathError

   cFile := cGetFile( cPathError, "Localize el archivo: ERROR.LOG" )

RETURN NIL
 



[rolando]

karinha,

"\\pcnoganet\" es el nombre de la pc en red a la que me quiero conectar.

Necesito que la ventana de selección inicie en esa pc de la red local "\\pcnoganet\".

Rolando

[rolando]

up

[compubrion]

Saludos !
Revisa en el Centro de Redes y Recursos Compartidos, ( Cambiar configuracion de uso compartido avanzado ) Buscas ( Uso compartido con proteccion por contraseña ) y lo descativas yo uso windows 7 y me funciona perfectamente, adjunto imagen

Code: Select all  Expand view

   
    #Include "FiveWin.ch"

    FUNCTION Main()

       LOCAL cFile, cPath

       
       cPath := "\\MOISES\Respaldos\Backups\"

        cFile := cGetFile( '*.*', "Archivos", , cPath )

    RETURN NIL
          
 

[rolando]

Cumpubrion,

Gracias por responder.

Lo tengo como indicas. Pero encontré que estaba haciendo mal.

Como reza un dicho local, "Al mejor cazador se le escapa la liebre" y, teniendo en cuenta que no soy de los mejores cazadores...

Si bien publiqué:

Code: Select all  Expand view

"\\pcnoganet\"

En realidad estaba poniendo

Code: Select all  Expand view

"  \\pcnoganet\"

O sea que le estaba agregando dos espacios antes de "\\" y por eso no tomaba el directorio de red.

Lo extraño es que en Win xp si funciona así.

Obviamente el error era mío.

Saludos.

Rolando