[ { "Id": "142029", "ThreadId": "42743", "Html": "Hello
\r\n
\r\ntx for this great zip library. I want to use it for a weekly archive system but I a stuck on something and I do not know where to look for the answer. I think it has something to do with files in use but I tried putting a pause in the program (as a test) but it did not work either.
\r\n
\r\nMy code is pretty simple, viz. retrieving all the logs in a folder and when they are more than 7 days old, putting them in a zip & deleting the original. Then when it is finished, it will be copied to an other location on the network. The problem is on the delete statement. 
\r\n
\r\nCan somebody help me pls?
\r\n
\r\n
\r\nHere is my code:
\r\n
\r\n

Private Sub ArchiveFiles()

\r\n

Dim strArchivePath as string
\r\nDim iWeeknumber As Integer = DatePart(DateInterval.WeekOfYear, Now)

\r\n

strArchivePath  = "c:\\ARCHIVE\\" & Now.Year & iWeeknumber & "\\"
\r\nstrZIP = strArchivePath  & "Logging.zip"

\r\n

Dim zipArchief As New Ionic.Utils.Zip.ZipFile(strZIP)

\r\n

arrBestanden = nfoDir.GetFiles("*.log")
\r\nFor Each nfoBestand In arrBestanden
\r\n    If (DateDiff(DateInterval.Day, nfoBestand.LastWriteTime, Now()) > 7) And (nfoBestand.IsReadOnly = False) Then

\r\n

      zipArchief.AddFile(nfoBestand.FullName, "")
\r\n      zipArchief.Save()
\r\n      nfoBestand.Delete()

\r\n

    End If
\r\nNext

\r\n

end sub

\r\n", "PostedDate": "2008-12-20T06:30:05.433-08:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "142034", "ThreadId": "42743", "Html": "First, I would move the save outside of the loop. No need to call it several times.
\r\n
\r\nAs far as the delete statement, try to delete the file in Explorer and see if you get an error. Perhaps the file is in use (by a virus scanner, another backup app, etc.).
\r\n
\r\nIf you get an exception, what is the exception?
\r\n", "PostedDate": "2008-12-20T07:16:20.713-08:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "142037", "ThreadId": "42743", "Html": "If I were designing this, I would add all the files to a collection (a List<String>) in a loop.
\r\nThen I would For Each over the collection and create the zip file.  In the zip file I would insert a comment and a readme. I'd wrap the zipfile operations in a using statement, so I ensure the zip is closed when I am done with it.
\r\nThen in another For Each I would delete the files.
\r\n
        Public Sub Run(ByVal args As String())\r\n\r\n            Dim strZIP as string = String.Format("SledgeLogging-{0}.zip", _\r\n                         DateTime.Now.ToString("yyyy.MM.dd.HH.mm.ss"))\r\n\r\n            Dim LogFileDirectory as string = "c:\\temp\\"\r\n\r\n            Dim current as DateTime = DateTime.Now\r\n            Dim interval as new System.TimeSpan(7,0,0,0) ' 7 days
\r\n            Dim filesToArchive as New System.Collections.Generic.List(Of String)\r\n\r\n            Try\r\n                ' step 1: get the list of files to archive\r\n                Console.WriteLine(vbcrlf & "Finding files to archive in " & LogFileDirectory)\r\n\r\n                Dim AllLogFiles As String() = System.IO.Directory.GetFiles(LogFileDirectory, "*.log")\r\n                For Each filename In AllLogFiles\r\n                    Dim lastwrite as DateTime = System.IO.File.GetLastWriteTime(filename)\r\n                    Dim attr as FileAttributes = System.IO.File.GetAttributes(filename)\r\n\r\n                   ' older than 7 days and not ReadOnly\r\n                    If (current - lastwrite > interval  And  _\r\n                            (attr & FileAttributes.ReadOnly) <> FileAttributes.ReadOnly) Then\r\n                      filesToArchive.Add(filename)\r\n                      Console.WriteLine("  " & filename)\r\n                    End If\r\n                Next\r\n\r\n                ' step 2: zip up those files in an archive\r\n                Console.WriteLine(vbcrlf & "Zipping those files into " & strZIP)\r\n                using  zipArchief As New Ionic.Utils.Zip.ZipFile(strZIP)\r\n                    For Each filename in filesToArchive\r\n                        zipArchief.AddFile(filename, "")\r\n                    Next\r\n                    zipArchief.Comment = "Archive created " & System.DateTime.Now.ToString("G") & " on machine " & _\r\n                        System.Environment.MachineName\r\n                    zipArchief.Save()\r\n                End Using \r\n         \r\n                ' step 3: after we are sure the zip has succeeded, delete the files\r\n                Console.WriteLine(vbcrlf & "Removing those files...")\r\n                For Each filename in filesToArchive\r\n                    ' uncomment the following line to really delete\r\n                    'System.IO.File.Delete(filename)\r\n                Next\r\n\r\n            Catch ex1 as Exception\r\n                Console.WriteLine("Exception!" & ex1.ToString())\r\n            End Try\r\n\r\n\r\n        End Sub\r\n
\r\nI don't know "old" VB, so I used the managed .NET libraries for time comparison and file information. \r\n", "PostedDate": "2008-12-20T08:37:13.247-08:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "142134", "ThreadId": "42743", "Html": "

tx to you both, it is sometimes surprising that it the current society, people still want to help each other :D

\r\n

i'll give it a try and keep you posted

\r\n

my code was an extract and i am happy to see that my thinking corresponds to yours. I only tried it i one step and without the using ...

\r\n

mario

\r\n", "PostedDate": "2008-12-21T03:13:02.43-08:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "142310", "ThreadId": "42743", "Html": "

Tx Cheeso & Mr JohnMandre

\r\n

 

\r\n

it works now, fine & fast!

\r\n

In my original programme i prefered to save before delete on every file to be sure but it works fine with the multiple loops!

\r\n

 

\r\n

Merry Xmas to all!

\r\n

Mario

\r\n", "PostedDate": "2008-12-22T02:45:21.963-08:00", "UserRole": null, "MarkedAsAnswerDate": null } ]