Forum
Bildirimler
Hepsini Temizle
Donanım Genel
8
Yazılar
4
Üyeler
0
Reactions
517
Görüntüleme
Konu başlatıcı
Merhaba,
\\SERVER\C\BACKUP yada D:\BACKUP klasöründe belirttiğim bi tarihten önceki yada örneğin 15 gün önce oluşturulmuş tüm dosya ve klasörleri silecek bir BAT yapılabilir mi ? Yada bu işlemi yapabilecek herhangi bir yöntem bilen, öneren varmı ?
Konuyu nerede açacağımı bulamadım buraya açtım kusura bakmayın
Gönderildi : 23/10/2009 01:14
Merhaba,
Aşağıdaki scripti bat dosyası olarak kaydedin ve ardında ilgili servera kopyalayın.Ardından scheduled Tasks olarak bir task oluşturun ve bu bat ı scheduled edin.(D:\Server\backup dizinine kendi dizininizi yazmanız gerekiyor...)
Kolay gelsin.
Option Explicit
Const DELETE_FILES_IN = "D:\Server\backup"
Dim objFSO , writefile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim oFSO, oFile, oFolder
Dim dtDate
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(DELETE_FILES_IN)
On Error Resume Next 'hatalari gormek icin bu satiri kaldirin
For Each oFile In oFolder.Files
dtDate = oFile.DateCreated
If Abs(DateDiff("d",dtDate,Now())) > 15 Then
oFile.Delete True
End If
Next
wscript.quit
'oFile.DateCreated yerine oFile.DateLastModified de kullanilabilir.
Gönderildi : 23/10/2009 11:19
Konu başlatıcı
Merhaba,
Verdiğiniz konutları bat olarak kaydettim ama ne ekrana birşey geliyor nede bahsettiğim işlemi yapıyor. Sadece cmd ekranı 1 saniye gelip hemen kayboluyor.
Gönderildi : 23/10/2009 22:28
Merhaba,
Uzantısını vbs yapıp scheduled task olarak ekleyip bu scheduled taskı çalıştırın.
Kolay gelsin.
Gönderildi : 23/10/2009 23:50
Konu başlatıcı
Merhaba,
Elinize sağlık program çalışıyor fakat sadece dosyaları siliyor klasörleri ve içindekileri dosyaları silmiyor. Benim istediğim dosya ve klasör ne var ne yok silmesi.
Kolay gelsinn
Gönderildi : 24/10/2009 01:34
mrb yunus nasılsın ben bekir / yesevi[:O]
Gönderildi : 30/10/2009 17:53
Konu başlatıcı
Kusura bakmayın tanıyamadım, nereden tanışıyoruz ? Ayrıca bu tip mesajları ÖZEL MESAJdan atın forum kirliliği yapıp uyarı almayalımm
Gönderildi : 31/10/2009 15:21
Aşağıdaki vbs kodu, tanımlanan dizindeki, tanımlanan günden daha eski(dosya değişiklik tarihi) dosyaları,
alt dizinler dahil silmektedir.
'----------------
SonKacGun = 7
Yedekdizini = "C:\YedekDizinim"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDizin = objFSO.GetFolder(Yedekdizini)
Set colaltdizin = objDizin.Subfolders
Set colDizin = objDizin.Files
For Each objFile in colDizin
If objFile.DateLastModified < (Date() - SonKacGun) Then
objFile.Delete
End If
Next
For Each objSubfolder in colaltdizin
Set colDizin = objSubfolder.Files
For Each objFile in colDizin
If objFile.DateLastModified < (Date() - SonKacGun) Then
objFile.Delete
End If
Next
Next
Gönderildi : 31/10/2009 16:42
