Is There A Way To Make A Script Delete Old Files?

[koalaz2004]

Im backing up server info and the old bakups take a tun of time to delete and there just simple files , but I wanted o know is there a script I could use to delete old .bk files? or just delete files? Thanks also is there a way to rename files too? Thanks

[Thatsgreat2345]

it would be realllly easy if they were all in a certain folder but give me a sec

[Simucal]

Check FileMove() in the help file for renaming.. you effectively overwrite the files with themselves and their new name if I understand correctly.

Also check out, FileDelete(), DirRemove(), FileRecyle(), etc

[Jos]

Here is a script example that can delete files older than and remove empty directories i posted a while ago...

[Thatsgreat2345]

$path = FileSelectFolder("Select a Folder to search","C:\")
$file1 = "*.bk"
$search = FileFindFirstFile($path & $file1)

; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

While 1
    $file = FileFindNextFile($search) 
    If @error Then ExitLoop
    MsgBox(4096, "File:", $file)
    filedelete($file)
WEnd

; Close the search handle
FileClose($search)

that might work

[Jos]

$path = FileSelectFolder("Select a Folder to search","C:\")
$file1 = "*.bk"
$search = FileFindFirstFile($path & $file1)

; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

While 1
    $file = FileFindNextFile($search) 
    If @error Then ExitLoop
    MsgBox(4096, "File:", $file)
    filedelete($file)
WEnd

; Close the search handle
FileClose($search)

that might work

this is the same ...

$path = FileSelectFolder("Select a Folder to search","C:\")
$file1 = "*.bk"
FileDelete($Path & "\" & $file1)

[Thatsgreat2345]

oops my bad

[koalaz2004]

Wow guys that was fast thanks for the help

[Thatsgreat2345]

edit: oops didnt see you post there thought you didnt get it

$path = FileSelectFolder("Select a Folder to search","C:\")
$file1 = "*.bk"
FileDelete($Path & "\" & $file1)

; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    MsgBox(4096, "File:", $file)
    filedelete($file)
WEnd

; Close the search handle
FileClose($search)

Edited April 15, 2006 by thatsgreat2345