Imports zbitz
Private Function ArchiveHomeDir(ByVal path As String) As Int16
Dim status As Int16
Dim archive As New Czzip
Dim archivePath As String = “\\” & path.Split(“\”)(2) & “\” & path.Split(“\”)(3) & “\” & “ARCHIVE\” & path.Split(“\”)(5) & “.zip”
If System.IO.File.Exists(archivePath) Then
Throw New UnexpectedDataException(“Archive file ” & archivePath & ” already exists”)
End If
Dim logtxt = Date.Now & ” Zipping ” & path & “: “
status = archive.ZipFile(path, archivePath)
If status = 0 Then ‘Confirm zip file exists
logFile.WriteLine(logtxt & “Success”)
If Not System.IO.File.Exists(archivePath) Then
status = -1
End If
Else
logFile.WriteLine(logtxt & “Failed with error ” & status & “, ” & archive.LastMsg)
End If
Return status
End Function
