对比两个文档内容

lyb0618

我想搞一个检测盘内的文件夹（不包括文件）的个数，并把文件夹的名称写入一个文档内，隔一段时间再检测一次再写入另一个文档，再对比两个文档中有什么不同，相同就等待下次再检测，不同则把以删除的文夹名写入一个LOG里，那位前辈帮下忙啊

afan

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

$Dir = @ScriptDir ;被监视的文件夹
$a = _FileListToArray($Dir, '*', 2) 
AdlibRegister('jc')

While 1
        Sleep(1)
WEnd

Func jc()
        $b = _FileListToArray($Dir, '*', 2)
        $c = $b
        $f = FileOpen('记录.log', 1)
        $t = _Now() & ' ==> '
        For $i = 1 To $a[0]
                $ss = _ArraySearch($c, $a[$i])
                If $ss = -1 Then 
                        FileWriteLine($f, $t & '文件夹 "' & $a[$i] & '" 已被删除')
                Else  
                        _ArrayDelete($c, $ss)
                EndIf
        Next
        If UBound($c) > 1 Then  
                For $i = 1 To UBound($c) - 1
                        FileWriteLine($f, $t & '文件夹 "' & $c[$i] & '" 已被创建')
                Next
        EndIf
        FileClose($f)
        $a = $b
EndFunc   ;==>jc

lyb0618

谢谢楼上的大哥