document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub _new()
  4.  
  5. End
  6.  
  7. Public Sub Form_Open()
  8.  
  9.   ButtonBoxArchivo.Text = User.home
  10.   TextAreaResultado.ReadOnly = True
  11.  
  12. End
  13.  
  14. Public Sub ButtonBoxArchivo_Click()
  15.  
  16.   If Dialog.SelectDirectory() Then
  17.   Else
  18.     ButtonBoxArchivo.text = Dialog.path
  19.    
  20.   Endif
  21.  
  22. End
  23.  
  24. Public Sub ButtonBuscar_Click()
  25.  
  26.   Dim lista As String
  27.   Dim hproceso As Process
  28.  
  29.   TextAreaResultado.text = ""
  30.   If ButtonBoxArchivo.text = "" Then ButtonBoxArchivo.text = User.home
  31.   LabelEspere.Text = "Espere.."
  32.   hproceso = Shell ("find " & ButtonBoxArchivo.text & " -name " & TextBoxNombre.text) For Read As "Proceso"
  33.  
  34.   Do While hproceso.state = Process.Running
  35.     Wait 0.1
  36.     Select Case LabelEspere.Text
  37.       Case ""
  38.         LabelEspere.Text = "Espere."
  39.       Case "Espere."
  40.         LabelEspere.Text = "Espere.."
  41.       Case "Espere.."
  42.         LabelEspere.Text = "Espere..."
  43.       Case "Espere..."
  44.         LabelEspere.Text = "Espere...."
  45.       Case "Espere...."
  46.         LabelEspere.Text = "Espere....."
  47.       Case "Espere....."
  48.         LabelEspere.Text = ""
  49.        
  50.     End Select
  51.   Loop
  52.   LabelEspere.Text = ""
  53.  
  54. End
  55.  
  56. Public Sub Proceso_read()
  57.  
  58.   Dim sline As String
  59.  
  60.   sline = Read #Last, Lof(Last)
  61.   TextAreaResultado.text &= sline
  62.  
  63. End
');