html업데이트

ArinWarev1/MdiMain.vb

@@ -308,7 +308,15 @@ Public Class MdiMain
 
                 Dim nameOnly As String = System.IO.Path.GetFileNameWithoutExtension(zipfilename)
                 Dim zipcheckfile As String = zipfilename + ".complete"
-                If System.IO.File.Exists(zipcheckfile) Then Continue For
+                Dim fi As New System.IO.FileInfo(zipfilename)
+                Dim completefileinfo As String = fi.LastWriteTime.ToString("yyyyMMddHHmmss.fff") + "|" + fi.Length.ToString()
+                If System.IO.File.Exists(zipcheckfile) Then
+                    '//해당파일의 날짜와 용량이 내부에 기록되어있다 그정보가 틀리다면 진행을한다.
+                    Dim fileinfo As String = System.IO.File.ReadAllText(zipcheckfile, System.Text.Encoding.UTF8).Trim()
+                    If fileinfo.Equals(completefileinfo) Then
+                        Continue For
+                    End If
+                End If
 
                 Dim targetPath As New DirectoryInfo(Path.Combine(Application.StartupPath, nameOnly))
 
@@ -324,7 +332,8 @@ Public Class MdiMain
                     MessageBox.Show("파일 압축 해제에 실패했습니다." & vbCrLf & "일부 기능이 제한될 수 있습니다.",
                                             "경고", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                 Else
-                    System.IO.File.WriteAllText(zipcheckfile, "complete", System.Text.Encoding.UTF8)
+
+                    System.IO.File.WriteAllText(zipcheckfile, completefileinfo, System.Text.Encoding.UTF8)
                 End If
             Next