Ruta definida en cGetFile32

[servicomver]

Hola. como puedo pre definir la ruta de busqueda en cGetFile32, por ejemplo que mi carpeta de inicio de busqueda de archivos sea:
C:\Datos\Importar\*.Mod

Gracias

[Armando]

Servicomver:

Mira este trozo de código:

Code: Select all  Expand view

cHasta := cGetFile32("*.Dbf","Seleccione el archivo actual de expedientes",1,".\Archivos")
 

Saludos

[servicomver]

Gracias por responder, no fija la ruta. He notado que al seleccionar un archivo la primera vez, esta ultima ruta queda ya por default.
No he podido hacer que desde el primer intento salga en la ruta definida. Por otro lado puedo obtener solo el nombre del archivo ???, es decir sin la ruta.

Gracias

[karinha]

Mira se ayuda:

Code: Select all  Expand view

function FWSavePreviewToPDF( oDevice, cPDF, lOpen )   // oDevice can be oPrinter or oPreview

   local cOrient, oPDF
   local hWnd

   if oDevice:IsKindOf( "TPREVIEW" )
      hWnd    := oDevice:oWnd:hWnd
      oDevice := oDevice:oDevice
   endif
#ifndef USEGDI
   if LoadFreeImage() <= 32
      MsgAlert( FWString( "freeimage.dll not found" ), FWString( "Alert" ) )
      return nil
   endif
#endif

   // MODIFICADO EM: 14/03/2016 PARA SALVAR O PDF NA PASTA: C:\NFEPDF
   cPRGPATH := cFILEPATH( "C:\NFEPDF\" )

   lCHDIR(cPRGPATH)

   // ? hb_CurDrive() + ":\" + CurDir() + "\"

   DEFAULT cPDF   := cGetFile( FWString( "PDF files | *.pdf |" ),;
                               FWString( "Select PDF File to Save" ),, ;
                               CurDir(), .T.,,,;
                               hb_CurDrive() + ":\" + CurDir() + "\" + ;
                               If( oDevice:IsKindOf( "TPreview" ),;
                               oDevice:cName, oDevice:cDocument ) + ".pdf"  )
   if ! Empty( cPDF )
      cPDF = cFileSetExt( cPDF, "pdf" )
      CursorWait()
      cOrient = If( oDevice:nHorzSize() > oDevice:nVertSize(), 'L', 'P' )
      oPdf = fwPdf():New( cPdf, cOrient )
      AEval( oDevice:aMeta, { | cMeta | oPdf:AddMeta( cMeta ) } )
      oPdf:Close()
      CursorArrow()

      DEFAULT lOpen := MsgYesNo( If( FWLanguageID() == 2, FWString( "¿" ) + " ", "" ) + ;
                       FWString( "View" ) + ;
                       " " + cPDF + " " + FWString( "(Y/N)" ) + " ?",;
                       FWString( "Please select" ) )

      if lOpen
         ShellExecute( IfNil( hWnd, GetWndDefault() ), "open", cPDF )
      endif
   else
      cPDF  := nil
   endif

   // VOLTO AO DIRETORIO DO PLENO PARA NAO QUEBRAR OS BANCOS. 14/03/2016 Joao
   lCHDIR( cDirPleno )

   // ? hb_CurDrive() + ":\" + CurDir() + "\"

return cPDF



[servicomver]

Listo !!! si quedo, gracias. solo me falta como saber el nombre del Archivo seleccionado, sin la Ruta.

Gracias

[karinha]

Mira el manual de harbour, porfa:

http://wiki.fivetechsoft.com/doku.php?id=fivewin_funciones_ordenadas_alfabeticamente

Saludos.

[MarioG]

Probaste estas funciones de FWH?

cFileName()
Retrieves the filename without its path
Syntax:
cFileName( <cFullFileName> ) --> cFileName

o,

cFileNoPath()
Retrieves the filename without path (as cFileName()) _
Syntax:
cFileNoPath( <cFullFileName> ) --> cFileName

[karinha]

Code: Select all  Expand view

   LOCAL cNombreSinPath, cNombreSinExte

   cNombreSinPath := cFileNoPath( cDbfNombre ) - cFileNoExt( cDbfNombre )
   cNombreSinExte := cFileNoExt( cNombreSinPath )
 


Saludos.