Sign in to follow this  
Followers 0
elgabionline

Why This Function Not Work?

2 posts in this topic

Hi pals

I wrote this script and I don't know because it doesn't work. I made it to find files that Internet explorer download in my disk while I am navigating, but the reason of the problem is that my function doesn't find anything, and the files are there! ! ! does somebody know reason this happens?

this it is my failed function:

_IEStorageSearch ("Files")
$FileList= Eval ("Files")
$FileList= StringSplit ($FileList,"|")

Func _IEStorageSearch ($IETS_Results,$IETS_extension="*.*",$IETS_separator="|")
    Local $IETS_cache=RegRead ("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache")
    $IETS_cache=$IETS_cache&"\Content.IE5"
    Local $IETS_folders=FileFindFirstFile ($IETS_cache&"\*.*")
    Local $IETS_count_folders=0
    
    If Not IsDeclared ("1 Folder") Then
        While 1
            $IETS_folder=FileFindNextFile ($IETS_folders)
            If @error Then
                ExitLoop
            Else
                If StringInStr ($IETS_folder,".")=0 Then
                    $IETS_count_folders=$IETS_count_folders+1
                    Assign ($IETS_count_folders&" Folder",$IETS_folder,2)
                    ConsoleWrite ($IETS_folder&@CR)
                EndIf
            EndIf
        WEnd
        FileClose ($IETS_folders)
    EndIf
        
    Local $IETS_count_files=0
    
    For $IETS_loop=1 To 4
        $IETS_folder= Eval ($IETS_loop&" Folder")
        Local $IETS_data=FileFindFirstFile ($IETS_folder&"\"&$IETS_extension)
    
        Select
        Case $IETS_data=-1
            FileClose ($IETS_data)
        Case Else
            While 1
                Local $IETS_file=FileFindNextFile ($IETS_data)
                If @error Then
                    ExitLoop
                Else
                    $IETS_count_files=$IETS_count_files+1
                    Select
                    Case IsDeclared ($IETS_Results)
                        Assign ($IETS_Results, Eval ($IETS_Results)&$IETS_file&$IETS_separator)
                    Case Else
                        Assign ($IETS_Results,$IETS_file&$IETS_separator,2)
                        ConsoleWrite ($IETS_file&@CR)
                    EndSelect
                EndIf
            WEnd
            FileClose ($IETS_data)
            Return ($IETS_count_files)
        EndSelect
    Next
EndFunc

Share this post


Link to post
Share on other sites



well... can nobody help me? My teory now is:

this folder (Internet Explorer cache) has different use of the system files. That is to say, the function structurally I think is correct, but not working for reason I before said ( I repeat, it's only my theory). Please, I wait answer (or solve better). Thanks.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0