ZipSharpLib로 파일을 압축하고 기존 파일 이름을 새 Zip 파일 이름 (asp.net VB)으로 사용하는 방법

Question

다음은 디렉토리에서 7 일이 넘은 파일을 압축하여 같은 이름의 압축 파일을 만드는 코드 샘플입니다. 기존 파일을 삭제하십시오. 이 예제에서는 .txt 파일을 사용 하겠지만 이것을 변경할 수 있습니다.

myfile1.txt ---> myfile1.zip ---> 삭제 myfile1.txt
myfile2.txt ---> myfile2.zip ---> myfile2.txt

Dim NumDays As Integer = 7 
Dim reportDbPath As String = Directory.GetParent(System.Reflection.Assembly.GetExecutingAssembly().Location).FullName() & "\report" 
Dim fileEntries As String() = Directory.GetFiles(reportDbPath) 
For Each fileName In fileEntries 
    If Path.GetExtension(fileName) = ".txt" AndAlso Directory.GetCreationTime(fileName) < DateAdd(DateInterval.Day, -NumDays, Now()) Then 
     Dim fi As New FileInfo(fileName) 
     Dim archiveFileName As String = Path.GetFileNameWithoutExtension(fileName) & ".zip" 
     Dim fsOut As FileStream = File.Create(Path.Combine(reportDbPath, archiveFileName)) 
     Dim zipStream As New ZipOutputStream(fsOut) 
     zipStream.SetLevel(9) 
     Dim newEntry As New ZipEntry(ZipEntry.CleanName(Path.GetFileName(fileName))) 
     newEntry.DateTime = fi.LastWriteTime 
     newEntry.Size = fi.Length 
     zipStream.PutNextEntry(newEntry) 
     Dim buffer As Byte() = New Byte(4095) {} 
     Using streamReader As FileStream = File.OpenRead(fileName) 
      StreamUtils.Copy(streamReader, zipStream, buffer) 
     End Using 
     zipStream.CloseEntry() 
     zipStream.IsStreamOwner = True 
     zipStream.Close() 
     File.Delete(fileName) 
    End If 
Next fileName 

희망을 삭제 그것은 쓸모있다!

Answer 1

이미 올바른 코드가있어서 질문에 답할 필요가 없습니다. - HOWTO로 변환했습니다.