Batch programozás - Mobilarena Hozzászólások

Hirdetés

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Új hozzászólás Aktív témák

ArchElf addikt

#186
#185 sonar
2009-12-16 08:07:55

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

ArchElf

addikt

#185 sonar

VBS jóval egyszerűbb volna, mint a sima batch.
Set objArgs = WScript.Arguments Set fso = CreateObject("Scripting.FileSystemObject") Set fslog = fso.OpenTextFile("c:\dellog.txt", 8, True, -1) '4 nappal korábbi dátum DelDate = DateAdd("m", -4, Date) For Each fF In objArgs On Error Goto eh: Set Folder = fso.GetFolder(fF) Set fFiles = folder.Files For Each file In fFiles If (file.DateLastModified < DelDate) Then file.Delete(True) fslog.WriteLine "Törölve: "& file.Path End If Next Goto ehe: eh: fslog.WriteLine "Hibás könyvtárnév: " & fF ehe: Next fslog.Close
Remélem nincs benne hiba...
AE

Új hozzászólás Aktív témák

Aktív témák

Hirdetés

Új fizetett hirdetések

Üzleti előfizetők hirdetései

Állásajánlatok

Számítástechnikai értékesítő

Cég: Laptopműhely Bt.

Város: Budapest

Részletek