Hi Martin,

Thanks for the code and the sample. It works fine, Great work!

I've tested it a little more with "EnableHook = .T." What's this supposed to do. Just to disable the Places Bar (on the left side) or do you give the ability to callback to VFP ? Also I think you have a typo for one properties - ShareWare. It's a ShareAware, right ?

Now, don't get me wrong (don't get mad :) ) Since you gave all the source code, I want to know whether you want people to involve in your project or just a give away or what .. ?

Regards

>

>SET LIBRARY TO pdm.fll
>
>loo=CREATEOBJECT("_GetFileEx")
>loo.AllowMultiSelect=.T.
>loo.Explorer=.T.
>loo.EnableSizing=.T.
>loo.InitialDir=""
>loo.File=""
>loo.Title="Get My CSS files"
>loo.Filter="My CSS file"+CHR(0)+"*.css"+CHR(0)
>loo.aFName="paFiles"
>
>IF GetFileEx(loo) AND loo.Err=0
>   lcPom=""
>   FOR lii=1 TO loo.iFiles
>       lcPom = lcPom+","+loo.SelectedFolder+paFiles(lii)
>   NEXT
>ENDIF
>RELE (loo.aFName)
>
>
>****************************************************************
>* Definiton class _GetFileEx for function GetFileEx()
>****************************************************************
>DEFINE CLASS _GetFileEx AS custom
>   Owner = -1        && HWND      hwndOwner
>   Filter =""        && LPCTSTR   lpstrFilter text,*.txt; replace ,; to \0
>   FilterIndex = 0   && DWORD     nFilterIndex
>   File=""           && LPTSTR    lpstrFile; add \0
>
>*   Instance =0       && HINSTANCE hInstance
>*   CustomFilter = "" && LPTSTR    lpstrCustomFilter; null
>*   MaxCustFilter = 0 && DWORD     nMaxCustFilter
>*   FileTitle=""      && LPTSTR    lpstrFileTitle; if empty set null, add \0
>*   MaxFileTitle=0    && DWORD     nMaxFileTitle; auto by FileTitle
>*   TemplateName=""   && LPCTSTR   lpTemplateName; if empty set null, add \0
>*   FlagsEx=""        && DWORD     FlagsEx
>
>   MaxFile=2048      && DWORD     nMaxFile; auto by File
>   InitialDir=""     && LPCTSTR   lpstrInitialDir; if empty set null, add \0
>   Title=""          && LPCTSTR   lpstrTitle; if empty set null add \0
>   Flags=0           && DWORD     Flags;
>   FileOffset=0      && WORD      nFileOffset; out for single/multi select
>   FileExtension=0   && WORD      nFileExtension; out
>   DefExt=""         && LPCTSTR   lpstrDefExt; if empty set null, add \0
>
>*   DIME aFiles(1)    && Array of selected Files
>   iFiles=0          && Count of selected files
>   SelectedFolder="" && Selected folder for more files
>   aFName=""         &&
>
>   Err=0             && Error Number
>
>   AllowMultiSelect=.T.
>   CreatePrompt=.F.
>   EnableHook=.F.
>   EnableIncludeNotify=.F.
>   EnableSizing=.T.
>   EnableTemplate=.F.
>   EnableTemplateHandle=.F.
>   Explorer=.T.
>   ExtensionDifferent=.F.
>   FileMustExist=.F.
>   ForceShowHidden=.T.
>   HideReadOnly=.T.
>   LongNames=.F.
>   NoChangeDir=.F.
>   NoDereferenceLinks=.F.
>   NoLongNames=.F.
>   NoNetworkButton=.F.
>   NoReadOnlyReturn=.F.
>   NotesFileCreate=.F.
>   NoValidate=.F.
>   OverWritePrompt=.F.
>   PathMustExist=.F.
>   ReadOnly=.F.
>   ShareWare=.F.
>   ShowHelp=.F.
>ENDDEFINE
>
>
>

>