Test Foro de elhacker.net SMF 2.1

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

Cita de: riquer007 en  9 Junio 2015, 18:14 PM

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

Bueno niños ya saben! tienen que hacer la taréa para el día de hoy!  :¬¬

un "por favor" un "gracias" o por lo menos un "me pueden ayudar?" qué tal?

No se hacen taréas, ni trabajos, se resuelven dudas puntuales y especificas... si tienes una, adelante, si no, supongo que el tema va via ser cerrado