Answer the question
In order to leave comments, you need to log in
What program can create archives and delete them after the time has elapsed?
To keep track of the number of archives and delete the old ones. Free.
Answer the question
In order to leave comments, you need to log in
Where is the mistake? (do not look at the lines of the logs)
If s_TargetFolder <> "" Then
LOGFile.WriteLine ("Архивы будут сохранены в папке: " & s_TargetFolder)
For n_CurRow = 0 To FolderArc_Index - 1
If FSO.FolderExists(FolderArc(n_CurRow)) = True Then
s_ArcFileName = FolderArc(n_CurRow)
LOGFile.WriteLine (s_ArcFileName)
s_ArcFileName = Replace(s_ArcFileName, "\\", "")
LOGFile.WriteLine (s_ArcFileName)
s_ArcFileName = Replace(s_ArcFileName, "$", "")
LOGFile.WriteLine (s_ArcFileName)
s_ArcFileName = Replace(s_ArcFileName, "\", "_")
LOGFile.WriteLine (s_ArcFileName)
s_ArcFileName = Replace(s_ArcFileName, ".", "_")
LOGFile.WriteLine (s_ArcFileName)
s_ArcFileName = Replace(s_ArcFileName, ":", ")")
LOGFile.WriteLine (s_ArcFileName)
s_CurArcString = s_ARC_EXE & " " & s_TargetFolder & s_ArcFileName & " " & FolderArc(n_CurRow)
LOGFile.WriteLine (FormatDateTime(Now, 0) & " Создаем архив: " & FolderArc(n_CurRow) & " Строка архивации: " & s_CurArcString)
Res_Exec = WShell.Run(s_CurArcString, 5, True)
If Res_Exec > 0 Then
LOGFile.WriteLine (" ^При создании архива возникла ошибка №: " & CStr(Res_Exec))
End If
I wrote a batch file at work to delete files older than a certain number of days. it's 5 minutes and no "freeware" is needed
Didn't find what you were looking for?
Ask your questionAsk a Question
731 491 924 answers to any question