[ { "Id": "439884", "ThreadId": "211797", "Html": "

There is a way for zip a rar file? when I try it i receive this error: filenotfoundexception

\r\n

 

\r\n

Thankyou

", "PostedDate": "2010-05-06T07:47:03.63-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "439913", "ThreadId": "211797", "Html": "

I have found that the problem is the name of the file and not rar type.

\r\n

The name is "S105_SRT_ESI_A01 (Pianta a +27.60 - )_23-04-2010.rar"

\r\n

I must set any option for this file?

\r\n

 

", "PostedDate": "2010-05-06T08:31:30.033-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "439917", "ThreadId": "211797", "Html": "

I don't understand your question, but,...
DotNetZip does not read RAR files.

\r\n

 

", "PostedDate": "2010-05-06T08:36:25.033-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "439925", "ThreadId": "211797", "Html": "

I need to zip a file with this file name: S105_SRT_ESI_A01 (Pianta a +27.60 - )_23-04-2010.rar

\r\n

When I try aI receive an exception.

\r\n

There is any otion to set for this type of file name?

", "PostedDate": "2010-05-06T08:42:07.297-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "439975", "ThreadId": "211797", "Html": "

Show me the code you use, and the full exception stacktrace.

", "PostedDate": "2010-05-06T09:53:48.027-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "440232", "ThreadId": "211797", "Html": "
\r\n
this is the code:
\r\n
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click\r\n\r\n\r\n\r\n        Dim curr_path, tmp_path As String\r\n        \r\n        curr_path = Directory.GetCurrentDirectory()\r\n        tmp_path = curr_path & "\\tmp"\r\n\r\n        If Dir(tmp_path, vbDirectory) = "" Then\r\n            MkDir(tmp_path)\r\n        Else\r\n            Directory.Delete(tmp_path, True)\r\n            MkDir(tmp_path)\r\n        End If\r\n\r\n\r\n        Dim file_Target As String = tmp_path & "\\allegati.zip"\r\n\r\n\r\n        If File.Exists(file_Target) Then\r\n            If (MessageBox.Show(String.Format("The file you have specified ({0}) already exists.  Do you want to overwrite this file?", _\r\n                                              file_Target), "Confirmation is Required", _\r\n                                              MessageBoxButtons.YesNo, MessageBoxIcon.Question) <> DialogResult.Yes) Then\r\n                Return\r\n            End If\r\n            File.Delete(file_Target)\r\n        End If\r\n        Me._saveCanceled = False\r\n        Me._nFilesCompleted = 0\r\n        Me._totalBytesAfterCompress = 0\r\n        Me._totalBytesBeforeCompress = 0\r\n\r\n        ' Start Outlook.  \r\n        ' If it is already running, you'll use the same instance...    \r\n        Dim olApp As Outlook.Application\r\n        olApp = CreateObject("Outlook.Application")\r\n\r\n        ' Logon. Doesn't hurt if you are already running and logged on...    \r\n        Dim olNs As Outlook.NameSpace\r\n        olNs = olApp.GetNamespace("MAPI")\r\n        olNs.Logon()\r\n\r\n        Dim objOutlk\r\n        Dim objMail\r\n\r\n        Dim str_Attach As String\r\n        Dim cont_mail As Integer = 1\r\n        'Create a new message \r\n        'Dim fileDetail As IO.FileInfo\r\n        str_Attach = ""\r\n        If ListBox1.Items.Count > 0 Then\r\n\r\n            If CheckBox1.Checked = False Then\r\n\r\n\r\n\r\n                For Each O As Object In ListBox1.Items\r\n                    objOutlk = CreateObject("Outlook.Application")\r\n                    objMail = objOutlk.createitem(0)\r\n                    If Text_A.Text <> "" Then objMail.To = Text_A.Text\r\n                    If Text_cc.Text <> "" Then objMail.cc = Text_cc.Text\r\n                    If Text_ccn.Text <> "" Then objMail.bcc = Text_ccn.Text\r\n\r\n                    If Text_oggetto.Text <> "" Then objMail.subject = Text_oggetto.Text & " - " & cont_mail & "/" & ListBox1.Items.Count\r\n\r\n                    If cont_mail > 1 Then\r\n                        objMail.body = Text_oggetto.Text & " - " & cont_mail & "/" & ListBox1.Items.Count\r\n                    Else\r\n                        objMail.body = Rich_mess.Text\r\n                    End If\r\n\r\n                    str_Attach = O\r\n                    objMail.attachments.add(str_Attach)\r\n                    objMail.display()\r\n                    cont_mail = cont_mail + 1\r\n                Next\r\n            Else ' spitta i file\r\n\r\n                cont_mail = 1\r\n                Dim zip1 As ZipFile = New ZipFile\r\n\r\n                For Each O As Object In ListBox1.Items\r\n                    ProgressBar1.Maximum = ListBox1.Items.Count\r\n\r\n\r\n\r\n                    If File.Exists(O) Then zip1.AddFile(O, "Files")\r\n                    If Directory.Exists(O) Then zip1.AddDirectory(O, "Files")\r\n\r\n                    ProgressBar1.Value += 1\r\n\r\n                Next\r\n\r\n                zip1.MaxOutputSegmentSize() = Val(tx_splitsize.Text) * 1024 * 1024\r\n\r\n                zip1.Save(file_Target)\r\n\r\n                Dim a() As String\r\n                a = Directory.GetFiles(tmp_path)\r\n\r\n\r\n                Dim sortQuery = From word In a Order By word.Substring(word.Length - 3, 3) Select word\r\n\r\n\r\n                For Each aa As Object In sortQuery\r\n\r\n                    objOutlk = CreateObject("Outlook.Application")\r\n                    objMail = objOutlk.createitem(0)\r\n                    If Text_A.Text <> "" Then objMail.To = Text_A.Text\r\n                    If Text_cc.Text <> "" Then objMail.cc = Text_cc.Text\r\n                    If Text_ccn.Text <> "" Then objMail.bcc = Text_ccn.Text\r\n\r\n                    'If Text_oggetto.Text <> "" Then objMail.subject = Text_oggetto.Text & " - " & cont_mail + 1 & "/" & a.Count '+ 1\r\n                    objMail.subject = Text_oggetto.Text & " - " & cont_mail & "/" & a.Count '+ 1\r\n                    If cont_mail > 1 Then\r\n                        objMail.body = Text_oggetto.Text & " - " & cont_mail & "/" & a.Count '+ 1\r\n                    Else\r\n                        objMail.body = Rich_mess.Text\r\n                    End If\r\n\r\n\r\n                    str_Attach = aa\r\n\r\n                    objMail.attachments.add(str_Attach)\r\n                    objMail.display()\r\n                    cont_mail = cont_mail + 1\r\n\r\n                Next\r\n            End If\r\n            'Next\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n            'End If\r\n\r\n        Else\r\n\r\n            MsgBox("Devi allegare almeno un file")\r\n\r\n\r\n     End If\r\n\r\n        If Dir(tmp_path, vbDirectory) <> "" Then\r\n            Directory.Delete(tmp_path, True)\r\n\r\n        End If\r\n        ProgressBar1.Value = 0\r\n        'Clean up \r\n        objMail = Nothing\r\n        objOutlk = Nothing\r\n    End Sub
\r\n
\r\n
exception
\r\n
\r\n
System.IO.FileNotFoundException non è stata gestita
  FileName="D:\\Visual basic\\Automatic_Mail\\Automatic_Mail\\bin\\Release\\tmp\\allegati.z01"
  Message="Impossibile trovare il file 'D:\\Visual basic\\Automatic_Mail\\Automatic_Mail\\bin\\Release\\tmp\\allegati.z01'."
  Source="mscorlib"
  StackTrace:
       in System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
       in System.IO.File.Move(String sourceFileName, String destFileName)
       in Ionic.Zip.ZipSegmentedStream.TruncateBackward(UInt32 diskNumber, Int64 offset)
       in Ionic.Zip.ZipEntry.Write(Stream s)
       in Ionic.Zip.ZipFile.Save()
       in Ionic.Zip.ZipFile.Save(String fileName)
       in Automatic_Mail.Form1.Button1_Click(Object sender, EventArgs e) in D:\\Visual basic\\Automatic_Mail\\Automatic_Mail\\Form1.vb:riga 136
       in System.Windows.Forms.Control.OnClick(EventArgs e)
       in System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
       in System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
       in System.Windows.Forms.Control.WndProc(Message& m)
       in System.Windows.Forms.ButtonBase.WndProc(Message& m)
       in System.Windows.Forms.Button.WndProc(Message& m)
       in System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
       in System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
       in System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
       in System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
       in System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       in System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       in Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       in Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       in Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       in Automatic_Mail.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:riga 81
       in System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)
       in Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
       in System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
       in System.Threading.ThreadHelper.ThreadStart()
  InnerException:
\r\n
 
\r\n

",
    "PostedDate": "2010-05-07T00:23:16.613-07:00",
    "UserRole": null,
    "MarkedAsAnswerDate": null
  },
  {
    "Id": "440355",
    "ThreadId": "211797",
    "Html": "
The problem you're having is related to the segmentation of the archive.
\r\n
I don't know why it would fail.
\r\n
First, what version of DotNetZip are you using?
\r\n
Second, you need to employ a "Using" clause.  See any of the examples for how.  See the documentation for reasons why.  Don't skip the using clause.
\r\n
Try that and tell me if it continues to fail.
\r\n
 
",
    "PostedDate": "2010-05-07T07:35:59.807-07:00",
    "UserRole": null,
    "MarkedAsAnswerDate": null
  }
]