Count element of an array

[RexRomae]

Hello everybody, I have a problem with this script, I want know how many elements there are in an array?

enjoy my script!

CODE

#include <Array.au3>

#include <IE.au3>

; Autore: Rex Romae

$search_tmp = FileFindFirstFile("C:\Documents and Settings\Administrator\Impostazioni locali\Temp\jar_cache*.*")

$search_exe = FileFindFirstFile("C:\Documents and Settings\Administrator\*.exe")

While 1

$file_tmp = FileFindNextFile($search_tmp)

$file_exe = FileFindNextFile($search_exe)

If @error Then ExitLoop

MsgBox(0,"FileControll: Avviso!","Sono stati trovati: NUMBER OF FILES FIND, saranno subito eliminati!")

;FileDelete("C:\Documents and Settings\Administrator\Impostazioni locali\Temp\jar_cache*.*")

;FileDelete("C:\Documents and Settings\Administrator\*.exe")

WEnd

FileClose($search_tmp)

FileClose($search_exe)

Edited February 19, 2008 by RexRomae

[Xenobiologist]

Hi,

Ubound?

Mega

[RexRomae]

so? $u = Ubound($search_tmp)

When I print $u in a MsgBox its repeat for the numbers of elements and it prints 0! Are you understanding?

U can try!

Edited February 19, 2008 by RexRomae

[weaponx]

You don't even have an array in your script. Use _FileListToArray, its in the help file.

[RexRomae]

_FileListToArray give me back an array right??

[GEOSoft]

_FileListToArray give me back an array right??

That's right

Using Your origional code (no array used) Then you could also add a variable

#include <Array.au3>
#include <IE.au3>
; Autore: Rex Romae
$f_Count = 0
$search_tmp = FileFindFirstFile("C:\Documents and Settings\Administrator\Impostazioni locali\Temp\jar_cache*.*")
$search_exe = FileFindFirstFile("C:\Documents and Settings\Administrator\*.exe")
While 1
$file_tmp = FileFindNextFile($search_tmp)
$file_exe = FileFindNextFile($search_exe)
If @error Then ExitLoop
$f_Count += 1
MsgBox(0,"FileControll: Avviso!","Sono stati trovati: NUMBER OF FILES FIND, saranno subito eliminati!")
;FileDelete("C:\Documents and Settings\Administrator\Impostazioni locali\Temp\jar_cache*.*") 
;FileDelete("C:\Documents and Settings\Administrator\*.exe")
WEnd
FileClose($search_tmp) 
FileClose($search_exe)
MsgBox(0, "Found", $f_Count & " files have been found")

[RexRomae]

Thank you, now I have this...It find only 1 file, why??

CODE

#include <Array.au3>

#include <IE.au3>

$f_Count_tmp = 0

$f_Count_exe = 0

$search_tmp = FileFindFirstFile("C:\Documents and Settings\Administrator\Impostazioni locali\Temp\jar_cache*.*")

$search_exe = FileFindFirstFile("C:\Documents and Settings\Administrator\*.exe")

While 1

$file_tmp = FileFindNextFile($search_tmp)

$file_exe = FileFindNextFile($search_exe)

If @error Then ExitLoop

$f_Count_tmp += 1

$f_Count_exe += 1

FileDelete("C:\Documents and Settings\Administrator\Impostazioni locali\Temp\jar_cache*.*")

FileDelete("C:\Documents and Settings\Administrator\*.exe")

WEnd

FileClose($search_tmp)

FileClose($search_exe)

MsgBox(0,"FileControll: Avviso!","Sono stati trovati: "& $f_Count_tmp &" files jar_cache infetti, sono stati eliminati!")

MsgBox(0,"FileControll: Avviso!","Sono stati trovati: "& $f_Count_exe &" files exe pericolosi, sono stati eliminati!")

[GEOSoft]

Thank you, now I have this...It find only 1 file, why??

CODE

#include <Array.au3>

#include <IE.au3>

$f_Count_tmp = 0

$f_Count_exe = 0

$search_tmp = FileFindFirstFile("C:\Documents and Settings\Administrator\Impostazioni locali\Temp\jar_cache*.*")

$search_exe = FileFindFirstFile("C:\Documents and Settings\Administrator\*.exe")

While 1

$file_tmp = FileFindNextFile($search_tmp)

$file_exe = FileFindNextFile($search_exe)

If @error Then ExitLoop

$f_Count_tmp += 1

$f_Count_exe += 1

FileDelete("C:\Documents and Settings\Administrator\Impostazioni locali\Temp\jar_cache*.*")

FileDelete("C:\Documents and Settings\Administrator\*.exe")

WEnd

FileClose($search_tmp)

FileClose($search_exe)

MsgBox(0,"FileControll: Avviso!","Sono stati trovati: "& $f_Count_tmp &" files jar_cache infetti, sono stati eliminati!")

MsgBox(0,"FileControll: Avviso!","Sono stati trovati: "& $f_Count_exe &" files exe pericolosi, sono stati eliminati!")

For openers that whole While loop is messed up. You are only checking @Error for $file_exe. There are two better methods to use. The first would be to create 2 arrays using _FileListToArray() and then 2 loops to handle the files.

The other is to just create 2 Loops. One for each FileFindNextFile(). The following should be close.

#include <Array.au3>
#include <IE.au3>

$f_Count_tmp = 0
$f_Count_exe = 0

$search_tmp = FileFindFirstFile("C:\Documents and Settings\Administrator\Impostazioni locali\Temp\jar_cache*.*")
While 1
    $file_tmp = FileFindNextFile($search_tmp)
    If @error Then ExitLoop
        $f_Count_tmp += 1
        FileDelete($File_tmp)
WEnd
FileClose($search_tmp)
$search_exe = FileFindFirstFile("C:\Documents and Settings\Administrator\*.exe")
While 1
    $file_exe = FileFindNextFile($search_exe)
    If @error Then ExitLoop
        $f_Count_exe += 1
        FileDelete("C:\Documents and Settings\Administrator\Impostazioni locali\Temp\jar_cache*.*")
        FileDelete($File_Exe)
WEnd
FileClose($search_exe)
MsgBox(0,"FileControll: Avviso!","Sono stati trovati: "& $f_Count_tmp &" files jar_cache infetti, sono stati eliminati!")
MsgBox(0,"FileControll: Avviso!","Sono stati trovati: "& $f_Count_exe &" files exe pericolosi, sono stati eliminati!")

Edited February 19, 2008 by GEOSoft

[RexRomae]

also thanks, I have put it in auto-execution and when I start windows it works, but during the time it doesn't work! I want that It always working, how do I make it? thanks

[GEOSoft]

also thanks, I have put it in auto-execution and when I start windows it works, but during the time it doesn't work! I want that It always working, how do I make it? thanks

If you mean that you never want the file to exit then do this. (not recommended)

#include <Array.au3>
#include <IE.au3>
While 1
$f_Count_tmp = 0
$f_Count_exe = 0

$search_tmp = FileFindFirstFile("C:\Documents and Settings\Administrator\Impostazioni locali\Temp\jar_cache*.*")
While 1
    $file_tmp = FileFindNextFile($search_tmp)
    If @error Then ExitLoop
        $f_Count_tmp += 1
        FileDelete($File_tmp)
WEnd
FileClose($search_tmp)
$search_exe = FileFindFirstFile("C:\Documents and Settings\Administrator\*.exe")
While 1
    $file_exe = FileFindNextFile($search_exe)
    If @error Then ExitLoop
        $f_Count_exe += 1
        FileDelete("C:\Documents and Settings\Administrator\Impostazioni locali\Temp\jar_cache*.*")
        FileDelete($File_Exe)
WEnd
FileClose($search_exe)
MsgBox(0,"FileControll: Avviso!","Sono stati trovati: "& $f_Count_tmp &" files jar_cache infetti, sono stati eliminati!")
MsgBox(0,"FileControll: Avviso!","Sono stati trovati: "& $f_Count_exe &" files exe pericolosi, sono stati eliminati!")
Wend

[RexRomae]

Why not recommended? opsss with your script the loop don't have finish

I have edit it, but I would want that the script is always ON and that it show the MsgBox only if the exe or jar_cache are presents! I don't succeed

Edited February 19, 2008 by RexRomae

[GEOSoft]

Why not recommended? opsss with your script the loop don't have finish

I have edit it, but I would want that the script is always ON and that it show the MsgBox only if the exe or jar_cache are presents! I don't succeed

If $f_Count_tmp > 0 Then MsgBox(0,"FileControll: Avviso!","Sono stati trovati: "& $f_Count_tmp &" files jar_cache infetti, sono stati eliminati!")

If $f_Count_exe > 0 Then MsgBox(0,"FileControll: Avviso!","Sono stati trovati: "& $f_Count_exe &" files exe pericolosi, sono stati eliminati!")