Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Find a filename
Message
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
00379476
Message ID:
00379963
Views:
23
Hi Nadya,

I just tried out the FILER.DLL that comes with VFP 6. This is pretty quick and has the advantage of control staying with VFP.
*- File Ref: Test_Filer.Prg

#DEFINE NoAttributesSet       0
#DEFINE ReadOnly              1
#DEFINE Hidden                2
#DEFINE System                4
#DEFINE Archived              32

#DEFINE DoNotSearchSubFolder  0
#DEFINE SearchSubFolder       1

CLEAR
oFiler = CREATEOBJECT( "Filer.FileUtil" )
oFiler.SearchPath = "c:\"
oFiler.FileExpression = "pdfmon.dll"
oFiler.SubFolder = SearchSubFolder
oFiler.Find(0)

FOR iFile = 1 TO oFiler.Files.Count
   ? iFile
   ?? " "
   ?? oFiler.Files.Item[ iFile ].Name
   ?? " "
   ?? oFiler.Files.Item[ iFile ].Attr
   ?? " "
   ?? oFiler.Files.Item[ iFile ].Path
NEXT iFile
RETURN .T.
Houston.
censored.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform