{"id":41,"date":"2007-07-13T02:04:27","date_gmt":"2007-07-13T02:04:27","guid":{"rendered":"https:\/\/www.wapshere.com\/missmiis\/?page_id=41"},"modified":"2008-01-18T16:28:26","modified_gmt":"2008-01-18T16:28:26","slug":"function-archivehomedir","status":"publish","type":"page","link":"https:\/\/www.wapshere.com\/missmiis\/code-snippets\/function-archivehomedir","title":{"rendered":"NWHomeDir_CSExtension.vb: Function ArchiveHomeDir"},"content":{"rendered":"

Imports zbitz<\/a><\/font><\/font><\/font><\/font> <\/font><\/font><\/p>\n

Private<\/font> <\/font>Function<\/font> ArchiveHomeDir(<\/font>ByVal<\/font> path <\/font>As<\/font> <\/font>String<\/font>) <\/font>As<\/font> Int16<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim<\/font> status <\/font>As<\/font> Int16<\/font><\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim<\/font> archive <\/font>As<\/font> <\/font>New<\/font> Czzip<\/font><\/font> <\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim<\/font> archivePath As<\/font> String<\/font> = “\\\\” & path.Split(“\\”)(2) & “\\” & path.Split(“\\”)(3) & “\\” & “ARCHIVE\\” & path.Split(“\\”)(5) & “.zip”<\/font><\/font><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 If<\/font> System.IO.File.Exists(archivePath) Then<\/font><\/font><\/font> <\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Throw<\/font> New<\/font> UnexpectedDataException(“Archive file ” & archivePath & ” already exists”)<\/font><\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 End<\/font> If<\/font><\/font><\/font><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim logtxt = <\/font>Date<\/font>.Now & ” Zipping ” & path & “: “<\/font>
\n<\/font>\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 status = archive.ZipFile(path, archivePath)<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 If<\/font> status = 0 Then<\/font> ‘Confirm zip file exists<\/font><\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 logFile.WriteLine(logtxt & “Success”)<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 If<\/font> Not<\/font> System.IO.File.Exists(archivePath) Then<\/font><\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 status = -1<\/font> <\/font><\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 End<\/font> If<\/font><\/font>
\n\u00c2\u00a0\u00c2\u00a0 Else<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 logFile.WriteLine(logtxt & “Failed with error ” & status & “, ” & archive.LastMsg)<\/font>
\n\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 End<\/font> If<\/font><\/font><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Return<\/font> status<\/font><\/p>\n

End<\/font> Function<\/font><\/font><\/p>\n","protected":false},"excerpt":{"rendered":"

Imports zbitz Private Function ArchiveHomeDir(ByVal path As String) As Int16 \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim status As Int16 \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim archive As New Czzip \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim archivePath As String = “\\\\” & path.Split(“\\”)(2) & “\\” & path.Split(“\\”)(3) & “\\” & “ARCHIVE\\” & path.Split(“\\”)(5) & “.zip” \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 If System.IO.File.Exists(archivePath) Then \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Throw New UnexpectedDataException(“Archive file ” & archivePath &…<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":30,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"jetpack_post_was_ever_published":false,"footnotes":""},"class_list":["post-41","page","type-page","status-publish","hentry"],"jetpack_shortlink":"https:\/\/wp.me\/Pkp1o-F","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/41","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/comments?post=41"}],"version-history":[{"count":0,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/41\/revisions"}],"up":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/30"}],"wp:attachment":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/media?parent=41"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}