Mensajes

[Mod: Los códigos deben ir en etiquetas GeSHi]

Código (vb) [Seleccionar] Expandir

Private Sub optBuscar_Click()

Dim buscar As String
buscar = Dir(Path / vbArchive)
Do While buscar <> ""
     If InStr(buscar, Text1.Text) > 0 Then
         'El archivo contiene la palabra grande'
     Else
         'El archivo no contiene la palabra grande'
     End If
     buscar = Dir
Loop

Me.optBuscar = Text1.Text

'Me.optBuscar = (Path / CommonDialog1.FileName)
MsgBox "se encuentra en buscar "

End Sub




Arreglar el Codigo para que me busque un archivo en un directorio predeterminado y cuando encuentre el archivo me lo muestre en una ventana de informacion, diciendo la ruta exacta de dicho archivo

Mod: Los códigos deben ir en etiquetas GeSHi