Mini Kabibi Habibi
�� VERSION = 3.00 dataenvironment dataenvironment Dataenvironment _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
1 2 form form
FileFinder KDataSession = 2
Height = 310
Width = 456
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 3
Caption = "File Finder"
FontName = "MS Sans Serif"
FontSize = 8
MaxButton = .F.
MinHeight = 310
MinWidth = 300
Icon = filer.ico
KeyPreview = .T.
HelpContextID = 22999670
npixeloffset = 22
ofilerapp = .F.
Name = "FileFinder"
8DPROCEDURE updatecombo
LPARAMETER oComboRef
LOCAL cDisplayValue, nCount
m.cDisplayValue = oComboRef.DisplayValue
IF LEFT(m.cDisplayValue,2)="\\"
m.cDisplayValue = "\" + m.cDisplayValue
ENDIF
IF EMPTY(m.cDisplayValue)
RETURN
ENDIF
WITH oComboRef
FOR i = 1 TO .ListCount
IF UPPER(m.cDisplayValue) == UPPER(.List[m.i])
EXIT
ENDIF
IF m.i = .ListCount
.AddItem(m.cDisplayValue)
ENDIF
ENDFOR
ENDWITH
ENDPROC
PROCEDURE editfile
PARAMETER llistboxclick
LOCAL i,j
IF TYPE("THIS.oFiler")#"O" OR ISNULL(THIS.oFiler) OR;
THIS.lstFiles.ListCount=0 OR THIS.lstFiles.ListItemID=0
RETURN
ENDIF
IF !llistboxclick
* User clicked Edit button, check for multi-selects
FOR i = 1 TO THIS.lstFiles.Listcount
IF THIS.lstFiles.Selected(m.i)
FOR j = m.i TO THIS.oFiler.Count
IF THIS.oFiler.Item[m.j].Path+THIS.oFiler.Item[m.j].Name = ;
THIS.lstFiles.List(m.i) AND FILE(THIS.lstFiles.List(m.i))
THIS.oFiler.Item[m.j].Edit
ENDIF
ENDFOR
ENDIF
ENDFOR
ENDIF
IF THIS.oFiler.Count = THIS.lstFiles.ListCount AND ;
FILE(THIS.lstFiles.List(THIS.lstFiles.ListItemID))
THIS.oFiler.Item[THIS.lstFiles.ListItemID].Edit
ELSE
FOR i = 1 TO THIS.oFiler.Count
IF THIS.oFiler.Item[m.i].Path+THIS.oFiler.Item[m.i].Name = ;
THIS.lstFiles.List(THIS.lstFiles.ListItemID) AND ;
FILE(THIS.lstFiles.List(THIS.lstFiles.ListItemID))
THIS.oFiler.Item[m.i].Edit
RETURN
ENDIF
ENDFOR
ENDIF
ENDPROC
PROCEDURE find
*!* Filer PEMS
*!* =================
*!* SearchPath
*!* FileExpression
*!* SubFolder
*!* SearchText1,SearchText2,SearchText3
*!* IgnoreCase
*!* WholeWords
*!* SearchAnd
*!* Find
*!* DoSearch
*!* Files (collection)
*!* Files Collection PEMS
*!* =====================
*!* Item
*!* Count
*!* Edit
*!* File Object PEMS
*!* =================
*!* Name
*!* Size
*!* SizeHigh
*!* Attr
*!* DateTime
*!* LastAccessTime
*!* LastWriteTime
*!* AlternateName
*!* Path
*!* Edit
*!* Delete
#DEFINE C_INTERRUPT_LOC "Operation aborted. Would you like to see a partial result list?"
#DEFINE ERR_NOCLASS_LOC "Could not instantiate the Filer COM object. Check to make sure it is registered properly."
#DEFINE C_FILERCLASS "filer.fileutil"
LOCAL cFiles,cFile,oFiler,nFiles,i,nDateKey,dDate1,dDate2,nAttr,nGetFileSize,cFileName,cPath,oFile
LOCAL nFileSizeCriteria,nFileSize,lAttrReadOnly,lAttrArchive,lAttrHidden,lAttrSystem,lcSaveEscape,lcCursor
THIS.ResetResults
THIS.ofilerapp = CreateObject(C_FILERCLASS)
oFiler = THIS.ofilerapp
IF TYPE("oFiler")#"O" OR ISNULL(oFiler)
MESSAGEBOX(ERR_NOCLASS_LOC)
RETURN
ENDIF
* Name & Location Page
WITH THIS.pf1.page1
m.cFiles = LOWER(ALLTRIM(.cboFiles.DisplayValue))
oFiler.fileexpression = IIF(EMPTY(m.cFiles),"*.*",m.cFiles)
m.cPath = LOWER(ALLTRIM(.cboPath.Text))
oFiler.searchpath = ADDBS(m.cPath)
oFiler.subfolder = .chkSubFolders.Value
THIS.UpdateCombo(.cboFiles)
THIS.UpdateCombo(.cboPath)
ENDWITH
* Text Search Page
WITH THIS.pf1.page2
IF !EMPTY(ALLTRIM(.txtExpr1.Value))
oFiler.SearchText1 = ALLTRIM(.txtExpr1.Value)
ENDIF
IF !EMPTY(ALLTRIM(.txtExpr2.Value))
oFiler.SearchText2 = ALLTRIM(.txtExpr2.Value)
ENDIF
IF !EMPTY(ALLTRIM(.txtExpr3.Value))
oFiler.SearchText3 = ALLTRIM(.txtExpr3.Value)
ENDIF
oFiler.WholeWords = .chkWholeWords.Value
oFiler.IgnoreCase = (NOT .chkMatchCase.Value)
oFiler.SearchAnd = (.opgSearch.Value#1)
ENDWITH
* Date Search Page
WITH THIS.pf1.page3
nDateKey = IIF(.opgDateFiles.Value=1,1,.opgDateSpecs.Value+1)
DO CASE
CASE m.nDateKey = 2
dDate1 = .txtDate1.Value
dDate2 = .txtDate2.Value
CASE m.nDateKey = 3
dDate1 = DATE() - (.spnMonths.Value*30)
dDate2 = DATE()
CASE m.nDateKey = 4
dDate1 = DATE() - .spnDays.Value
dDate2 = DATE()
ENDCASE
ENDWITH
* File Attribute Search Page
WITH THIS.pf1.page4
nFileSizeCriteria = .cboSize.ListItemID
nFileSize = .spnSize.Value
lAttrReadOnly = .chkReadOnly.Value
lAttrArchive = .chkArchive.Value
lAttrHidden = .chkHidden.Value
lAttrSystem = .chkSystem.Value
ENDWITH
THIS.MousePointer = 11 &&busy pointer
THIS.SetAll("MousePointer",11)
THIS.lstFiles.SetFocus()
lcSaveEscape = SET("ESCAPE")
lcCursor = SET("CURSOR")
SET ESCAPE OFF
SET CURSOR OFF
nFiles = oFiler.find(1)
SET CURSOR &lcCursor
SET ESCAPE &lcSaveEscape
IF nFiles = -1
IF MESSAGEBOX(C_INTERRUPT_LOC,36)#6
THIS.MousePointer = 0
THIS.SetAll("MousePointer",0)
RETURN .F.
ENDIF
nFiles = oFiler.files.count
ENDIF
THIS.lstFiles.Clear
FOR i = 1 TO m.nFiles
oFile=oFiler.Files[m.i]
* Filter out date modified specs
DO CASE
CASE THIS.pf1.page3.opgDateFiles.Value = 2
IF !BETWEEN(oFile.LastWriteTime+{^1899/12/30},m.dDate1,m.dDate2);
AND !BETWEEN(oFile.DateTime+{^1899/12/30},m.dDate1,m.dDate2)
LOOP
ENDIF
CASE THIS.pf1.page3.opgDateFiles.Value = 3
IF !BETWEEN(oFile.LastAccessTime+{^1899/12/30},m.dDate1,m.dDate2)
LOOP
ENDIF
ENDCASE
* Filter out file size specs
IF !ISNULL(m.nFileSize) AND m.nFileSize >0
nGetFileSize = (oFile.size+(oFile.sizeHigh*2^32))/1024
DO CASE
CASE nFileSizeCriteria=1 AND m.nFileSize#m.nGetFileSize
LOOP
CASE nFileSizeCriteria=2 AND m.nFileSize<m.nGetFileSize
LOOP
CASE nFileSizeCriteria=3 AND m.nFileSize>m.nGetFileSize
LOOP
ENDCASE
ENDIF
* Filter out file attribute specs
nAttr = oFile.Attr
IF m.lAttrArchive
IF INT(m.nAttr/32)=1
LOOP
ENDIF
ENDIF
IF m.lAttrSystem
IF INT(MOD(m.nAttr,32)/4)=1
LOOP
ENDIF
ENDIF
IF m.lAttrHidden
IF INT(MOD(MOD(m.nAttr,32),4)/2)=1
LOOP
ENDIF
ENDIF
IF m.lAttrReadOnly
IF INT(MOD(MOD(MOD(m.nAttr,32),4),2)/1)=1
LOOP
ENDIF
ENDIF
m.cFileName=ALLTRIM(oFile.Path+oFile.Name)
IF RIGHT(m.cFileName,2) == "\."
LOOP
ENDIF
IF RIGHT(m.cFileName,3) == "\.."
m.cFileName = LEFT(m.cFileName,LEN(m.cFileName) - 2)
ELSE
IF NOT "."$m.cFileName AND NOT RIGHT(m.cFileName,1) == "\"
LOOP
ENDIF
ENDIF
IF LOWER(m.cFileName) == m.cPath
LOOP
ENDIF
THIS.lstFiles.AddItem(IIF(LEFT(m.cFileName,2)="\\","\"+m.cFileName,m.cFileName))
ENDFOR
THIS.lblTotfiles.Caption = PADR(ALLTRIM(STR(THIS.lstFiles.ListCount)),5)
THIS.cmdEdit.Enabled = (THIS.lstFiles.Listcount#0)
THIS.oFiler = oFiler.Files
THIS.MousePointer = 0
THIS.SetAll("MousePointer",0)
ENDPROC
PROCEDURE newsearch
THIS.ResetResults
WITH THIS.pf1.page2
.txtExpr1.Value = ""
.txtExpr2.Value = ""
.txtExpr3.Value = ""
ENDWITH
WITH THIS.pf1.page3
.opgDateFiles.Value = 1
.opgDateFiles.Click()
ENDWITH
WITH THIS.pf1.page4
.cboSize.ListItemID = 1
.spnSize.Value = 0.00
.chkReadOnly.Value = .F.
.chkArchive.Value = .F.
.chkHidden.Value = .F.
.chkSystem.Value = .F.
ENDWITH
ENDPROC
PROCEDURE resetresults
THIS.oFiler = .NULL.
THIS.oFilerapp = .NULL.
THIS.lstFiles.Clear
THIS.cmdEdit.Enabled = .F.
THIS.lblTotfiles.Caption = "0"
DOEVENTS
ENDPROC
PROCEDURE openresfile
LOCAL lnSaveArea
lnSaveArea = SELECT()
IF !FILE(SYS(2005)) && resource file not found.
RETURN .F.
ENDIF
SELECT 0
USE (SYS(2005)) AGAIN SHARED
IF EMPTY(ALIAS())
SELECT (lnSaveArea)
RETURN .F.
ENDIF
ENDPROC
PROCEDURE getpref
* Read preferences from resource file
LOCAL lnSaveArea,lnMemwidth,i
lnSaveArea=SELECT()
lnMemwidth = SET('MEMOWIDTH')
SET MEMOWIDTH TO 255
IF !THIS.OpenResFile()
RETURN
ENDIF
LOCATE FOR UPPER(ALLTRIM(type)) == "PREFW";
AND UPPER(ALLTRIM(id)) == "FILERPREFS";
AND !DELETED()
IF FOUND() AND !EMPTY(data) AND ;
ckval=VAL(SYS(2007,data))
RESTORE FROM MEMO data ADDITIVE
IF TYPE("vfp_Save_Filer_Paths[1]")="C"
THIS.pf1.Page1.cboPath.Clear
FOR i = 1 TO ALEN(vfp_Save_Filer_Paths)
IF EMPTY(vfp_Save_Filer_Paths[m.i])
LOOP
ENDIF
THIS.pf1.Page1.cboPath.AddItem(IIF(LEFT(vfp_Save_Filer_Paths[m.i],1)="\","\","")+vfp_Save_Filer_Paths[m.i])
ENDFOR
IF THIS.pf1.Page1.cboPath.ListCount#0
THIS.pf1.Page1.cboPath.Value = THIS.pf1.Page1.cboPath.List[1]
ENDIF
THIS.Top = vfp_Save_Filer_Top
THIS.Left = vfp_Save_Filer_Left
THIS.Width = vfp_Save_Filer_Width
THIS.Height = vfp_Save_Filer_Height
THIS.Resize
ENDIF
ENDIF
USE
SELECT (lnSaveArea)
SET MEMOWIDTH TO lnMemwidth
ENDPROC
PROCEDURE savepref
* Record user preferences in the resource file
LOCAL filarray, filpos, fileattr, lnSaveArea, i, lnLen, lcCurrentValue
lnSaveArea = SELECT()
IF !FILE(SYS(2005)) && resource file not found.
RETURN .F.
ENDIF
* Don't update if this is a read-only file
fileattr = ""
DIMENSION filarray[1] && resized automatically by ADIR()
IF ADIR(filarray,SYS(2005)) > 0
filpos = ASCAN(filarray,JUSTFNAME(SYS(2005)))
IF m.filpos > 0
fileattr = filarray[m.filpos,5]
ENDIF
ENDIF
IF ATC("R",m.fileattr)#0
RETURN .F.
ENDIF
IF !THIS.OpenResFile()
RETURN .F.
ENDIF
IF IsReadonly()
USE
SELECT (lnSaveArea)
RETURN .f.
ENDIF
DIMENSION vfp_Save_Filer_Paths[1]
lcCurrentValue=ALLTRIM(THIS.pf1.Page1.cboPath.Text)
vfp_Save_Filer_Paths[1]=lcCurrentValue
FOR i = 1 TO THIS.pf1.Page1.cboPath.ListCount
IF EMPTY(lcCurrentValue) OR !(ALLTRIM(THIS.pf1.Page1.cboPath.List[m.i])==lcCurrentValue)
lnLen = ALEN[vfp_Save_Filer_Paths]
DIMENSION vfp_Save_Filer_Paths[lnLen+1]
vfp_Save_Filer_Paths[lnLen+1] = THIS.pf1.Page1.cboPath.List[m.i]
ENDIF
ENDFOR
vfp_Save_Filer_Top = THIS.Top
vfp_Save_Filer_Left = THIS.Left
vfp_Save_Filer_Width = THIS.Width
vfp_Save_Filer_Height = THIS.Height
LOCATE FOR UPPER(ALLTRIM(type)) == "PREFW" ;
AND UPPER(ALLTRIM(id)) == "FILERPREFS"
IF !FOUND()
APPEND BLANK
SAVE TO MEMO data ALL LIKE vfp_Save_Filer*
REPLACE type WITH "PREFW",;
id WITH "FILERPREFS",;
ckval WITH VAL(SYS(2007,data)),;
updated WITH DATE(),;
readonly WITH .F.
ELSE
IF readonly && resource *record* (not file) is read-only
USE
SELECT (lnSaveArea)
RETURN .F.
ELSE
SAVE TO MEMO data ALL LIKE vfp_Save_Filer*
REPLACE ckval WITH VAL(SYS(2007,data))
ENDIF
ENDIF
USE
SELECT (lnSaveArea)
RETURN .T.
ENDPROC
PROCEDURE Init
#DEFINE C_FILERMENU_LOC "\<Filer"
#DEFINE C_FILERMENUMSG_LOC "Finds files and directories"
#DEFINE C_FILERPATH1 "tools\filer\filer.scx"
LPARAMETERS cPath
LOCAL cFilerPath,cProg1
cFilerPath = ""
IF FILE(HOME()+C_FILERPATH1)
cFilerPath = '[' + HOME()+C_FILERPATH1 + ']'
ELSE
cProg1 = SYS(16)
IF ATC("FILER.SCT",m.cProg1)#0
cFilerPath = CHRTRAN(SUBSTR(m.cProg1,ATC(".INIT",m.cProg1)+6),".SCT",".SCX")
IF !FILE(m.cFilerPath)
cFilerPath = ""
ENDIF
ENDIF
ENDIF
IF !EMPTY(m.cFilerPath)
DEFINE BAR 98 OF _mtools PROMPT "\-"
DEFINE BAR 99 OF _mtools PROMPT C_FILERMENU_LOC MESSAGE C_FILERMENUMSG_LOC
ON SELECTION BAR 99 OF _mtools DO FORM &cFilerPath.
ENDIF
IF TYPE("m.cPath")=="N" AND m.cPath=0
RETURN .F.
ENDIF
IF TYPE("m.cPath")=="C"
cPath=ALLTRIM(m.cPath)
WITH THIS.pf1.Page1.cboPath
.AddItem(m.cPath)
.DisplayValue = m.cPath
ENDWITH
ENDIF
THIS.GetPref
THIS.pf1.Page1.cboFiles.SetFocus
IF fontmetric(1, 'MS Sans Serif', 8, '') # 13 OR ;
fontmetric(4, 'MS Sans Serif', 8, '') # 2 OR ;
fontmetric(6, 'MS Sans Serif', 8, '') # 5 OR ;
fontmetric(7, 'MS Sans Serif', 8, '') # 11
this.setall('fontname', 'Arial')
ENDIF
ENDPROC
PROCEDURE Load
*
* Filer - File Finder.
*
* 1996 Microsoft Corp.
* 1 Microsoft Way
* Redmond, WA 98052
*
* Description:
* File Finder for Visual FoxPro 5.0.
*
LOCAL oForm,cName,nTop,nLeft,i,nFormCount
SET TALK OFF
SET CONFIRM ON
SET DECIMALS TO 9
SET EXACT OFF
SET EXCLUSIVE OFF
SET MEMOWIDTH TO 1024
SET MULTILOCKS ON
SET POINT TO "."
SET SAFETY OFF
THIS.nLastHeight = THIS.Height
THIS.nLastWidth = THIS.Width
*-- Auto cascade forms for multiple instances.
m.nFormCount = _screen.FormCount
m.cName = THIS.Name
lcTempName = "_" + m.cName + "_"
m.nTop = THIS.Top
m.nLeft = THIS.Left
FOR m.i = 2 TO m.nFormCount
oForm = _screen.Forms[m.i]
IF TYPE("oForm") # "O" OR ISNULL(oForm) OR NOT oForm.Name == m.cName
LOOP
ENDIF
IF m.nTop = oForm.Top AND m.nLeft = oForm.Left
m.nTop = m.nTop+THIS.nPixelOffset
m.nLeft = m.nLeft+THIS.nPixelOffset
m.i = 1
ENDIF
oForm = .NULL.
ENDFOR
IF THIS.Top # m.nTop
THIS.Top = m.nTop
ENDIF
IF THIS.Left # m.nLeft
THIS.Left = m.nLeft
ENDIF
ENDPROC
PROCEDURE Deactivate
ACTIVATE SCREEN
SET MESSAGE TO
ENDPROC
PROCEDURE Activate
ACTIVATE SCREEN
SET MESSAGE TO
ENDPROC
PROCEDURE QueryUnload
THIS.SavePref()
THIS.oFiler = .NULL.
THIS.oFilerapp = .NULL.
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 27
IF THIS.QueryUnload()
THIS.Release
ENDIF
ENDIF
ENDPROC
PROCEDURE Error
#DEFINE ERR_HADRERROR_LOC "An error occurred with Filer: "
#DEFINE ERR_ERRORNUM_LOC " Error number: "
#DEFINE ERR_ERRORMETHOD_LOC " Method: "
#DEFINE ERR_ERRORLINE_LOC " Line number: "
#DEFINE ERR_NOFILERDLL_LOC "You need to have FILER.DLL in order to use this utility."
#DEFINE MSG_REGFILERDLL_LOC "The Filer COM object is not registered, would you like me to do this for you?"
#DEFINE C_FILERDLL "FILER.DLL"
#DEFINE C_FILERPATH "FILER\"
#DEFINE C_CRLF CHR(13)+CHR(10)
LPARAMETERS nError,cMethod,nLine
LOCAL cFilerFile,lcPath
lcPath = SUBSTR(SYS(16), AT(' ', SYS(16), 2) + 1)
lcPath = LEFT(lcPath, RAT('\', lcPath))
* ignore certain errors
IF INLIST(nError,1705)
RETURN
ENDIF
* Check to make sure library is registered
IF INLIST(nError,1426,1733) AND !THIS.lTryRegister
THIS.lTryRegister=.T.
DO CASE
CASE FILE(lcPath + C_FILERDLL)
cFilerFile = lcPath + C_FILERDLL
CASE FILE(HOME()+C_FILERDLL)
cFilerFile = HOME()+C_FILERDLL
CASE FILE(HOME()+C_FILERPATH+C_FILERDLL)
cFilerFile = HOME()+C_FILERPATH+C_FILERDLL
CASE FILE(C_FILERDLL)
cFilerFile = C_FILERDLL
OTHERWISE
MESSAGEBOX(ERR_NOFILERDLL_LOC,48,THIS.Caption)
RETURN
ENDCASE
IF MESSAGEBOX(MSG_REGFILERDLL_LOC,36,THIS.Caption)=6
RUN /n REGSVR32 /s "&cFilerFile"
RETRY
ENDIF
RETURN
ENDIF
* Normal Error handling
MESSAGEBOX(ERR_HADRERROR_LOC+C_CRLF+;
ERR_ERRORNUM_LOC+TRANS(nError)+C_CRLF+;
ERR_ERRORMETHOD_LOC+cMethod+C_CRLF+;
ERR_ERRORLINE_LOC+TRANS(nLine)+C_CRLF+MESSAGE())
ENDPROC
-#��
-
- { % q' �+ � ( � U � �� � �� � � T�
� �� � �� %�C�
� �=� \\��T � T�
� �� \�
� �� � %�C�
� ���m � B� �
��� ��� � �� ���(�� ��� � %�C�
� fCC �
� � f��� � !� � %��
� � ��� � ��C �
� � �� � �� �� U OCOMBOREF
CDISPLAYVALUE NCOUNT DISPLAYVALUE I LISTCOUNT LIST ADDITEMO 4� � �� � �M %�C� THIS.oFilerb� O� C� � � � � � � � � � � � � ��c � B� � %��
��K� �� ���(�� � � ��G� %�C �
� � � � ��C� �� ��
� �(�� � � ��?�X %�C �
� � � �
� C �
� � � �
� C �
� � � �
� CC �
� � � �
0 ��;� �� � �
��
� �� � � �� � �� �6 %�� � � � � � � CC� � � � � �
0 ���� �� � �
�� � � �� � �H� �� ���(�� � � ��D�^ %�C �
� � � �
� C �
� � � �
� C� � � � � �
� CC� � � � � �
0 ��@� �� � �
��
� �� � B� � �� � U
LLISTBOXCLICK I J THIS OFILER LSTFILES LISTCOUNT
LISTITEMID SELECTED COUNT ITEM PATH NAME LIST EDIT
7 �� � � � � � � � � � �
� � �# ��
� � � � � � � �
�� � �! T� � �C� filer.fileutil�N�� T� �� � ��# %�C� oFilerb� O� C� � ��!�e ��C�Y Could not instantiate the Filer COM object. Check to make sure it is registered properly.�x�� B� � ��� � � ���� T�
� �CC�� � �@��' T� � �CC�
� �� � *.*� �
� 6�� T�
� �CC�� � �@�� T� � �C�
� ��� T� � ���! �" �� ��C� � �# �� ��C� � �# �� �� ��� � �$ ���� %�CC��% �" ��
��� T� �& �C��% �" ��� � %�CC��' �" ��
��K� T� �( �C��' �" ��� � %�CC��) �" ��
��{� T� �* �C��) �" ��� � T� �+ ���, �" �� T� �- ���. �"
�� T� �/ ���0 �" ��� �� ��� � �1 ����+ T� �C��2 �" �� �� ��3 �" �6��
H���� ��
� ���F� T� ���4 �" �� T� ���5 �" �� ��
� ���~� T� �C$��6 �" � �� T� �C$�� ��
� ����� T� �C$��7 �" �� T� �C$�� � �� ��� � �8 ��2� T�
���9 �: �� T� ���; �" �� T� ���< �" �� T� ���= �" �� T� ���> �" �� T� ���? �" �� �� T� �@ �� �� ��C� MousePointer� � �A �� ��C� �B �C �� T� �C� ESCAPEv�� T� �C� CURSORv�� G � G] � T� �C�� �D �� SET CURSOR &lcCursor
SET ESCAPE &lcSaveEscape
%�� �������V %�C�? Operation aborted. Would you like to see a partial result list?�$�x����� T� �@ �� �� ��C� MousePointer� � �A �� B�-�� � T� �� �E �F �� �
�� �B �G � �� ���(��
� ��� � T� �C �
� � �E ��
H����� �� � �1 �2 �" ���c�H %�C� �H � ��lBA�
� �
� �
� C� �I � ��lBA�
� �
� �
��_� .� � �� � �1 �2 �" �����' %�C� �J � ��lBA�
� �
� �
���� .� � � %�C�
� �
�
�
� � ��z�+ T� �� �K � �L �
�A�� ��
H�
�v� ��
�� �
� �
� ��.� .� ��
�� �
� �
�
��R� .� ��
�� �
� �
� ��v� .� � � T� �� �M �� %��
� ���� %�C�
� � 8����� .� � � %��
� ���� %�CC�
� � G� 8����� .� � � %��
� ��5�# %�CCC�
� � G�G� 8���1� .� � � %��
� ��x�( %�CCCC�
� � G�G�G� 8���t� .� � � T�
�
�C� �N � �O ��� %�C�
�
�R� \.���� .� � %�C�
�
�R� \..���� T�
�
�C�
�
C�
�
>�=�� �+ �) %�� .�
�
� C�
�
�R� \
��' � .� � � %�C�
�
@�
� ��J � .� �7 ��CCC�
�
�=� \\�
� \�
�
� �
�
6� �B �P �� ��" T� �Q �R �CCC� �B �S Z����� T� �T �U �� �B �S � �� T� � �� �E �� T� �@ �� �� ��C� MousePointer� � �A �� UV CFILES CFILE OFILER NFILES I NDATEKEY DDATE1 DDATE2 NATTR NGETFILESIZE CFILENAME CPATH OFILE NFILESIZECRITERIA NFILESIZE
LATTRREADONLY LATTRARCHIVE LATTRHIDDEN LATTRSYSTEM LCSAVEESCAPE LCCURSOR THIS RESETRESULTS OFILERAPP PF1 PAGE1 CBOFILES DISPLAYVALUE FILEEXPRESSION CBOPATH TEXT
SEARCHPATH SUBFOLDER
CHKSUBFOLDERS VALUE UPDATECOMBO PAGE2 TXTEXPR1 SEARCHTEXT1 TXTEXPR2 SEARCHTEXT2 TXTEXPR3 SEARCHTEXT3
WHOLEWORDS
CHKWHOLEWORDS
IGNORECASE CHKMATCHCASE SEARCHAND OPGSEARCH PAGE3 OPGDATEFILES OPGDATESPECS TXTDATE1 TXTDATE2 SPNMONTHS SPNDAYS PAGE4 CBOSIZE
LISTITEMID SPNSIZE CHKREADONLY
CHKARCHIVE CHKHIDDEN CHKSYSTEM MOUSEPOINTER SETALL LSTFILES SETFOCUS FIND FILES COUNT CLEAR
LASTWRITETIME DATETIME LASTACCESSTIME SIZE SIZEHIGH ATTR PATH NAME ADDITEM LBLTOTFILES CAPTION LISTCOUNT CMDEDIT ENABLED
�� � � ��� � � ��P � T�� � �� �� T�� � �� �� T�� � �� �� �� ��� � � ��� � T�� � ���� ��C�� �
�� �� ��� � � ��� T�� �
���� T�� � �� �� T�� � �-�� T�� � �-�� T�� � �-�� T�� � �-�� �� U THIS RESETRESULTS PF1 PAGE2 TXTEXPR1 VALUE TXTEXPR2 TXTEXPR3 PAGE3 OPGDATEFILES CLICK PAGE4 CBOSIZE
LISTITEMID SPNSIZE CHKREADONLY
CHKARCHIVE CHKHIDDEN CHKSYSTEMU T� � �� T� � ��
�� � � � T� � � �-�� T� � � �� 0�� �� U THIS OFILER OFILERAPP LSTFILES CLEAR CMDEDIT ENABLED LBLTOTFILES CAPTIONn �� � T� �CW�� %�CC��]0
��- � B�-�� � F� � Q�C��]��� %�CC���g �
F�� �� B�-�� � U
LNSAVEAREA8 �� � � � T� �CW�� T� �C� MEMOWIDTHv�� G$(����� %�C� �
��T � B� �7 -�CC� �f� PREFW� CC� �f�
FILERPREFS � C'
��) %�C4� C� �
� � CC��� ]g ���
@� �+ %�C� vfp_Save_Filer_Paths[1]b� C��� �� � �
� � � �� ���(�C�
��|� %�CC �
� �
���4� .� �D ��CCCC �
� �
�=� \� � \� � 6C �
� �
� � �
� � �� �� %�� � �
� � � ����) T� � �
� � �C�� � �
� � �� � T� � �� �� T� � �� �� T� � �� �� T� � �� ��
�� � � � � Q�
F�� �� G$(�� �� U
LNSAVEAREA
LNMEMWIDTH I THIS OPENRESFILE TYPE ID DATA CKVAL PF1 PAGE1 CBOPATH CLEAR VFP_SAVE_FILER_PATHS ADDITEM LISTCOUNT VALUE LIST TOP VFP_SAVE_FILER_TOP LEFT VFP_SAVE_FILER_LEFT WIDTH VFP_SAVE_FILER_WIDTH HEIGHT VFP_SAVE_FILER_HEIGHT RESIZE� �� � � � � � � � T� �CW�� %�CC��]0
��E � B�-�� �
T� �� ��
� ���� %�C�� C��]�� ��� � T� �C� CC��]����� %��
� � ��� � T� �C �
� �� �� � � %�C� R�
� �� ��� � B�-�� � %�C� �
��� B�-�� �
%�C�s��.� Q�
F�� �� B�-�� �
� ���� T� �C� �
� � �
��� T� ����� ��# �� ���(�� �
� � � ���1 %�C� �� CC �
� � �
� � � ��
�� � T� �C� �� � �� ���* T� �� ���C �
� � �
� � � �� � �� T� �� � �� T� �� � �� T� �� � �� T� �� � ��0 -�CC� �f� PREFW� CC� �f�
FILERPREFS ��
%�C4
���� � D(� � vfp_Save_Filer*�I >� �� PREFW�� ��
FILERPREFS�� �CC��� ]g�� �C$�� �-�� �d�
%�� ��&� Q�
F�� �� B�-�� �`� D(� � vfp_Save_Filer*� >� �CC��� ]g�� � � Q�
F�� �� B�a�� U FILARRAY FILPOS FILEATTR
LNSAVEAREA I LNLEN LCCURRENTVALUE THIS OPENRESFILE VFP_SAVE_FILER_PATHS PF1 PAGE1 CBOPATH TEXT LISTCOUNT LIST VFP_SAVE_FILER_TOP TOP VFP_SAVE_FILER_LEFT LEFT VFP_SAVE_FILER_WIDTH WIDTH VFP_SAVE_FILER_HEIGHT HEIGHT TYPE ID DATA CKVAL UPDATED READONLY# �� � �� � �
T� �� ��( %�CC�Q� tools\filer\filer.scx0��w �0 T� �� [C�Q� tools\filer\filer.scx� ]�� �
� T� �C�]��! %�C� FILER.SCT�
� �� ���4 T� �CC�
� C� .INIT�
� ��\� .SCT� .SCX��� %�C�
� 0
���
T� �� �� � � � %�C�
� �
���� s��b���"�� \-��; s��c���"�� \<Filer� �� Finds files and directories��7 ON SELECTION BAR 99 OF _mtools DO FORM &cFilerPath.
�( %�C� m.cPathb� N�
�
� � ���� B�-�� � %�C� m.cPathb� C��E� T� �C�
� ��� ��� � � � ��A� ��C �
� � �� T� ��
� �� �� �
�� � � �� � � �
� �� %�C��
MS Sans Serif�� �$�
�! C��
MS Sans Serif�� �$� �! C��
MS Sans Serif�� �$� �! C��
MS Sans Serif�� �$� �� � ��C� fontname� Arial� � �� � U
CPATH
CFILERPATH CPROG1 THIS PF1 PAGE1 CBOPATH ADDITEM DISPLAYVALUE GETPREF CBOFILES SETFOCUS SETALL' �� � � � � � � G2 � G � G
(�� �� G � G � G$(�� �� G_ � G;(�� .�� G. � T� � �� � �� T� � �� �
�� T�
� ��9� �� T�
� �� � �� T�
�� _�
� � _�� T�
� �� � �� T�
� �� � �� ��
� ���(��
� ���� T� �C �
� �9� ��3 %�C� oFormb� O� C� � � � � �
�
��P� .� �& %��
� � � �
�
� � � ���� T�
� ��
� � � �� T�
� ��
� � � �� T�
� ���� � T� �� �� %�� � �
� ���� T� � ��
� �� � %�� � �
� �� � T� � ��
� �� � U OFORM CNAME NTOP NLEFT I
NFORMCOUNT THIS NLASTHEIGHT HEIGHT
NLASTWIDTH WIDTH FORMCOUNT NAME
LCTEMPNAME TOP LEFT FORMS NPIXELOFFSET t&� G&(� U t&� G&(� U ,
��C� � �� T� � �� T� � �� U THIS SAVEPREF OFILER OFILERAPPB �� � � %�� ���; � %�C� � ��7 �
�� � � � � U NKEYCODE
NSHIFTALTCTRL THIS QUERYUNLOAD RELEASE1 �� � � � �� � �# T� �CC�]C� C�]� �\�� T� �C� C� \� �=�� %�C� �����l � B� �" %�C� ������ � �
���� T� � �a��
H�� ��� �C� � FILER.DLL0��� � T� �� � FILER.DLL�� �CC�Q� FILER.DLL0��� T� �C�Q� FILER.DLL��& �CC�Q� FILER\� FILER.DLL0��c�$ T� �C�Q� FILER\� FILER.DLL�� �C� FILER.DLL0���� T� �� FILER.DLL�� 2���M ��C�8 You need to have FILER.DLL in order to use this utility.�0� � �x�� B� �j %�C�M The Filer COM object is not registered, would you like me to do this for you?�$� � �x�����$ RUN /n REGSVR32 /s "&cFilerFile"
X� � B� �� ��C� An error occurred with Filer: C�
C�
� Error number: C� _C�
C�
�
Method: � C�
C�
� Line number: C� _C�
C�
CE�x�� U NERROR CMETHOD NLINE
CFILERFILE LCPATH THIS LTRYREGISTER CAPTION updatecombo, �� editfilen �� find4 �� newsearch� �� resetresults~ �� openresfile) �� getpref� �� savepref� �� Init� �� LoadA ��
Deactivate# �� Activate# �� QueryUnload%# �� KeyPressx# �� Error�# ��1 q � "�aA A A � ��A A AA A A 3 q � �A A � �����A A A A A c�� ���A A A A 2 Pq1� 1QA A 3qqqQAA 3aaA aaA aaA Aa�A 3�� 11�� 1A� A A 3A �QQa a A��"a�q A 1A � �r� ��A A �qA A A ��� A A A A A � �A A A � �A A A � 1A A A � �A A A ��A A ��� �A A A qA A qA "�1�3 � 2A 1� A 1�� � � � A 4 � � � AA 2 q � 1q A � � � � q A 3 � � �� !A A s�� �1�aA A AA ��A � A B A � � 3 �� 2q A � � ��1qA A �q A "q A � A � q A � �11�A A � Q ��� � A � q � �QA A A � q 2 u � � �� � A!� A A A !Q�qA �q A �aA A � 1d A 3 �a a � a a � a � a 21!�!!�a1A A a��� A � A a!A a!A 3 Q a 3 Q a 3 � � � 3 � � A A 3 � � 2�3A A #� � ����aA�a� �A A �AA A A A &
2 � � � 0 � @ � & � � � S � u M ( � k v 6 � �' ^ ; ( �, � ^ �, �0 � � �0 �0 � 1 81 � Z1 �1 � �1 )2 � E2 98 ! )
- �ofiler
nlastheight
nlastwidth
npixeloffset
ltryregister
ofilerapp
*updatecombo
*editfile
*find
*newsearch
*resetresults
*openresfile
*getpref
*savepref
pageframe pageframe pf1
FileFinder /ErasePage = .T.
PageCount = 4
Anchor = 11
Top = 12
Left = 12
Width = 349
Height = 180
TabIndex = 1
Name = "pf1"
Page1.FontName = "MS Sans Serif"
Page1.FontSize = 8
Page1.Caption = "Name & Location"
Page1.Name = "Page1"
Page2.FontName = "MS Sans Serif"
Page2.FontSize = 8
Page2.Caption = "Text Search"
Page2.Name = "Page2"
Page3.FontName = "MS Sans Serif"
Page3.FontSize = 8
Page3.Caption = "Date Modified"
Page3.Name = "Page3"
Page4.FontName = "MS Sans Serif"
Page4.FontSize = 8
Page4.Caption = "File Attributes"
Page4.Name = "Page4"
combobox combobox cboFiles FileFinder.pf1.Page1 �FontName = "MS Sans Serif"
FontSize = 8
Anchor = 10
RowSourceType = 1
Height = 22
Left = 59
TabIndex = 2
Top = 20
Width = 264
Name = "cboFiles"
�PROCEDURE Init
THIS.AddItem("*.prg")
THIS.AddItem("*.txt")
THIS.AddItem("*.h")
THIS.AddItem("*.mpr")
THIS.AddItem("*.qpr")
THIS.AddItem("*.fpt")
THIS.AddItem("*.*")
ENDPROC
S�� : : � % � � � � U � ��C� *.prg� � �� ��C� *.txt� � �� ��C� *.h� � �� ��C� *.mpr� � �� ��C� *.qpr� � �� ��C� *.fpt� � �� ��C� *.*� � �� U THIS ADDITEM Init, ��1 QQ1QQQ12 � ) : label label lblFiles FileFinder.pf1.Page1 �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Named:"
Height = 15
Left = 11
Top = 23
Width = 39
TabIndex = 1
Name = "lblFiles"
combobox combobox cboPath FileFinder.pf1.Page1 �FontName = "MS Sans Serif"
FontSize = 8
Anchor = 10
RowSourceType = 1
Height = 22
Left = 59
TabIndex = 4
Top = 56
Width = 192
InputMask = (REPLICATE("X",128))
Name = "cboPath"
�PROCEDURE Init
LOCAL cStartDir
m.cStartDir = LOWER(SYS(5)+CURDIR())
THIS.AddItem(m.cStartDir)
THIS.DisplayValue = m.cStartDir
ENDPROC
�� sN % � � � � U E �� � T�
� �CC�]C�@�� ��C �
� � � �� T� � ��
� �� U CSTARTDIR THIS ADDITEM DISPLAYVALUE Init, ��1 q a1!2 � ) label label lblPath FileFinder.pf1.Page1 �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Look in:"
Height = 15
Left = 11
Top = 59
Width = 40
TabIndex = 3
Name = "lblPath"
commandbutton
commandbutton cmdBrowse FileFinder.pf1.Page1 �Top = 56
Left = 258
Height = 23
Width = 65
FontName = "MS Sans Serif"
FontSize = 8
Anchor = 8
Caption = "\<Browse..."
TabIndex = 5
Name = "cmdBrowse"
�PROCEDURE Click
LOCAL cGetPath
m.cGetPath = LOWER(GETDIR())
IF !EMPTY(m.cGetPath)
THISFORM.pf1.page1.cboPath.DisplayValue = m.cGetPath
ENDIF
ENDPROC
2��
� % � � � � U L �� � T�
� �CC�3@�� %�C�
� �
��E � T� � � � � ��
� �� � U CGETPATH THISFORM PF1 PAGE1 CBOPATH DISPLAYVALUE Click, ��1 q !�A 2 � ) checkbox checkbox
chkSubFolders FileFinder.pf1.Page1 �Top = 96
Left = 59
Height = 15
Width = 104
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Include \<subfolders"
Value = .T.
TabIndex = 6
Name = "chkSubFolders"
textbox textbox txtExpr1 FileFinder.pf1.Page2 �FontName = "MS Sans Serif"
FontSize = 8
Anchor = 10
Height = 22
Left = 83
MaxLength = 25
TabIndex = 2
Top = 8
Width = 252
Name = "txtExpr1"
label label lblExpr1 FileFinder.pf1.Page2 �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Expression \<1:"
Height = 15
Left = 11
Top = 12
Width = 65
TabIndex = 1
Name = "lblExpr1"
textbox textbox txtExpr2 FileFinder.pf1.Page2 �FontName = "MS Sans Serif"
FontSize = 8
Anchor = 10
Height = 22
Left = 82
MaxLength = 25
TabIndex = 4
Top = 39
Width = 252
Name = "txtExpr2"
label label lblExpr2 FileFinder.pf1.Page2 �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Expression \<2:"
Height = 15
Left = 12
Top = 42
Width = 65
TabIndex = 3
Name = "lblExpr2"
textbox textbox txtExpr3 FileFinder.pf1.Page2 �FontName = "MS Sans Serif"
FontSize = 8
Anchor = 10
Height = 22
Left = 82
MaxLength = 25
TabIndex = 6
Top = 69
Width = 252
Name = "txtExpr3"
label label lblExpr3 FileFinder.pf1.Page2 �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Expression \<3:"
Height = 15
Left = 12
Top = 72
Width = 65
TabIndex = 5
Name = "lblExpr3"
checkbox checkbox chkMatchCase FileFinder.pf1.Page2 �Top = 129
Left = 12
Height = 15
Width = 74
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Match \<case"
Value = .F.
TabIndex = 10
Name = "chkMatchCase"
checkbox checkbox
chkWholeWords FileFinder.pf1.Page2 �Top = 129
Left = 117
Height = 15
Width = 110
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "\<Match whole words"
Value = .F.
TabIndex = 11
Name = "chkWholeWords"
optiongroup optiongroup opgSearch FileFinder.pf1.Page2 RAutoSize = .T.
ButtonCount = 2
BackStyle = 0
BorderStyle = 0
Value = 1
Height = 27
Left = 54
Top = 96
Width = 77
TabIndex = 8
Name = "opgSearch"
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.BackStyle = 0
Option1.Caption = "an\<y"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 39
Option1.Name = "opbAny"
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.BackStyle = 0
Option2.Caption = "al\<l"
Option2.Height = 17
Option2.Left = 44
Option2.Top = 5
Option2.Width = 28
Option2.Name = "opbAll"
label label lblContains FileFinder.pf1.Page2 �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Contains"
Height = 15
Left = 12
Top = 103
Width = 43
TabIndex = 7
Name = "lblContains"
label label lblMatchingWords FileFinder.pf1.Page2 �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "matching words."
Height = 15
Left = 130
Top = 103
Width = 79
TabIndex = 9
Name = "lblMatchingWords"
optiongroup optiongroup opgDateFiles FileFinder.pf1.Page3 �AutoSize = .T.
ButtonCount = 3
BackStyle = 0
BorderStyle = 0
Value = 1
Height = 63
Left = 23
Top = 4
Width = 178
TabIndex = 1
Name = "opgDateFiles"
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.BackStyle = 0
Option1.Caption = "\<All files:"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 61
Option1.Name = "opbAll"
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.BackStyle = 0
Option2.Caption = "Find all files created or \<modified:"
Option2.Height = 15
Option2.Left = 5
Option2.Top = 24
Option2.Width = 168
Option2.AutoSize = .F.
Option2.Name = "opbModified"
Option3.FontName = "MS Sans Serif"
Option3.FontSize = 8
Option3.BackStyle = 0
Option3.Caption = "Find all files \<last accessed:"
Option3.Height = 15
Option3.Left = 5
Option3.Top = 43
Option3.Width = 143
Option3.AutoSize = .T.
Option3.Name = "opbAccessed"
PROCEDURE Click
DO CASE
CASE THIS.Value = 1
THIS.Parent.txtDate1.Enabled = .F.
THIS.Parent.txtDate2.Enabled = .F.
THIS.Parent.spnMonths.Enabled = .F.
THIS.Parent.spnDays.Enabled = .F.
CASE THIS.Value # 1
DO CASE
CASE THIS.Parent.opgDateSpecs.Value = 1
THIS.Parent.txtDate1.Enabled = .T.
THIS.Parent.txtDate2.Enabled = .T.
CASE THIS.Parent.opgDateSpecs.Value = 2
THIS.Parent.spnMonths.Enabled = .T.
CASE THIS.Parent.opgDateSpecs.Value = 3
THIS.Parent.spnDays.Enabled = .T.
ENDCASE
ENDCASE
ENDPROC
V�� = = Dd % � � � � U ;
H�
�4� �� � ���q � T� � � � �-�� T� � � � �-�� T� � � � �-�� T� � � � �-�� �� � ���4�
H�� �0� �� � � � ���� � T� � � � �a�� T� � � � �a�� �� � � � ���� T� � � � �a�� �� � � � ���0� T� � � � �a�� � � U THIS VALUE PARENT TXTDATE1 ENABLED TXTDATE2 SPNMONTHS SPNDAYS OPGDATESPECS Click, ��1 � AAAAAA� �AA�A�AA A 2 ) = optiongroup optiongroup opgDateSpecs FileFinder.pf1.Page3 FButtonCount = 3
BackStyle = 0
BorderStyle = 0
Value = 1
Height = 92
Left = 47
Top = 65
Width = 120
TabIndex = 2
Name = "opgDateSpecs"
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.BackStyle = 0
Option1.Caption = "\<between"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 61
Option1.Name = "opbBetween"
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.BackStyle = 0
Option2.Caption = "during the previou\<s"
Option2.Height = 15
Option2.Left = 5
Option2.Top = 32
Option2.Width = 108
Option2.Name = "opbMonths"
Option3.FontName = "MS Sans Serif"
Option3.FontSize = 8
Option3.BackStyle = 0
Option3.Caption = "\<during the previous"
Option3.Height = 15
Option3.Left = 5
Option3.Top = 58
Option3.Width = 108
Option3.Name = "opbDays"
�PROCEDURE Click
IF THIS.Parent.opgDateFiles.Value = 1
THIS.Parent.opgDateFiles.Value = 2
ENDIF
IF THIS.Parent.opgDateFiles.Value = 0
THIS.Parent.opgDateFiles.Value = 2
ENDIF
DO CASE
CASE THIS.Value = 1
THIS.Parent.txtDate1.Enabled = .T.
THIS.Parent.txtDate2.Enabled = .T.
THIS.Parent.spnMonths.Enabled = .F.
THIS.Parent.spnDays.Enabled = .F.
CASE THIS.Value = 2
THIS.Parent.txtDate1.Enabled = .F.
THIS.Parent.txtDate2.Enabled = .F.
THIS.Parent.spnMonths.Enabled = .T.
THIS.Parent.spnDays.Enabled = .F.
CASE THIS.Value = 3
THIS.Parent.txtDate1.Enabled = .F.
THIS.Parent.txtDate2.Enabled = .F.
THIS.Parent.spnMonths.Enabled = .F.
THIS.Parent.spnDays.Enabled = .T.
ENDCASE
ENDPROC
�� � � � % , m ; � U � %�� � � � ���0 � T� � � � ���� � %�� � � � � ��d � T� � � � ���� �
H�u ��� �� � ���� � T� � � � �a�� T� � � � �a�� T� � � � �-�� T� � � � �-�� �� � ���=� T� � � � �-�� T� � � � �-�� T� � � � �a�� T� � � � �-�� �� � ����� T� � � � �-�� T� � � � �-�� T� � � � �-�� T� � � � �a�� � U THIS PARENT OPGDATEFILES VALUE TXTDATE1 ENABLED TXTDATE2 SPNMONTHS SPNDAYS Click, ��1 �aA �aA � AAAAAAAAAAAAAAAA 1 � ) � spinner spinner spnMonths FileFinder.pf1.Page3 FontName = "MS Sans Serif"
FontSize = 8
Enabled = .F.
Height = 22
InputMask = "999"
KeyboardHighValue = 999
KeyboardLowValue = 0
Left = 172
SpinnerHighValue = 999.00
SpinnerLowValue = 0.00
TabIndex = 6
Top = 94
Width = 58
Value = 1
Name = "spnMonths"
label label lblMonths FileFinder.pf1.Page3 �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "month(s)"
Height = 15
Left = 235
Top = 98
Width = 42
TabIndex = 7
Name = "lblMonths"
spinner spinner spnDays FileFinder.pf1.Page3 FontName = "MS Sans Serif"
FontSize = 8
Enabled = .F.
Height = 22
InputMask = "999"
KeyboardHighValue = 999
KeyboardLowValue = 0
Left = 172
SpinnerHighValue = 999.00
SpinnerLowValue = 0.00
TabIndex = 8
Top = 119
Width = 58
Value = 1
Name = "spnDays"
label label lblDays FileFinder.pf1.Page3 �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "day(s)"
Height = 15
Left = 237
Top = 124
Width = 30
TabIndex = 9
Name = "lblDays"
textbox textbox txtDate1 FileFinder.pf1.Page3 �FontName = "MS Sans Serif"
FontSize = 8
Alignment = 2
Value = (date() - 90)
Enabled = .F.
Height = 22
Left = 117
TabIndex = 3
Top = 68
Width = 69
Name = "txtDate1"
textbox textbox txtDate2 FileFinder.pf1.Page3 �FontName = "MS Sans Serif"
FontSize = 8
Alignment = 2
Value = (date())
Enabled = .F.
Height = 22
Left = 220
TabIndex = 4
Top = 68
Width = 69
Name = "txtDate2"
label label lblAnd FileFinder.pf1.Page3 �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "and"
Height = 15
Left = 191
Top = 72
Width = 20
TabIndex = 5
Name = "lblAnd"
shape shape Shape1 FileFinder.pf1.Page4 mTop = 65
Left = 11
Height = 75
Width = 228
BackStyle = 0
SpecialEffect = 0
Style = 3
Name = "Shape1"
spinner spinner spnSize FileFinder.pf1.Page4 4FontName = "MS Sans Serif"
FontSize = 8
Alignment = 3
Height = 22
KeyboardHighValue = 32767
KeyboardLowValue = 0
Left = 139
SelectOnEntry = .T.
SpinnerHighValue = 32767.00
SpinnerLowValue = 0.00
TabIndex = 3
Top = 18
Width = 78
Format = "Z"
Value = 0.00
NullDisplay = " "
Name = "spnSize"
label label lblSize FileFinder.pf1.Page4 �FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Size is"
Height = 15
Left = 22
Top = 24
Width = 32
TabIndex = 1
Name = "lblSize"
label label lblKB FileFinder.pf1.Page4 �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "KB"
Height = 15
Left = 224
Top = 24
Width = 16
TabIndex = 4
Name = "lblKB"
combobox combobox cboSize FileFinder.pf1.Page4 �FontName = "MS Sans Serif"
FontSize = 8
RowSourceType = 1
Height = 22
Left = 60
Style = 2
TabIndex = 2
Top = 18
Width = 68
Name = "cboSize"
�PROCEDURE Init
#DEFINE C_SIZEMOST_LOC "At most"
#DEFINE C_SIZELEAST_LOC "At least"
THIS.AddItem("")
THIS.AddItem(C_SIZEMOST_LOC)
THIS.AddItem(C_SIZELEAST_LOC)
THIS.DisplayValue = ""
ENDPROC
�� ]i % � � � � U R ��C� � � �� ��C� At most� � �� ��C� At least� � �� T� � �� �� U THIS ADDITEM DISPLAYVALUE Init, ��1 q�2 � ) checkbox checkbox chkReadOnly FileFinder.pf1.Page4 �Top = 84
Left = 23
Height = 15
Width = 66
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "Rea\<d-only"
Value = .F.
TabIndex = 6
Name = "chkReadOnly"
checkbox checkbox
chkArchive FileFinder.pf1.Page4 �Top = 108
Left = 23
Height = 15
Width = 54
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "\<Archive"
Value = .F.
TabIndex = 7
Name = "chkArchive"
checkbox checkbox chkHidden FileFinder.pf1.Page4 �Top = 84
Left = 155
Height = 15
Width = 52
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "\<Hidden"
Value = .F.
TabIndex = 8
Name = "chkHidden"
checkbox checkbox chkSystem FileFinder.pf1.Page4 �Top = 108
Left = 155
Height = 15
Width = 52
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Alignment = 0
BackStyle = 0
Caption = "S\<ystem"
Value = .F.
TabIndex = 9
Name = "chkSystem"
label label lblExcludeFiles FileFinder.pf1.Page4 �FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 1
Caption = "E\<xclude files with these attributes:"
Height = 15
Left = 21
Top = 58
Width = 161
TabIndex = 5
Style = 3
Name = "lblExcludeFiles"
commandbutton
commandbutton cmdNewSearch
FileFinder �Top = 72
Left = 372
Height = 23
Width = 75
FontName = "MS Sans Serif"
FontSize = 8
Anchor = 9
Caption = "Ne\<w Search"
TabIndex = 4
Name = "cmdNewSearch"
0PROCEDURE Click
THISFORM.NewSearch
ENDPROC
�� � � D % R g a � U
�� � � U THISFORM NEWSEARCH Click, ��1 � 2 % ) �
commandbutton
commandbutton cmdEdit
FileFinder �Top = 43
Left = 372
Height = 23
Width = 75
FontName = "MS Sans Serif"
FontSize = 8
Anchor = 9
Caption = "\<Edit"
Enabled = .F.
TabIndex = 3
Name = "cmdEdit"
-PROCEDURE Click
THISFORM.EditFile
ENDPROC
�� � � H� % Q f ` � U
�� � � U THISFORM EDITFILE Click, ��1 � 1 " ) �
commandbutton
commandbutton cmdFind
FileFinder �Top = 14
Left = 372
Height = 23
Width = 75
FontName = "MS Sans Serif"
FontSize = 8
Anchor = 9
Caption = "\<Find Now"
TabIndex = 2
Name = "cmdFind"
�PROCEDURE Click
THISFORM.Find
ENDPROC
PROCEDURE Error
LPARAMETERS nError,cMethod,nLine
THISFORM.Error(nError,cMethod,nLine)
ENDPROC
A�� ( ( i� % � � � � U
�� � � U THISFORM FIND+ �� � � � ��C � � � � � �� U NERROR CMETHOD NLINE THISFORM ERROR Click, �� ErrorM ��1 � 3 � �2 < � ) ( label label lblSearchResults
FileFinder �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Anchor = 7
Caption = "Search \<results:"
Height = 15
Left = 12
Top = 200
Width = 72
TabIndex = 5
Name = "lblSearchResults"
label label
lblFilesFound
FileFinder �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Anchor = 13
Caption = "Files found:"
Height = 15
Left = 358
Top = 200
Width = 56
TabIndex = 5
Name = "lblFilesFound"
label label lblTotFiles
FileFinder �FontName = "MS Sans Serif"
FontSize = 8
Anchor = 13
Alignment = 1
Caption = "0"
Height = 15
Left = 415
Top = 200
Width = 25
TabIndex = 5
Name = "lblTotFiles"
listbox listbox lstFiles
FileFinder �FontName = "MS Sans Serif"
FontSize = 8
Anchor = 15
Height = 85
Left = 12
MultiSelect = .T.
TabIndex = 6
Top = 216
Width = 432
IntegralHeight = .T.
ItemTips = .T.
Name = "lstFiles"
5PROCEDURE DblClick
THISFORM.EditFile(.T.)
ENDPROC
�� � � 6v % U m g � U ��Ca� � �� U THISFORM EDITFILE DblClick, ��1 � 1 * ) � )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0