- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Visszavonta az Intel és a Qualcomm Huawei-hez kiadott exportlicencét az USA
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Opera böngésző
- DIGI kábel TV
- Microsoft Excel topic
- Starlink
- Már nem hisz a nagy európai EV-forradalomban a Ford
- Facebook és Messenger
- ASUS routerek
Új hozzászólás Aktív témák
-
ArchElf
addikt
Volt benne pár hiba...
Set objArgs = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")
Set fslog = fso.OpenTextFile("c:\temp\dellog.txt", 8, True, -1)
'4 nappal korábbi dátum
DelDate = DateAdd("d", -4, Date)
For Each fF In objArgs
On Error Resume Next
Set Folder = fso.GetFolder(fF)
If (Err.Number > 0) Then
fslog.WriteLine Date & " " & Time & " Hibás könyvtárnév: " & fF
Err.Clear
End If
Set fFiles = folder.Files
For Each file In fFiles
If (file.DateLastModified < DelDate) Then
fslog.WriteLine Date & " " & Time & " Törlés: " & file.Path
file.Delete(True)
End If
Next
Next
fslog.CloseAE
mod: ráadásul 4 hónap volt, nem négy nap, ja és a kiiratás is a tényleges törlés elött legyen... no meg egy kis formázási gond is volt vele.
[ Szerkesztve ]
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
Új hozzászólás Aktív témák
- iPhone topik
- Büszke apukák és anyukák topikja
- DIGI Mobil
- Azonnali VGA-s kérdések órája
- Honor 90 - modellalkat
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Visszavonta az Intel és a Qualcomm Huawei-hez kiadott exportlicencét az USA
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Google Pixel 6/7/8 topik
- Fotók, videók mobillal
- További aktív témák...
- Bomba ár! Asus VivoBook X412F - i5-8GEN I 8GB I 256GB SSD I 14" FHD I HDMI I Cam I W11 I Garancia!
- Bomba ár! HP ProBook 650 G5 - i7-8GEN I 8GB I 256GB SSD I 15,6" FHD I Cam I W11 I Garancia!
- Bomba ár! Lenovo ThinkPad L380 - i5-8GEN I 8GB I 256SSD I 13,3" FHD Touch I Cam I W11 I Gari!
- Bomba ár! Asus VivoBook S410U - i5-8GEN I 8GB I 256GB SSD I 14" FHD I HDMI I Cam I W11 I Garancia!
- Bomba ár! HP ProBook 450 G3 - i7-6G I 8GB I 256GB SSD I HDMI I 15,6" FHD I Cam I W10 I Gar!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen