Browse dir using a date, zip the files selected, save to designated location

You could run it as a scheduled task or a windows service if you don't want human intervention.

No renea, I dont know this thing.

hi reena, Please do Formatting(also understanding) of code carefully Because i don't found formatting tool on this editor(cSharpCorner.com). i also done similar project some time ago. i copy some part of my code to here. i think your requirement is fullfill from this code. first download following dll ICSharpCode.SharpZipLib.dll Now use follwing code Imports System Imports System.IO Imports System.Text Imports System.Data.OleDb Imports System.Windows.Forms Imports System.Collections Imports Microsoft.VisualBasic Imports ICSharpCode Imports ICSharpCode.SharpZipLib.Zip Imports ICSharpCode.SharpZipLib.GZip Imports ICSharpCode.SharpZipLib.Checksums Public Class create_zip_Form Dim sourcepath As String = " " Dim destinationpath As String = " " Dim logfilepath As String = " " Dim ProcessStartingTime As String Dim ProcessEndingTime As String Private Sub Buttonzip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonzip.Click Try sourcepath =txtSourcePath.text.trim destinationpath = txtDestinationPath.text.trim logfilepath = txtLogFilePath.text.trim If Not Directory.Exists(sourcepath) Then MsgBox("Source folder not exist ", MsgBoxStyle.Information, "Create Zip") Exit Sub End If If Not Directory.Exists(destinationpath) Then MsgBox("Destination folder not exist ", MsgBoxStyle.Information, "Create Zip") Exit Sub End If If Not Directory.Exists(logfilepath) Then MsgBox("Log File folder not exist ", MsgBoxStyle.Information, "Create Zip") Exit Sub End If create_zip() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub create_zip() Try Dim filename4delete As String ProcessStartingTime = System.DateTime.Now.ToLongTimeString Dim astrFileNames() As String = Directory.GetFiles(sourcepath) Dim objCrc32 As New Crc32() Dim strmZipOutputStream As ZipOutputStream strmZipOutputStream = New ZipOutputStream(File.Create(destinationpath & "\" & DateTimePicker1.Text.Trim & ".zip")) strmZipOutputStream.SetLevel(6) REM Compression Level: 0-9 REM 0: no(Compression) REM 9: maximum compression Dim strFile As String 'strFile = TextBoxsourcepath.Text.Trim For Each strFile In astrFileNames If Mid(strFile, strFile.Length - 3, 4).ToLower = ".xml" Then Dim strmFile As FileStream = File.OpenRead(strFile) 'MsgBox(DateTimePicker1.Text.Trim) filename4delete = strmFile.Name Dim i As Long = -1 Dim str1 As String str1 = strmFile.Name While i <> 0 i = InStr(str1, "\", CompareMethod.Text) If i <> 0 Then str1 = str1.Substring(i, str1.Length - i) Else 'MsgBox(str1.Substring(0, 8)) If str1.Substring(0, 8) = DateTimePicker1.Text.Trim Then Dim abyBuffer(strmFile.Length - 1) As Byte strmFile.Read(abyBuffer, 0, abyBuffer.Length) Dim objZipEntry As ZipEntry = New ZipEntry(strFile) objZipEntry.DateTime = DateTime.Now objZipEntry.Size = strmFile.Length strmFile.Close() objCrc32.Reset() objCrc32.Update(abyBuffer) objZipEntry.Crc = objCrc32.Value strmZipOutputStream.PutNextEntry(objZipEntry) strmZipOutputStream.Write(abyBuffer, 0, abyBuffer.Length) End If Exit While End If End While strmFile.Close() File.Delete(filename4delete) End If Next strmZipOutputStream.Finish() strmZipOutputStream.Close() ProcessEndingTime = System.DateTime.Now.ToLongTimeString create_logfile() MessageBox.Show("Operation complete") Me.Close() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub create_logfile() Try Dim s, s1 As String 'FileClose(1) s = logfilepath & "\" & DateTimePicker1.Text.Trim & ".txt" 'FileOpen(1, s, OpenMode.Output) Dim strmZipInputStream As ZipInputStream = New ZipInputStream(File.OpenRead((destinationpath & "\" & DateTimePicker1.Text.Trim & ".zip"))) Dim objEntry As ZipEntry Dim strOutput As String Dim strBuilder As StringBuilder = New StringBuilder(strOutput) Dim totalfile As Long Dim TotalUncompressedSize As Long Dim TotalCompressedSize As Long objEntry = strmZipInputStream.GetNextEntry() While IsNothing(objEntry) = False 'strBuilder.Append("Name: " + objEntry.Name.ToString + vbCrLf) 'strBuilder.Append("Date: " + objEntry.DateTime.ToString + vbCrLf) 'strBuilder.Append("Size: (-1, if the size information is in the footer)" + vbCrLf) TotalUncompressedSize = Val(objEntry.Size) + TotalUncompressedSize TotalCompressedSize = Val(objEntry.CompressedSize) + TotalCompressedSize totalfile = totalfile + 1 'strBuilder.Append(vbTab + "Uncompressed: " + objEntry.Size.ToString + vbCrLf) 'strBuilder.Append(vbTab + "Compressed: " + objEntry.CompressedSize.ToString + vbCrLf) Dim nSize As Long = 2048 Dim abyData(2048) As Byte objEntry = strmZipInputStream.GetNextEntry() End While strmZipInputStream.Close() s1 = "Total file compressed : " & totalfile & ControlChars.NewLine s1 = s1 & "Total size : " & ControlChars.NewLine s1 = s1 & " Uncompressed size : " & TotalUncompressedSize & " byte" & ControlChars.NewLine s1 = s1 & " Compressed size : " & TotalCompressedSize & " byte" & ControlChars.NewLine s1 = s1 & "Process time : " & ControlChars.NewLine s1 = s1 & " Starting time : " & ProcessStartingTime & ControlChars.NewLine s1 = s1 & " Ending time : " & ProcessEndingTime & ControlChars.NewLine Dim oFile As System.IO.File Dim oWrite As System.IO.StreamWriter oWrite = File.CreateText(s) oWrite.Write(s1) oWrite.Close() Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class hope this helps