FiveTech Support Forums

   REDEFINE COMBOBOX oCbxRutas VAR cRutas           ID 202 ITEMS aCbxRutas OF oDlg
   REDEFINE COMBOBOX oCbxTipos VAR cTipos           ID 203 ITEMS aCbxTipos OF oDlg

FUNCTION BuscaFile()

   local oDlg
   local oCur
   local oIco
   local oBtn0
   local oBtn1
   local oBtn2
   local cDir
   local oCbxFind
   local aCbxFind   := {}
   local oCbxTipos
   local aCbxTipos  := { "*.*", "*.prg", "*.ch", "*.h", "*.c", "*.cpp", "*.rc" }
   local oCbxRutas
   local aCbxRutas  := {}
   local oChkMay
   local lMay       := .F.
   local oChkRec
   local lRec       := .F.
   local cTipos     := aCbxTipos[ 1 ] //"*.*"
   local cRutas     := PadR( GetCurDir(), 255)
   local cFind      := PadR( Space( 60 ), 60 )
   local lValid     := .F.

   lCancel:= .F.

   DEFINE ICON     oIco      RESOURCE "00"
   DEFINE CURSOR   oCur      RESOURCE "MANO"
   DEFINE DIALOG   oDlg      RESOURCE "BUSCARA" TITLE "Buscar en Archivos..." ICON oIco
   REDEFINE COMBOBOX oCbxFind  VAR cFind   ID 201 ITEMS aCbxFind  OF oDlg
   REDEFINE COMBOBOX oCbxRutas VAR cRutas  ID 202 ITEMS aCbxRutas OF oDlg
   REDEFINE COMBOBOX oCbxTipos VAR cTipos  ID 203 ITEMS aCbxTipos OF oDlg
   REDEFINE BTNBMP   oBtn0     RESOURCE "BUSCFILE"  ID 400 OF oDlg ;
      ACTION ( Self, cDir := cGetDir("Seleccione Ruta: ", ALLTRIM( cRutas ) ),;
               IF( !EMPTY( cDir ),;
                  (IF(!oCbxRutas:FIND(cDir),oCbxRutas:Add( cDir ),),;
                  oCbxRutas:oGet:VarPut( cDir ), oCbxRutas:oGet:Refresh()),))

.../...

[BUSQUEDAS]
1=redefine
2=dialog
3=RESOURCE
4=oApp:
5=

[FOLDER]
1=C:\PRUEBAS
2=Z:\FWH\Samples
3=Z:\Harbour\Source
4=D:\
5=F:\Fivewin

[TIPOS]
1=.prg
2=.c
3=.ppo
4=*.*
5=*.txt

@echo off
del borrame.txt
find "%1" *.prg >> borrame.txt
notepad borrame.txt
@echo on