I have a problem with cGetFile()
Selecting only ONE file, works OK .
When trying to select more files, lets me do it, but it returns ONLY the path of the files!
FWH 2.5 + xHarbour + Borland + Windows XP pro
This is the function i use :
- Code: Select all Expand view
// Function YGetFile
Function YGetFile(cFileName)
local cFile, cFileMask, cTitle
Local nDefaultMask, cInitDir, nFlags, cIniFile, lSave
Local lLongNames
MemVar oApp
cTitle := "Select file"
cFileMask := "Jpeg (*.jpg) |*.jpg|" + ;
"Bitmap (*.bmp) |*.bmp|" + ;
"Tiff (*.tif) |*.tif|" + ;
"Gif (*.gif) |*.gif|"
cTitle := "Select a photo"
nDefaultMask := 1
cInitDir := ".\"
nFlags := OFN_ALLOWMULTISELECT + OFN_EXPLORER // 512 + 524288
cIniFile := ""
cFileName := ""
lSave := .f.
lLongNames := .t.
cFile := Space(32000)
//cGetFile( <cFileMask>, <cTitle>, [<nDefaultMask>], [<cInitialDirectory>], [lSave], [lLongNames], [nFlags] ) --> <cFileName>
cFile := cGetFile(cFileMask,;
cTitle,;
nDefaultMask,;
cInitDir,;
lSave,;
lLongNames,;
nFlags)
? cfile
If Empty(cFile)
cFile := cFileName
Endif
Return cFile
Can you help me to solve thsi problem?
Thank you for your help! Smile
Un saludo
Yannis Yannas
www.trinityvision.gr