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

Question

can anyone help me figure out how to create a program using vb.net with visual studio 2005 that will automatically select files from a folder or directory by date and time? I need to be able to enter a date and have the program search a directory/folder locate all the files that are from date and time entered and newer zip them up and save them to a location I designate? Any help is greatly appreciated.

Jan Montano · Answer

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

Rupesh Swami · Answer

No renea I dont know this thing.

Renea · Answer

Thank you Rupesh for the code and suggestion. Do you know of a way to make this an API? My boss would like to automatically run without intervention? Thanks

Rupesh Swami · Answer

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

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