Quote:
Using a couple of ready UDFs, I ran reports on "last accessed" with something like this:
Code:
Break On
$FileArray = DirPlus('Q:\AcctJoint\','/s')
For Each $F in $FileArray
If Right($F,4)='.idf'
$Last = Split(fnGetFileProp($F,'DateLastAccessed'),' ')[0]
'"'$F + '",'+ $Last ?
EndIf
Next
Les, mind if i golf a little?
Code:
$FileArray = DirPlus('c:\some folder','/s /a-d /f idf')
For Each $F in $FileArray
$last = split($f.DateLastAccessed,' ')[0]
'"'$F + '",'+ $Last ?
Next
and here is some code taht does a check on date that is older than 6 months...
flipctime()
DIRPlus()
Code:
$FileArray = DirPlus('c:\program files','/s')
For Each $F in $FileArray
$last = split(split($f.DateLastAccessed,' ')[0],"/")
$last = flipctime($last[2]+'/'+$last[0]+'/'+$last[1],"00:00" )
if flipctime(@date,"00:00") - $last >= 15811200 ;183 days
? $f.datelastaccessed + " " + $F.name
endif
Next
Bryce
