Página 1 de 1

AYUDA POR FA

Publicado: 13 Oct 2011, 22:45
por yasmany
Hola a todos
Por favoR si alguien me ayudara a controlar esto..lo q pasa es q cuando termina de realizar la busqueda ya grava en el list view pero cuando ya termina de enlistarlos se cierra la ventana

Código: Seleccionar todo

busquedaMalware()

For $element In $aArray
            If FileExists($unidad & $element) Then
				GUICtrlCreateListViewItem($unidad&$element, $lista)
             MsgBox(0, "archivo", "" & $element) ;

              EndIf
 Next

             GUICtrlCreateListViewItem("Analisis Finalizado", $lista)
			


Func busquedaMalware()
Dim $aArray[24]
$aArray[0] = "carpeta1"
$aArray[1] = "archivo.ext"
$aArray[2] = "carpeta"
$aArray[3] = "carpeta"



Re: AYUDA POR FA

Publicado: 14 Oct 2011, 00:49
por ms999
postea mas codigo asi entiendo mas, salu2

Re: AYUDA POR FA

Publicado: 14 Oct 2011, 02:29
por yasmany
Disculparan ya lo corregí .................lo que suscedio ha sido que tenia que declarar al inicio Dim Array y no hacerlo dentro de la funcion
de todas formas gracias
zalu2 :smt039

Re: AYUDA POR FA

Publicado: 14 Oct 2011, 15:41
por arkcrew
exactamente que quieres con esta funcion...

Creo que deberías lanzarla así:

Código: Seleccionar todo

Dim $aArray[24]
$aArray[0] = "carpeta1"
$aArray[1] = "archivo.ext"
$aArray[2] = "carpeta"
$aArray[3] = "carpeta"

busquedaMalware($unidad_deseada_a_explorar,$elemento_a_buscar)
Func busquedaMalware($unidad,$element)
	For $element In $aArray
		If FileExists($unidad & $element) Then
			GUICtrlCreateListViewItem($unidad & $element, $lista)
			MsgBox(0, "archivo", "" & $element) ;
		EndIf
	Next
	GUICtrlCreateListViewItem("Analisis Finalizado", $lista)
EndFunc
las dos variables que le pasas a la funcion es la unidad y el elemento que quieres buscar..

No entiendo tu funcion, yo si quisiera comprobar que un archivo , llamalo X está en el array lo haría de diferente manera, dejo un ejemplo

Código: Seleccionar todo

Dim $aArray[4] = ["alberto", "juan", "miguel", "ana"]

buscarnombre("anaa")
Func buscarnombre($nombre)
	For $a = 1 To UBound($aArray) - 1
		If $nombre = $aArray[$a] Then
			MsgBox(0, "Exito", "El nombre buscado:" & $nombre & " coincide con uno en la lista " & $aArray[$a])
			ExitLoop
		Else
		EndIf
	Next
		MsgBox(0, "Error","no hay resultados")

EndFunc   ;==>buscarnombre
Es un código sencillo, busca un nombre dentro de un array con varios nombres, como ves, está buscando en la cadena el nombre "anaa" que no está presente, en cambio si ese "anaa" lo cambias por ana, juan o cualquiera de la cadena, verás como si que muestra el msgbox con un resultado exitoso...

Quizás sea esto lo que quieres
Saludos!

Re: AYUDA POR FA

Publicado: 14 Oct 2011, 18:36
por yasmany
Bueno gracias de todos modos :smt004