Folder Recall?

[Skrip]

Is it possible to do this?

The program will read the folder then you click a button or something then if the folder was changed in any way (like a file was added to it, it would delete that file) it would 'recall' the folder; reverting the folder back to how it was before.

[lod3n]

For what purpose?

It would be easy to just make a copy of the folder, and periodically delete the original and replace it with the backup. You could use a zipped copy of it for instance.

[xcal]

So, I'm still new to autoit, but I thought I'd take a stab at this for a personal exercise - so no laughing.

expandcollapse popup

#include <Array.au3>
#include <File.au3>

Dim $file_list = @ScriptDir & "\allowed.txt"  ;list containing allowed files
Dim $allowed_list[1] = [0]
Dim $read_list[1] = [0]
Dim $delete_list[1] = [0]

$line_count = _FileCountLines($file_list)
$allowed_list[0] = $line_count

For $i = 1 To $line_count
    _ArrayAdd($allowed_list, FileReadLine($file_list, $i))
Next

;_ArrayDisplay($allowed_list, "Allowed")  ;display current allowed list

Dim $start = FileFindFirstFile("c:\temp\*.*")  ;directory to search
Dim $x = 0
While 1
    Local $found = FileFindNextFile($start)
    If @error Then ExitLoop
    If Not $found = StringInStr($found, ".") Then ContinueLoop  ;check for a "." to verify not a folder
    _ArrayAdd($read_list, $found)
    $x = $x + 1
WEnd
$read_list[0] = $x

;_ArrayDisplay($read_list, "Read")  ;display all files read

For $i = 1 To $read_list[0]
    Local $search = $read_list[$i]
    Local $found = _ArraySearch($allowed_list, $read_list[$i])
    If @error Then
        _ArrayAdd($delete_list, "c:\temp\" & $read_list[$i])
        $delete_list[0] = 1 + $delete_list[0]
    EndIf
Next

;_ArrayDisplay($delete_list, "Delete")  ;display files that need deleting

For $i = 1 To $delete_list[0]
    MsgBox(0, "Delete this", $delete_list[$i])
    ;do something to the $delete[$i} file
Next

Edited August 17, 2006 by xcal