Προγραμμα που σβηνει αρχεια (time scheduled)

[lambros]

Καλημερα σας,

 

Εχω το Macrium Reflect Free Edition και κανω hdd to image καθε μερα σε ενα pc.

Τι προγραμμα μπορω να βαλω ωστε να σβυνει αυτοματα καθε μερα παλαια backup αρχεια που δεν εχει δυνατοτητα η δωρεαν εκδοση του??

 

Ξεχναω να τα σβυνω εγω με συνεπεια δεν κανει image μετα.

 

 

Ευχαριστω

[Paulostge]

Για δοκιμασε αυτο

 

Cobian Backup Gravity Ver: 11.2.0.582

[lambros]

Λοιπον κανω image το δισκο σε εξωτερικο hdd και θελω ενα προγραμμα που να τρεχει στα windows και αυτοματα να σβηνει αρχεια που εχουν διμιουργηθει και ειναι μεσα σε ενα φακελο πριν 5μερες παραδειγμα

[lambros]

Σας στελνω screnshot

 

Θελω ενα προγραμμα που να σβυνει τα 1παλαιοτερα αρχεια καθε μερα απο μονο του .

Τα αρχεια ειναι τα παρακατω που φινονται στην φωτο

 

[australis]

Φτιαξε ένα .vbs αρχειο (πχ mydelete.vbs) με αυτό το περιεχόμενο

ReDim fileArray(-1)

Set fso = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "F:\#BACKUP_SSD"

Set objFolder = objFSO.GetFolder(objStartFolder)
Set recentFile = Nothing

For Each objFile In objFolder.Files
        ReDim Preserve fileArray(UBound(fileArray) + 1)
        fileArray(UBound(fileArray)) = objFile.Name
        If (recentFile is Nothing) Then
          Set recentFile = objFile
        ElseIf (objFile.DateLastModified > recentFile.DateLastModified) Then
          Set recentFile = objFile
        End If
Next
if UBound(fileArray) >=0 then 
  recentFile=lcase(recentFile)
  for i=0 to UBound(fileArray)
    st=lcase(objStartFolder+"\"+fileArray(i))
    if st <> recentfile then fso.DeleteFile st, True 
  next
end if

Set FSO = Nothing 
Set objFSO = Nothing 
Set objFolder = Nothing
Set recentFile = Nothing
 

βάλε στον scheduler να τρεχει την εντολή wscript c:\....\...\mydelete.vbs

 

 

Επεξ/σία 5 Ιουλίου 2014 από australis

[lambros]

Ευχαριστω πολυ αλλα κατι δεν εκανα σωστα.

στελνω screenshot

 

 

[australis]

Δικο μου λαθος , δεν ειδα σωστα το ονομα του folder στην εικονα

 

αντικατεστησε τη γραμμη

 

objStartFolder = "F:\#BACKUP_SSD"

 

με

 

objStartFolder = "F:\#BACKUP-SSD"

 

 

(ή απλα σε αυτή τη γραμμη αντικατεστησε τη κατω παύλα _ με κανονικη - )

 

(τι σου κανει  μια γραμμουλα....)

[lambros]

πολυ ωραιος δουλεψε,

ευχαριστω

 

τι πρεπει να αλλαξω για να κραταει

α.2τελευταια

β.3τελευταια

 

 

Ευχαριστωωωωωωωωω

[australis]

είναι καπως πιο περιπλοκο , θα το κοιταξω

[australis]

Δοκιμασε αυτό

 

βαλε την τιμη που θελεις στην μεταβλητη keepfiles (γραμμη keepfiles=3)

ReDim fileArray(-1)
ReDim timeArray(-1) 


Set fso = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")

objStartFolder = "F:\#BACKUP-SSD"
keepfiles=3

Set objFolder = objFSO.GetFolder(objStartFolder)


if keepfiles < 1 then keepfiles=1
For Each objFile In objFolder.Files
        ReDim Preserve fileArray(UBound(fileArray) + 1)
        ReDim Preserve timeArray(UBound(timeArray) + 1)
        fileArray(UBound(fileArray)) = objFile.Name
        timestamp = objFile.DateLastModified
        timeArray(UBound(timeArray)) =timestamp
Next

n=UBound(fileArray)

if n > keepfiles-1 then
  do
    flag=0
    for i=0 to n-1
      if timeArray(i) > timeArray(i+1) then  
          swapName=fileArray(i)
          swapTime=timeArray(i)
          fileArray(i)=fileArray(i+1)
	  timeArray(i)=timeArray(i+1)
          fileArray(i+1)=swapName
	  timeArray(i+1)=swapTime
          flag=1
      end if
    next 
  loop until flag=0

  for i=0 to n-keepfiles
	st=lcase(objStartFolder+"\"+fileArray(i))
	fso.DeleteFile st, True 
  next  
end if

Set FSO = Nothing 
Set objFSO = Nothing 
Set objFolder = Nothing

... δεν είναι "κομψο" αλλα πρεπει να δουλευει   (κρατα εννοείται  backup καλου-κακου)