cGetFile()

[Rick Lipkin]

To All

Code: Select all  Expand view

// samples\bmp.prg

#include "FiveWin.ch"

function Main()

   local cBmpFile := cGetFile( "*.bmp", "Please select a BMP file" )

   BmpPresenta( cBmpFile, "Test" )

return nil

//----------------------------------------------
function BmpPresenta( cBmp, cTitulo )

   local oWnd, oBmp

   DEFAULT cTitulo := "Showing image"

   cBmp := alltrim( cBmp )

 *  msginfo( "cBmp "+cBmp )

   if .not. "." $ cBmp
      cBmp += ".BMP"
   endif

   if file( cBmp )
      DEFINE BITMAP oBmp FILE cBmp

      DEFINE DIALOG oWnd TITLE cTitulo ;
         SIZE oBmp:nWidth(), oBmp:nHeight PIXEL

      ACTIVATE DIALOG oWnd CENTERED ;
         ON PAINT PalBmpDraw( hDC, 0, 0, oBmp:hBitmap )

      oBmp:End()
   else
      MsgAlert( "File not found!" )
   endif

return nil

 

I want to modify this code to show ONLY *.bmp in a specific directory ( folder ) ... I do not want to see every file in the directory ( folder ) I am looking at ... ONLY the selected filetype in this instance *.bmp

Thanks
Rick Lipkin

[Enrico Maria Giordano]

Example:

Code: Select all  Expand view

cXls = CGETFILE( "File Excel (*.xls;*.xlsx)|*.xls;*.xlsx", "Import from", , CURDRIVE() + "\" + CURDIR() )

[Rick Lipkin]

Enrico .. thank you for the code ... I did notice that the folders are still visable if you are just looking for a specific file .. but in my case I see the .xlsx Excel file(s) only and that works for me ..

Thanks a lot!

Rick Lipkin

[nageswaragunupudi]

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local cBmpFile

   do while !Empty( cBmpFile := cGetFile( "*.bmp|*.bmp|", "Please select a BMP file",,"..\bitmaps\" ) )
      XImage( cBmpFile )
   enddo

return nil

[nageswaragunupudi]

OFT.
Just a casual discussion.
...
Another simpler alternative appears to be:

Code: Select all  Expand view

TrueName( "." ) // --> c:\fwh\samples
TrueName( ".\") // --> c:\fwh\samples\

[Enrico Maria Giordano]

OFT.
Just a casual discussion.
I think it should be CURDRIVE() + ":\" + CURDIR() but not CURDRIVE() + "\" + CURDIR().

Yes, sorry.

[nageswaragunupudi]

OFT.
Just a casual discussion.
I think it should be CURDRIVE() + ":\" + CURDIR() but not CURDRIVE() + "\" + CURDIR().

Yes, sorry.

My sincere apologies.
My intention was only to consider the merits of using the alternative function TrueName(".\")

[Enrico Maria Giordano]

You don't have to apologies. On the contrary, thanks for the correction.

[karinha]

Code: Select all  Expand view

// C:\FWH..\SAMPLES\CGETFIL.PRG

#Include "FiveWin.ch"

MEMVAR cDirImg

FUNCTION Main()

   LOCAL cFile, cPathImg

   cDirImg := GETCURDIR()

   // Unidade C:\
   IF SUBS( cDirImg, LEN( ALLTRIM(cDirImg ) ) , 1 ) = "\"
      cDirImg := SUBS( cDirImg, 1 , LEN( ALLTRIM(cDirImg ) ) - 1 )
   ENDIF

   LCHDIR( cDirImg )

   cPathImg := cDirImg + "\"+ "*.BMP"

   cFile := cGetFile( "*.bmp|*.bmp|", "Please select a BMP file",,"cPathImg" )

   IF .NOT. Empty( cFile )

      XImage( cFile )

   ENDIF

RETURN NIL

// fin / end

Regards, saludos.

[Rick Lipkin]

To All

What I was origionally trying to do is to drill down to any folder and find only *.xlsx files .. for example I have downloaded an Excel file and programatically I wanted to be able to use cGetFile to be able to drill down to the desktop and see only *.xlsx files and return the path and file name of the Excel file that I choose and I do not want to see other files and folders on the desktop .. only *.xlsx ..

Thanks
Rick Lipkin

[karinha]

Look,

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=42468&p=255377&hilit=DIRECTORYRECURSE&sid=5e7e72acc575d1fbe3dd4614485046d3&sid=3fea9df66dd5365b0a7d275af3ab68d9#p255377

Code: Select all  Expand view

   HB_FnameSplit( hb_argv(0), @cProgPath )
 

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=41324&p=247588&hilit=hb_FNameSplit&sid=5e7e72acc575d1fbe3dd4614485046d3&sid=3fea9df66dd5365b0a7d275af3ab68d9#p247588

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=27015&p=150044&hilit=hb_FNameSplit&sid=5e7e72acc575d1fbe3dd4614485046d3&sid=3fea9df66dd5365b0a7d275af3ab68d9#p150044

Regards, saludos.