directory create time

[placebo]

Is there a way to determine the creation date of a directory?

thanks!

[dbzfanatic]

Can't you use FileGetTime()? Also I'm 100% sure this has been asked before.

[placebo]

you are right! filegettime() does the trick!

i'm trying to make a script that checks all the files and directory's in a specific directory. I want the script to delete all the files/directory's which are older than 1 week.

My scripts works for the directory and the files in the "root" of my directory I want to clean up. It doesn't work for the files in een subdirectory. Is there an easy way to do this?

here is my code (it's quick and dirty and i'm still learning):

expandcollapse popup

#include <Date.au3>

;ini uitlezen
$var = IniRead("config.ini", "algemeen", "directory_to_clean", "NotFound")
$log = IniRead("config.ini", "algemeen", "log_directory", "d:\")
$age = IniRead("config.ini", "algemeen", "age", "1")
$agetype = IniRead("config.ini", "algemeen", "agetype", "w")


;directory_naam bepalen
$directory_naam = StringReplace(_DateTimeFormat( _NowCalc(),2), "/", "-")
$log_file_name = $log & "\" & $directory_naam & ".txt"
DirCreate($log)

; Shows the filenames of all files in the current directory.
$files_directory = FileFindFirstFile($var & "\*.*")  


; Check if the search was successful
If $files_directory = -1 Then
; MsgBox(0, "Error", "geen bestanden gevonden")
    FileWriteLine($log_file_name, "error: geen bestanden gevonden")
    Exit
EndIf

While 1
    $file = FileFindNextFile($files_directory) 
    If @error Then ExitLoop
    
; MsgBox(4096, "File:", $file)

    $time = FileGetTime($var &"\"& $file)
;msgbox(0, "", $time[0] &"/"& $time[1] &"/" & $time[2])
;msgbox(0, "info", _DateDiff($agetype, $time[0] &"/"& $time[1] &"/" & $time[2], @YEAR &"/" & @MON &"/" & @MDAY))
    If (_DateDiff($agetype, $time[0] &"/"& $time[1] &"/" & $time[2], @YEAR &"/" & @MON &"/" & @MDAY) > $age) then 
        FileWriteLine($log_file_name, "DELETE: " & $file & "                  age: " & _DateDiff($agetype, $time[0] &"/"& $time[1] &"/" & $time[2], @YEAR &"/" & @MON &"/" & @MDAY))
        FileDelete ($var & "\" & $file)
        DirRemove ($var & "\" & $file, 1)
    EndIf
WEnd

FileWriteLine($log_file_name, "")

;Close the search handle
FileClose($files_directory)

Edited October 16, 2008 by filipvds

[dbzfanatic]

Search the forum for "Recursion" without quotes. You should find what you need.

[TehWhale]

_FileListToArrayEx is a recursion option, and works well! Search the forums for it!

[DW1]

expandcollapse popup

#include <Date.au3>

;ini uitlezen
$var = IniRead("config.ini", "algemeen", "directory_to_clean", "NotFound")
$log = IniRead("config.ini", "algemeen", "log_directory", "d:\")
$age = IniRead("config.ini", "algemeen", "age", "1")
$agetype = IniRead("config.ini", "algemeen", "agetype", "w")

;~ $var = "d:\test"
;~ $log = "d:\test\log"
;~ $age = "1"
;~ $agetype = "w"


;directory_naam bepalen
$directory_naam = StringReplace(_DateTimeFormat( _NowCalc(),2), "/", "-")
$log_file_name = $log & "\" & $directory_naam & ".txt"
DirCreate($log)

; Shows the filenames of all files in the current directory.
If StringRight( $var, 1 ) = "\" Then $var = StringTrimRight( $var, 1 )
$files_array = _FileSearch($var & "\*.*", 1, 0, 1, 0) ; Only grabbing files recursively

; Check if the search was successful
If $files_array[0] = 0 Then
; MsgBox(0, "Error", "geen bestanden gevonden")
    FileWriteLine($log_file_name, "error: geen bestanden gevonden")
    Exit
EndIf

For $file = 1 To $files_array[0]
; MsgBox(4096, "File:", $file)
    $time = FileGetTime($files_array[$file])
;msgbox(0, "", $time[0] &"/"& $time[1] &"/" & $time[2])
;msgbox(0, "info", _DateDiff($agetype, $time[0] &"/"& $time[1] &"/" & $time[2], @YEAR &"/" & @MON &"/" & @MDAY))
    If (_DateDiff($agetype, $time[0] &"/"& $time[1] &"/" & $time[2], @YEAR &"/" & @MON &"/" & @MDAY) > $age) then
        FileWriteLine($log_file_name, "DELETE: " & $files_array[$file] & "                  age: " & _DateDiff($agetype, $time[0] &"/"& $time[1] &"/" & $time[2], @YEAR &"/" & @MON &"/" & @MDAY) & '-' & $agetype)
        FileDelete ($files_array[$file])
;~         DirRemove ($file, 1) ; Did you really want to delete a dir and all files in that dir even though it might hold newer files?
    EndIf
Next

FileWriteLine($log_file_name, "")





;Original Author ?????
;UDF has been modified multiple times
;
;_FileSearch( "Path and Mask", <$nOption>, <$cpusaver>, <$dirfilter>, <$filefilter>)
;
;----PARAMETERS-----
;$nOption -   <Optional (0 - normal, 1- recursive)>
;$cpusaver -  <Optional (0 - normal, 1 - CPU Friendly, but Slower)>
;$dirfilter - <Optional (0 - list directories, 1 - filter out directories)>
;$filefilter- <Optional (0 - list files, 1 - filter out files)>
;
;----RETURN-----
; Returns array. Either Array of files (full path) where...
; Array[0] is number of files.
; Array[0] = 0 if nothing found.
; EXAMPLE USAGE
;--------------------------------------------
;~ #include<array.au3>
;~ $a = _FileSearch("C:\*.*", 1, 0, 0, 0)
;~ _ArrayDisplay($a)
;--------------------------------------------
Func _FileSearch($szMask, $nOption = 0, $cpusaver = 0, $dirfilter = 0, $filefilter = 0)
    $szRoot = ""
    $hFile = 0
    $szBuffer = ""
    $szReturn = ""
    $szPathList = "*"
    Dim $aNULL[1]

    If Not StringInStr($szMask, "\") Then
        $szRoot = @ScriptDir & "\"
    Else
        While StringInStr($szMask, "\")
            $szRoot = $szRoot & StringLeft($szMask, StringInStr($szMask, "\"))
            $szMask = StringTrimLeft($szMask, StringInStr($szMask, "\"))
        WEnd
    EndIf
    If $nOption = 0 Then
        _FileSearchUtil($szRoot, $szMask, $szReturn, $cpusaver, $dirfilter, $filefilter)
    Else
        While 1
            $hFile = FileFindFirstFile($szRoot & "*.*")
            If $hFile >= 0 Then
                $szBuffer = FileFindNextFile($hFile)
                While Not @error
                    If $szBuffer <> "."  And $szBuffer <> ".."  And _
                            StringInStr(FileGetAttrib($szRoot & $szBuffer), "D") Then _
                            $szPathList = $szPathList & $szRoot & $szBuffer & "*"
                    $szBuffer = FileFindNextFile($hFile)
                WEnd
                FileClose($hFile)
            EndIf
            _FileSearchUtil($szRoot, $szMask, $szReturn, $cpusaver, $dirfilter, $filefilter)
            If $szPathList == "*"  Then ExitLoop
            $szPathList = StringTrimLeft($szPathList, 1)
            $szRoot = StringLeft($szPathList, StringInStr($szPathList, "*") - 1) & "\"
            $szPathList = StringTrimLeft($szPathList, StringInStr($szPathList, "*") - 1)
        WEnd
    EndIf
    If $szReturn = "" Then
        $aNULL[0] = 0
        Return $aNULL
    Else
        Return StringSplit(StringTrimRight($szReturn, 1), "*")
    EndIf
EndFunc   ;==>_FileSearch

Func _FileSearchUtil(ByRef $ROOT, ByRef $MASK, ByRef $RETURN, $cpusaver, $dirfilter, $filefilter)
    $hFile = FileFindFirstFile($ROOT & $MASK)
    If $hFile >= 0 Then
        $szBuffer = FileFindNextFile($hFile)
        While Not @error
            If $cpusaver = 1 Then Sleep(1)                                  ;OPTIONAL FOR CPU SAKE
            If $szBuffer <> "."  And $szBuffer <> ".."  Then
                If StringInStr(FileGetAttrib($ROOT & $szBuffer), "D") Then
                    If $dirfilter = 0 Then $RETURN = $RETURN & $ROOT & $szBuffer & "*"
                Else
                    If $filefilter = 0 Then $RETURN = $RETURN & $ROOT & $szBuffer & "*"
                EndIf
            EndIf
            $szBuffer = FileFindNextFile($hFile)
        WEnd
        FileClose($hFile)
    EndIf
EndFunc   ;==>_FileSearchUtil