\' Gambas class file
Public Sub _new()
End
Public Sub Form_Open()
ButtonBoxArchivo.Text = User.home
TextAreaResultado.ReadOnly = True
End
Public Sub ButtonBoxArchivo_Click()
If Dialog.SelectDirectory() Then
Else
ButtonBoxArchivo.text = Dialog.path
Endif
End
Public Sub ButtonBuscar_Click()
Dim lista As String
Dim hproceso As Process
TextAreaResultado.text = ""
If ButtonBoxArchivo.text = "" Then ButtonBoxArchivo.text = User.home
LabelEspere.Text = "Espere.."
hproceso = Shell ("find " & ButtonBoxArchivo.text & " -name " & TextBoxNombre.text) For Read As "Proceso"
Do While hproceso.state = Process.Running
Wait 0.1
Select Case LabelEspere.Text
Case ""
LabelEspere.Text = "Espere."
Case "Espere."
LabelEspere.Text = "Espere.."
Case "Espere.."
LabelEspere.Text = "Espere..."
Case "Espere..."
LabelEspere.Text = "Espere...."
Case "Espere...."
LabelEspere.Text = "Espere....."
Case "Espere....."
LabelEspere.Text = ""
End Select
Loop
LabelEspere.Text = ""
End
Public Sub Proceso_read()
Dim sline As String
sline = Read #Last, Lof(Last)
TextAreaResultado.text &= sline
End