Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Skripta za brisanje fajlova

[es] :: Skript jezici :: Skripta za brisanje fajlova

[ Pregleda: 2481 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

cyber_killer

Član broj: 90634
Poruke: 95
*.src.si.



Profil

icon Skripta za brisanje fajlova30.07.2009. u 10:41 - pre 178 meseci

Dim Fso
Dim Directory
Dim Modified
Dim Files

Set Fso = CreateObject("Scripting.FileSystemObject")

ListFolderContents("E:\Backup\Folder1\Folder2")

Sub ListFolderContents(path)
Set fs = CreateObject("Scripting.FileSystemObject")
Set folder = fs.GetFolder(path)
For each item in folder.SubFolders
DeleteFiles(item.Path)
Next
Set folder = Nothing
set fs = Nothing
End Sub

Sub DeleteFiles(Dir)
Set Directory = Fso.GetFolder(Dir)
Set Files = Directory.Files
For Each Modified In Files
If DateDiff("D", Modified.DateLastModified, Now) > 1 Then Modified.Delete
Next

End Sub

[/code]

To mi neradi.Zasto? Kako da drugcije to istestiram? Imali ko mozda kakvo jednostavnije rjesenje? More i bat fajl.
 
Odgovor na temu

daigu
System Engineer Wannabee, Non IT corp.

Član broj: 172424
Poruke: 19
*.adsl.net.t-com.hr.



+1 Profil

icon Re: Skripta za brisanje fajlova22.08.2009. u 23:32 - pre 177 meseci
Evo u Powershellu:

Code:

$path = "E:\Backup\Folder1\Folder2"
Get-Childitem $path -Recurse | Where {$_.PSIsContainer -eq $false} | Foreach {
    if ( $_.LastAccessTime -lt $(Get-Date).AddDays(-1) ) {
    Delete-Item $_.FullName
    }
}
 
Odgovor na temu

[es] :: Skript jezici :: Skripta za brisanje fajlova

[ Pregleda: 2481 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.