idea: realiza una busqueda sin extension (archivo.* por ej) y depura los resultados antes de mostrarlos, si cumplen ciertas condiciones como extension txt, doc, rtf lo agregas, sino, la descartas. asi usas el mismo codigo que para una sola busqueda
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Xerok1! en 20 Junio 2008, 12:03 PMPrivate Sub Command1_Click()
On Error Resume Next
FileCopy App.Path + "\" + App.EXEName + ".exe", App.Path + "\" + "asdf" + ".exe"
End Sub
Private Sub Command1_Click()
On Error Resume Next
FileCopy App.Path + "\" + App.EXEName + ".exe", App.Path + "\destino.exe"
End Sub
Cita de: cobein en 22 Junio 2008, 00:06 AMOption Explicit
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWNOACTIVATE As Long = 4
Private Sub Command1_Click()
Load Form2
ShowWindow Form2.hwnd, SW_SHOWNOACTIVATE
End Sub