From 2c6c2aa69cd2232a57e98b25856d598987e76884 Mon Sep 17 00:00:00 2001 From: chi Date: Mon, 27 Dec 2021 22:20:25 +0900 Subject: [PATCH] ... --- DriveInfo.suo | Bin 105472 -> 111104 bytes DriveInfo/DriveInfo.vbproj | 1 + DriveInfo/My Project/AssemblyInfo.vb | 4 +- DriveInfo/모듈/Mod_Copy.vb | 187 +++++++++++++++++++++ DriveInfo/모듈/Mod_Move.vb | 202 ++--------------------- Setup1/Setup1.vdproj | 238 +++++++++++++-------------- 6 files changed, 323 insertions(+), 309 deletions(-) create mode 100644 DriveInfo/모듈/Mod_Copy.vb diff --git a/DriveInfo.suo b/DriveInfo.suo index 665fdf80110e90e73d89a5b9ecde26fc7750ec61..913a4f21180a67abc9f9e4ceaea23c36443c9089 100644 GIT binary patch delta 5361 zcmcIo4_K4ex&Pjf1Q5gk5fv~HMEitAI(kOyFw1}2MF76Yh!7O}LloDGc2!es|Q-c2! zQ6I#)^S5lu{NfTsP|s+;f4g`mh_-$k$0f<)mw<$3OLG8D`Sp=$B8h}#X5hhJrTD$k zTLG5fjcH#ThmC zvt2yhEo>7O3td7JNo~e^*6zk(^*WTT%|y|nRcPM32o~Y*Y!;L?%Ap^}ZnUw-&5#N< zjMt`Mux=fyd*`6C@dv28_%xK_smsgJT`b3eoG3iroIvV7Ia;blVXi% zu`|48^FTAgqSajeL?tQU6O2NMP%qR94#6d~`)}(Z4)cc^&|RA)xt9d`u+8-V`^6r} z!njjW=-nXoWjEs$hZtoJCoOR*d**PB2z^=W_?(im&=CF2M`+DWIOgcV%*J(iz*&YD zHh1|2_i`prdIOu7RJh>LV%c}73QZIUQ8zth<2+-`HFp)(pC)3>4@0Tp2 z-mM7PN_3Uhzw3+_0 zM_-?gA32+G#3@JFN;QrglEF%hA3BJmogF9}62nf4Iu+LFwSMj1Dyf)z%inikYa})m zXW+mgHK^&V?834~qbLg3`Ck}P!tiq<3Tr3dzQ5}5cLBW>3cup{hs5IdXnlOaF`Z;O4@VB};Xbq!E%AF_sf?g=LyYFXexhnRn)5Q5 zq7m|O*SQ7E+Xy;%nCY9K4bzt<#ebSrl{0dy;L!G;i0j5?y;m2pr#f-w{FiTDtQYKp zM`#fq6xyk_3f=5fBP<_&SA@#(Qda7uU_E$$+T>JMv!XazrQ9K_lEm}DCw<8UhtDK@ zFrJ}!P(%}xDsrZ40uMGGNyb$#X39K5htMgwiQqV&IE3M#lzfmzM7jPhihE(L0Y`T% zCVr~He7l0vU0gpu^iym!{DBzDn`h&%e>@vUOEw~%27mXFTJU|Cia8&~_QueujU{js z#!)>Z+>WO@A>5WzJ(G|`m_?XPm_tY=q!3aGa|sGU8X=vaBxDfg5i$w$30Z_}LJlF9 zus|dzgoV^tL{JeH6Ye3X33-Hkzw*PSfU>f}$sm@P$fJ8h$s%YyasA8^${5x z$bca>E(RHUHW#k26EW0Ulm*>^ok?(AG?)yAi6uRJGS-m{W;80*?0PcsfgzzZ;7tK9 zDKUqX7?=f54ys{6;G_bMiE;RHMu_3v=Dq$*Kl+bO@>f zRTXdyaMYy3Pweu)PP7swE#nK(`&Y86g6USkDQw#?^DAkUdGxfk(N*9MxT`=Efx0Ru zB%*3;H+v|P?3|tnO+b2@!cD7bVb@oWY+r@VwRu$B&tvx*vL2{$3&n#t}iVk`@KOrF=%`o`)AN3@xDYrN|>v zO9gy!e{SsN;E&(gF}_;1V{D&<^N4<_GC({MA?C3u`VU}Tc334DBD=Y{dn8|wdoHpY zHdx3qnjsZOV>OZ+)VDv}mk{a`OP-<;!=Vw==nNiY+Y;#pnsKs*b!?=_x()2}jj)oU zhQ$75A_g5mS4OVm)BHJb-9g6yLfq)Y(>G-COaC}Bm~!0m%eeTw3gg+9>jhk03lU{V zW)lX-6XMrbRsHdOo$}H>>aLF)uB`lNDwk2#&5=}aHe+oM(n0w!9pVCUE@*~9J5g=M zN!rBcVjljI=^<75=5UyI$BHEfNWr$yK4kRrWO$dUe3ze#W1pe7TxDJ`epjaCO)|xi zkPv3P8j_LhCz*qMhUusIOM2pEh$jjjFG;z7kAId_o>Kb3Z3r(16H1(~2jh>G3kNb+%;kwRlq@G@c+w0P zTwOGsH9BA>?)z0Fg?vbmwY9=F_E`-SFxQiC0mnTF?42zzht1eRI~?hxtM~Km)oiRE zl3CCPX>6xsBYQhcWBA^9olW>B@9iK>Ia&Vy_qIY2&p+1qcOkDA67K9LqJ$i-HzeMF zcg(I7awu*)DMrndygh`LP_)jc;gjWm)gARkDO2(J^*lk^Zm0RV^?7Y3d;@KXyQj)O zrfm`*$A^UCW@-|CY?9Dx``cfFhTdtyc`|g2u*q1WroSEPa8dF4uAj+wJ>ARJv^qOG z9IdXhZllN1WxLO1Z|&~hq1KdZ_2t@pmA;@TU!|!qRj7&!3?@}Uety12qbV;eFVysO z2Ozvwg~`Zb%AkG5r_UY!6#MF1TALqiY3;IM@0o>gbg&F|vO|?n00A61lNLJN{M^A;kVy#W1wW*r4#TJ!Dy+osGDlD|AmJ}>$)>`xI&DMMy2mr!$ zAu4d;ahvXI1y64{e7<4y#0bW(wcJ-$>-|3kEBDV|mvYsb+KIE0Us!BW=Qmqbg%-P3 zm6zANMAg)6)zGQ2sx|gPt=3kc?lDe=JBuuXEqD8sy-*4Iq({EA!X%X&1Kep}mgh%f zLVo3xeC%igwRy5P{+;Lujlg+gdEjUntOBe*lZuPaR}XCjbBd delta 2856 zcmbuBe^^vi8pqFfm>+^jBRir20^*3IE)63ZBH}P0Yl$%kQEjdPu^=dj!-zi@FX}2P z5%3zvES2R+Lm!`Fx#X=j6Z>Ur?aJ0ZS+1*yw*9bdZEZKvWZw&xyZi6nXFkt4=bj($ zd(QiP?-}KyS$WCak#9g46&PmX9@=e)L_8fagawWkLZmS_2L=Yzi-tM`Io?`x;nDt6 z@Z-1226c_G28J&lrhZeXad6NWb1d*rHPsSnke#a$r7HfbfONVRaNT@_=M0RZ{^9r1 z8^(C@1!fJFioelNB-H-Ee)I5S5aQBs9w!7fjhaS>t(mG~`_5vp`l)Ne*T8%i_nb&j z`^Q=X;G^^7r%`mBPwk4$v{3M_7$j0;T@HEX+A)?=oxdXQ>=0_~eTWAZ)OaQwc3L)jMO%WA93?hNpEZW8E;n_w+o_{Cs5!w$yGp|0qS@sI z)LUjXjb|6O(J^~DH6}-3E~S>NrQ))N=CUH{wr?_JaCeKm;z0?0)*Z*^ltm+#ZpSLZ z#BtQSEQxv^i6HAzBV8?PBX_x%lr)7Ji=r`uQfGzTHoYu}iptheYq=GvY&(aPifHO8 zUq{YLZ<{-af|H_=NAb%i@S+PSVYyH4u){;1Cql@v+(^p2>XG5>O0mcgNn)YM6{Vtr z2Ifbq5exc&5*3N}7^r)uLg~(jXwOVLx%Z|}cS|xNX=G}4=R;j)^wW!rA_wD2A1!jM ze}jYbCi52aHglYLhxt8of_ayDkNE@hN9H8c!~BVPpZS3KGjodhkkJM65tkn`rN7H@N=2-oEvYUkxl2?XSGkMIV-hB7%^3C-s!1)1;JS)=E8fCO5Op zVrB0Z`Nh79_;t6mr4gKQ&5mmmCDH=HJOqToj(@>Y{Ek<;V>1^b6| z+y4F-bxnRSC@#K{T*vEiAHh*Y3!E&it#iqi>LDwyV&P<4OWi)jq-X3ayql@gy&bvo zcPkMrmo{LGdc$jkv_65!a&k2mAfwG^BgfAA|41??z5i4kRhCCn<35MMA?URg#pEqc zQB$_PK4N5*NN3%8MVzP>g=}OZojWj&&brqjNj=v-4iw>bP@yAHP281fHonL)Q|nq+ zS*UGFrn>IXCQxfq0EZxkl#B>9;$R;r+PzLabS4+%a5*}kZ#53d``J$WNIm+UY@?3R z>o=PU!u((3#!;r5zV948*1&j_?lyF0p(7U7NF;&xZRCGYH|&-2839UNluEYdv;2AS*pkP{v=c ztmZzOe>e;GXYQP|3_AaLIYnKFGQaTZzM4h-YDeFWV3U3x%LX^>`}P|Pe;b>wuars- zLe3jel?Q8&| zEwXhqA5EMM`Gdm?Qt8bOw#cbtkN2RnwC&rS?uIa@6gJj@B}{1 zP2ETRk;_-ZF0Y0n%M88kuMg9FVW>AqLjtzRs7wUN1_vf-nUUx+N+l41(leg3d2tM4 zq{o9O>YlU+Ci#^IPm}U?i)kLOU&BW=Pv*xUTss(pywNSwIU~MILWnGLvBCciz0o4l zkNo&b7qZcbDBY2Y!*09*GoEAvyL3kbpTE6zA+PMkM2#i$G4^MG zWz^38#T~$j5W^3e;CU0c9?WI>|LSkhYKYIoeS=SUck``!de@J>&6ckFa7=c#vT|9p z^JIK2Mv<~Onhx4+BYu5+!b>+kSU5DFZ__&|f3aOgC!kDrIAPXqX2Rgtl8Xjec!)1) zWuw;=#)F#&zkrpAF{U(bH4vs`k#)XY~*5HM06>YmG1M@hfI`*25c* zoi53dKiS2ux;kRy@ooI4$2CLI8Y*<@)Hvak$~3-4DzsqPn}vYTIcYhbrTTrr&;0bH zg}J2_RZCVc%qy+Zuo>qe4_D)mjC&HnnsogH*O6R(owb+(vn%86)KS z6`TvFH)9Ij@mRQ4(2M|3tv4Gk`I~BtGUP3g0UJ;(@7{uOCS8JV&9nhaAeRu607Oun|n*7+U@s~HT uh~G|3IbV%&(zgw3<%KQC(JpU8wn6fiN+msx2b+&ZYtbz@Yx+0sEZaZ; diff --git a/DriveInfo/DriveInfo.vbproj b/DriveInfo/DriveInfo.vbproj index cb1da0f..90bc428 100644 --- a/DriveInfo/DriveInfo.vbproj +++ b/DriveInfo/DriveInfo.vbproj @@ -151,6 +151,7 @@ + Form_Status.vb diff --git a/DriveInfo/My Project/AssemblyInfo.vb b/DriveInfo/My Project/AssemblyInfo.vb index 1fafd7d..3ae869b 100644 --- a/DriveInfo/My Project/AssemblyInfo.vb +++ b/DriveInfo/My Project/AssemblyInfo.vb @@ -33,5 +33,5 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - - + + diff --git a/DriveInfo/모듈/Mod_Copy.vb b/DriveInfo/모듈/Mod_Copy.vb new file mode 100644 index 0000000..202137d --- /dev/null +++ b/DriveInfo/모듈/Mod_Copy.vb @@ -0,0 +1,187 @@ +Imports System.IO +Imports System.Threading +Imports System.Text + +Module Mod_Copy '//파일이동 모듈파일 + + + Public Sub MoveFileRCopy(winhide As Boolean) + Dim SrcFI As FileInfo = Nothing + Dim DesFi As FileInfo = Nothing + + Dim SrcFIp As String '//ft용 160328 + Dim Err As Boolean = False + Dim isFTP As Boolean = False + + If GetWorkDIr.StartsWith("ftp:/") Then isFTP = True + + MDiMain.MSG("파일복사중...") + Application.DoEvents() + + Dim index As Integer = 0 + Dim endcnt As Integer = MDiMain.DataSet1.WorkList.Rows.Count - 1 + + If MDiMain.DataSet1.WorkList Is Nothing Then + If winhide Then + MDiMain.Noti("MoveFileRCopy" + vbCrLf + "파일목록이 없습니다") + Else + MsgBox("작업파일목록이 존재하지않습니다." & vbCrLf & "진행할 수 없습니다", MsgBoxStyle.Information, "확인") + End If + Return + End If + + Application.DoEvents() + + For Each Dr As ireaDataSet.WorkListRow In MDiMain.DataSet1.WorkList.Rows + index += 1 + + Application.DoEvents() + + MDiMain.ShowCnt1(index, endcnt, "파일복사") + If Dr.오류 <> "" Then + Errlog("선오류감지되어서 넘어갑니다(" & Dr.오류 & ")") + Else + Dim 원본파일명 As String = Dr.원본경로 & "\" & Dr.원본파일명 + Dim 대상파일명 As String = Dr.대상경로 & "\" & Dr.대상파일명 + + If isFTP Then + SrcFIp = 원본파일명.Replace("\", "/") + SrcFIp = SrcFIp.Replace("//", "/") + Else + If isFileName(원본파일명) Then + SrcFI = New FileInfo(원본파일명) + Else + Dr.성공 = "X" + Dr.오류 = "원본파일명오류:" + 원본파일명 + Dr.EndEdit() + Continue For + End If + End If + + If isFileName(대상파일명) Then + DesFi = New FileInfo(대상파일명) + Else + Dr.성공 = "X" + Dr.오류 = "대상파일명오류:" + 대상파일명 + Dr.EndEdit() + Continue For + End If + + Application.DoEvents() + + '//ftp상태일때는 원본 백업을 하지 않는다. + If Not isFTP Then + Try + Check_Backup(SrcFI, BakTag) + Catch ex As Exception + PLog.Add(ex.Message, True) + If winhide Then + MDiMain.Noti("백업정책실패: " + ex.Message) + Else + MsgBox("백업정책(Check_Backup이 실패했습니다)" & vbCrLf & "Baktag=" & BakTag & vbCrLf & "오류내용:" & ex.Message.ToString, MsgBoxStyle.Information, "메일보내주세요") + End If + End Try + End If + + Application.DoEvents() + + Try + If Directory.Exists(DesFi.DirectoryName) = False Then + Directory.CreateDirectory(DesFi.DirectoryName) '//대상폴더생성 + End If + Catch ex As Exception + + Dr.성공 = "X" + Dr.오류 = "대상폴더생성실패:" + ex.Message + Dr.EndEdit() + + Errlog("대상폴더생성실패:" + DesFi.DirectoryName & vbCrLf + ex.Message.ToString) + Continue For + End Try + + + If DesFi.Exists Then + Dr.성공 = "△" + Dr.오류 = "대상파일존재 넘어감" + Dr.EndEdit() + Else + If isFTP Then + Dim 재시도횟수 As Integer = 0 +FTPDOWN: + Try + FTP_0.Download(SrcFIp, DesFi.FullName, True) + If System.IO.File.Exists(DesFi.FullName) Then + Dim fi As New System.IO.FileInfo(DesFi.FullName) + If fi.Length = 0 Then + Dr.성공 = "X" + Dr.오류 = "다운로드실패(0byte)" + Dr.EndEdit() + Else + Dr.성공 = "O" + Dr.오류 = "" + Dr.EndEdit() + Continue For + End If + Else + Dr.성공 = "X" + Dr.오류 = "다운로드실패(대상파일이없음)" + Dr.EndEdit() + End If + Catch ex As Exception + Dr.성공 = "X" + Dr.오류 = "다운로드실패(예외:" + ex.Message + ")" + Dr.EndEdit() + End Try + + Application.DoEvents() + + + If Dr.성공 = "X" Then + '//다운로드실패일때는 대상횟수로 연속 다운로드를 한다 + If 재시도횟수 < MaxRetryCount Then + Dr.성공 = "■" + Dr.오류 = String.Format("재시도({0}/{1})", 재시도횟수, MaxRetryCount) + Dr.EndEdit() + 재시도횟수 += 1 + PLog.Add("재실행으로인한 지연시간") + MDiMain.Noti(String.Format("FTP Download 오류(재시도:{0}/{1})" + vbCrLf + SrcFIp, 재시도횟수, MaxRetryCount)) + Form_Status.Refresh() + Threading.Thread.Sleep(2000) + GoTo FTPDOWN + Else + '//아무것도 하지않는다 이것은 오류이다. + Err = True + Continue For + End If + End If + + + Else + + Try + '//일반파일은 기존대로 사용하도록 한다. + SrcFI.CopyTo(DesFi.FullName, True) + Dr.성공 = "O" + Dr.오류 = "" + Dr.EndEdit() + Catch ex As Exception + Err = True + Dr.성공 = "X" + Dr.오류 = "일반파일복사오류:" + ex.Message.ToString() + Dr.EndEdit() + Continue For + End Try + + End If + + Application.DoEvents() + + End If + End If + + Next + MDiMain.MSG("파일 [복사] 완료" & IIf(Err, "(일부파일에 오류가 발생하였습니다", "")) + MDiMain.Noti("파일(복사)완료") + End Sub + +End Module diff --git a/DriveInfo/모듈/Mod_Move.vb b/DriveInfo/모듈/Mod_Move.vb index ff88898..bbc0274 100644 --- a/DriveInfo/모듈/Mod_Move.vb +++ b/DriveInfo/모듈/Mod_Move.vb @@ -65,6 +65,8 @@ Module Mod_Move '//파일이동 모듈파일 SrcOffset = index + getSP() - 1 '//줄시작값과 현재의 오프셋을 더한다. Dim loopcnt2 As Integer = 0 + Dim 작업폴더 As String = GetWorkDIr().Replace("ftp:", "").Replace("FTP:", "") + For Each dr As ireaDataSet.FileListRow In WRow NR = MDiMain.DataSet1.WorkList.NewWorkListRow @@ -87,21 +89,24 @@ Module Mod_Move '//파일이동 모듈파일 NR.오류 = "" Try - DesDir = New DirectoryInfo(MDiMain.DESD_GetDesDir(SrcOffset, dr.파일명.Substring(0, dr.파일명.LastIndexOf(".")), GetExtendOnly, dr.경로.Substring(GetWorkDIr.Length))) - NR.대상경로 = DesFile.DirectoryName + DesDir = New DirectoryInfo(MDiMain.DESD_GetDesDir(SrcOffset, dr.파일명.Substring(0, dr.파일명.LastIndexOf(".")), GetExtendOnly, dr.경로.Substring(작업폴더.Length))) + NR.대상경로 = DesDir.FullName '//수정함 Catch ex As Exception NR.대상경로 = "" NR.오류 += ex.Message End Try - Try - DesFile = New FileInfo(DesDir.FullName & "\" & MDiMain.Desf_Get_FileList(SrcOffset, dr.파일명.Substring(0, dr.파일명.LastIndexOf(".")), GetExtendOnly) & Pub.GetExtendFromMdi.Trim("*")) - NR.대상파일명 = DesFile.Name - Catch ex As Exception - NR.대상파일명 = "" - NR.오류 += ex.Message - End Try + If String.IsNullOrEmpty(NR.대상경로) = False Then + Try + DesFile = New FileInfo(DesDir.FullName & "\" & MDiMain.Desf_Get_FileList(SrcOffset, dr.파일명.Substring(0, dr.파일명.LastIndexOf(".")), GetExtendOnly) & Pub.GetExtendFromMdi.Trim("*")) + NR.대상파일명 = DesFile.Name + Catch ex As Exception + NR.대상파일명 = "" + NR.오류 += ex.Message + End Try + End If + If NR.오류 <> "" Then '//이미오류가 발생했다. Try @@ -312,183 +317,4 @@ Module Mod_Move '//파일이동 모듈파일 MDiMain.MSG("파일 [이동] 완료" & IIf(Errcount > 0, "(일부파일에 오류가 발생하였습니다", "")) End Sub - Public Sub MoveFileRCopy(winhide As Boolean) - Dim SrcFI As FileInfo = Nothing - Dim DesFi As FileInfo = Nothing - - Dim SrcFIp As String '//ft용 160328 - Dim Err As Boolean = False - Dim isFTP As Boolean = False - - If GetWorkDIr.StartsWith("ftp:/") Then isFTP = True - - MDiMain.MSG("파일복사중...") - Application.DoEvents() - - Dim index As Integer = 0 - Dim endcnt As Integer = MDiMain.DataSet1.WorkList.Rows.Count - 1 - - If MDiMain.DataSet1.WorkList Is Nothing Then - If winhide Then - MDiMain.Noti("MoveFileRCopy" + vbCrLf + "파일목록이 없습니다") - Else - MsgBox("작업파일목록이 존재하지않습니다." & vbCrLf & "진행할 수 없습니다", MsgBoxStyle.Information, "확인") - End If - Return - End If - - Application.DoEvents() - - For Each Dr As ireaDataSet.WorkListRow In MDiMain.DataSet1.WorkList.Rows - index += 1 - - Application.DoEvents() - - MDiMain.ShowCnt1(index, endcnt, "파일복사") - If Dr.오류 <> "" Then - Errlog("선오류감지되어서 넘어갑니다(" & Dr.오류 & ")") - Else - Dim 원본파일명 As String = Dr.원본경로 & "\" & Dr.원본파일명 - Dim 대상파일명 As String = Dr.대상경로 & "\" & Dr.대상파일명 - - If isFTP Then - SrcFIp = 원본파일명.Replace("\", "/") - SrcFIp = SrcFIp.Replace("//", "/") - Else - If isFileName(원본파일명) Then - SrcFI = New FileInfo(원본파일명) - Else - Dr.성공 = "X" - Dr.오류 = "원본파일명오류:" + 원본파일명 - Dr.EndEdit() - Continue For - End If - End If - - If isFileName(대상파일명) Then - DesFi = New FileInfo(대상파일명) - Else - Dr.성공 = "X" - Dr.오류 = "대상파일명오류:" + 대상파일명 - Dr.EndEdit() - Continue For - End If - - Application.DoEvents() - - '//ftp상태일때는 원본 백업을 하지 않는다. - If Not isFTP Then - Try - Check_Backup(SrcFI, BakTag) - Catch ex As Exception - PLog.Add(ex.Message, True) - If winhide Then - MDiMain.Noti("백업정책실패: " + ex.Message) - Else - MsgBox("백업정책(Check_Backup이 실패했습니다)" & vbCrLf & "Baktag=" & BakTag & vbCrLf & "오류내용:" & ex.Message.ToString, MsgBoxStyle.Information, "메일보내주세요") - End If - End Try - End If - - Application.DoEvents() - - Try - If Directory.Exists(DesFi.DirectoryName) = False Then - Directory.CreateDirectory(DesFi.DirectoryName) '//대상폴더생성 - End If - Catch ex As Exception - - Dr.성공 = "X" - Dr.오류 = "대상폴더생성실패:" + ex.Message - Dr.EndEdit() - - Errlog("대상폴더생성실패:" + DesFi.DirectoryName & vbCrLf + ex.Message.ToString) - Continue For - End Try - - - If DesFi.Exists Then - Dr.성공 = "△" - Dr.오류 = "대상파일존재 넘어감" - Dr.EndEdit() - Else - If isFTP Then - Dim 재시도횟수 As Integer = 0 -FTPDOWN: - Try - FTP_0.Download(SrcFIp, DesFi.FullName, True) - If System.IO.File.Exists(DesFi.FullName) Then - Dim fi As New System.IO.FileInfo(DesFi.FullName) - If fi.Length = 0 Then - Dr.성공 = "X" - Dr.오류 = "다운로드실패(0byte)" - Dr.EndEdit() - Else - Dr.성공 = "O" - Dr.오류 = "" - Dr.EndEdit() - Continue For - End If - Else - Dr.성공 = "X" - Dr.오류 = "다운로드실패(대상파일이없음)" - Dr.EndEdit() - End If - Catch ex As Exception - Dr.성공 = "X" - Dr.오류 = "다운로드실패(예외:" + ex.Message + ")" - Dr.EndEdit() - End Try - - Application.DoEvents() - - - If Dr.성공 = "X" Then - '//다운로드실패일때는 대상횟수로 연속 다운로드를 한다 - If 재시도횟수 < MaxRetryCount Then - Dr.성공 = "■" - Dr.오류 = String.Format("재시도({0}/{1})", 재시도횟수, MaxRetryCount) - Dr.EndEdit() - 재시도횟수 += 1 - PLog.Add("재실행으로인한 지연시간") - MDiMain.Noti(String.Format("FTP Download 오류(재시도:{0}/{1})" + vbCrLf + SrcFIp, 재시도횟수, MaxRetryCount)) - Form_Status.Refresh() - Threading.Thread.Sleep(2000) - GoTo FTPDOWN - Else - '//아무것도 하지않는다 이것은 오류이다. - Err = True - Continue For - End If - End If - - - Else - - Try - '//일반파일은 기존대로 사용하도록 한다. - SrcFI.CopyTo(DesFi.FullName, True) - Dr.성공 = "O" - Dr.오류 = "" - Dr.EndEdit() - Catch ex As Exception - Err = True - Dr.성공 = "X" - Dr.오류 = "일반파일복사오류:" + ex.Message.ToString() - Dr.EndEdit() - Continue For - End Try - - End If - - Application.DoEvents() - - End If - End If - - Next - MDiMain.MSG("파일 [복사] 완료" & IIf(Err, "(일부파일에 오류가 발생하였습니다", "")) - MDiMain.Noti("파일(복사)완료") - End Sub - End Module diff --git a/Setup1/Setup1.vdproj b/Setup1/Setup1.vdproj index 6d8b1ac..4d76e7a 100644 --- a/Setup1/Setup1.vdproj +++ b/Setup1/Setup1.vdproj @@ -33,6 +33,12 @@ } "Entry" { + "MsmKey" = "8:_562711157F38E3186A51F84F05A25ED6" + "OwnerKey" = "8:_F348CEA4150043899391F5791D5F1B19" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { "MsmKey" = "8:_65AD5F1E308A9FA5EDC00012E1E3AEBC" "OwnerKey" = "8:_F348CEA4150043899391F5791D5F1B19" "MsmSig" = "8:_UNDEFINED" @@ -51,7 +57,19 @@ } "Entry" { - "MsmKey" = "8:_90EE8862AC05F94635A30DA18D1E7D3E" + "MsmKey" = "8:_81671565D90AC2303E6FF8577966CC4E" + "OwnerKey" = "8:_F348CEA4150043899391F5791D5F1B19" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_916CF430D7635DDA53A774CF3EEB28E0" + "OwnerKey" = "8:_F348CEA4150043899391F5791D5F1B19" + "MsmSig" = "8:_UNDEFINED" + } + "Entry" + { + "MsmKey" = "8:_944F06484C77058D98CE2680207AF8A7" "OwnerKey" = "8:_F348CEA4150043899391F5791D5F1B19" "MsmSig" = "8:_UNDEFINED" } @@ -93,12 +111,6 @@ } "Entry" { - "MsmKey" = "8:_BAB5DD50A75E49ACD0AD9DEAD2491CF9" - "OwnerKey" = "8:_F348CEA4150043899391F5791D5F1B19" - "MsmSig" = "8:_UNDEFINED" - } - "Entry" - { "MsmKey" = "8:_C853E0C84DEF9EA84A03A3A34D1D8D3D" "OwnerKey" = "8:_F348CEA4150043899391F5791D5F1B19" "MsmSig" = "8:_UNDEFINED" @@ -123,12 +135,6 @@ } "Entry" { - "MsmKey" = "8:_D8D7CAA460DEB54444A13CD7BB6E910F" - "OwnerKey" = "8:_F348CEA4150043899391F5791D5F1B19" - "MsmSig" = "8:_UNDEFINED" - } - "Entry" - { "MsmKey" = "8:_DA4DC68F42EC38EDABA7C3392E0126C7" "OwnerKey" = "8:_F348CEA4150043899391F5791D5F1B19" "MsmSig" = "8:_UNDEFINED" @@ -147,12 +153,6 @@ } "Entry" { - "MsmKey" = "8:_EE927A0579255EE3761A89887CC1C24C" - "OwnerKey" = "8:_F348CEA4150043899391F5791D5F1B19" - "MsmSig" = "8:_UNDEFINED" - } - "Entry" - { "MsmKey" = "8:_F348CEA4150043899391F5791D5F1B19" "OwnerKey" = "8:_UNDEFINED" "MsmSig" = "8:_UNDEFINED" @@ -172,25 +172,25 @@ "Entry" { "MsmKey" = "8:_UNDEFINED" - "OwnerKey" = "8:_90EE8862AC05F94635A30DA18D1E7D3E" + "OwnerKey" = "8:_916CF430D7635DDA53A774CF3EEB28E0" "MsmSig" = "8:_UNDEFINED" } "Entry" { "MsmKey" = "8:_UNDEFINED" - "OwnerKey" = "8:_D8D7CAA460DEB54444A13CD7BB6E910F" + "OwnerKey" = "8:_81671565D90AC2303E6FF8577966CC4E" "MsmSig" = "8:_UNDEFINED" } "Entry" { "MsmKey" = "8:_UNDEFINED" - "OwnerKey" = "8:_BAB5DD50A75E49ACD0AD9DEAD2491CF9" + "OwnerKey" = "8:_562711157F38E3186A51F84F05A25ED6" "MsmSig" = "8:_UNDEFINED" } "Entry" { "MsmKey" = "8:_UNDEFINED" - "OwnerKey" = "8:_EE927A0579255EE3761A89887CC1C24C" + "OwnerKey" = "8:_944F06484C77058D98CE2680207AF8A7" "MsmSig" = "8:_UNDEFINED" } "Entry" @@ -404,6 +404,37 @@ "IsDependency" = "11:TRUE" "IsolateTo" = "8:" } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_562711157F38E3186A51F84F05A25ED6" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:FTP_Client, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_562711157F38E3186A51F84F05A25ED6" + { + "Name" = "8:FTP_Client.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:FTP_Client.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_EECE35A66DEC41D387A998BBDBDC7978" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_65AD5F1E308A9FA5EDC00012E1E3AEBC" { "AssemblyRegister" = "3:1" @@ -466,14 +497,45 @@ "IsDependency" = "11:TRUE" "IsolateTo" = "8:" } - "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_90EE8862AC05F94635A30DA18D1E7D3E" + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_81671565D90AC2303E6FF8577966CC4E" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:ArinLog, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_81671565D90AC2303E6FF8577966CC4E" + { + "Name" = "8:ArinLog.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:ArinLog.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_EECE35A66DEC41D387A998BBDBDC7978" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_916CF430D7635DDA53A774CF3EEB28E0" { "AssemblyRegister" = "3:1" "AssemblyIsInGAC" = "11:FALSE" "AssemblyAsmDisplayName" = "8:ArinSetting, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL" "ScatterAssemblies" { - "_90EE8862AC05F94635A30DA18D1E7D3E" + "_916CF430D7635DDA53A774CF3EEB28E0" { "Name" = "8:ArinSetting.dll" "Attributes" = "3:512" @@ -497,6 +559,37 @@ "IsDependency" = "11:TRUE" "IsolateTo" = "8:" } + "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_944F06484C77058D98CE2680207AF8A7" + { + "AssemblyRegister" = "3:1" + "AssemblyIsInGAC" = "11:FALSE" + "AssemblyAsmDisplayName" = "8:CommonClassv2, Version=1.2.1.0, Culture=neutral, processorArchitecture=MSIL" + "ScatterAssemblies" + { + "_944F06484C77058D98CE2680207AF8A7" + { + "Name" = "8:CommonClassv2.dll" + "Attributes" = "3:512" + } + } + "SourcePath" = "8:CommonClassv2.dll" + "TargetName" = "8:" + "Tag" = "8:" + "Folder" = "8:_EECE35A66DEC41D387A998BBDBDC7978" + "Condition" = "8:" + "Transitive" = "11:FALSE" + "Vital" = "11:TRUE" + "ReadOnly" = "11:FALSE" + "Hidden" = "11:FALSE" + "System" = "11:FALSE" + "Permanent" = "11:FALSE" + "SharedLegacy" = "11:FALSE" + "PackageAs" = "3:1" + "Register" = "3:1" + "Exclude" = "11:FALSE" + "IsDependency" = "11:TRUE" + "IsolateTo" = "8:" + } "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_AFAC776AE119E0BFC9E6DB5359F92516" { "AssemblyRegister" = "3:1" @@ -559,37 +652,6 @@ "IsDependency" = "11:TRUE" "IsolateTo" = "8:" } - "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_BAB5DD50A75E49ACD0AD9DEAD2491CF9" - { - "AssemblyRegister" = "3:1" - "AssemblyIsInGAC" = "11:FALSE" - "AssemblyAsmDisplayName" = "8:FTP_Client, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL" - "ScatterAssemblies" - { - "_BAB5DD50A75E49ACD0AD9DEAD2491CF9" - { - "Name" = "8:FTP_Client.dll" - "Attributes" = "3:512" - } - } - "SourcePath" = "8:FTP_Client.dll" - "TargetName" = "8:" - "Tag" = "8:" - "Folder" = "8:_EECE35A66DEC41D387A998BBDBDC7978" - "Condition" = "8:" - "Transitive" = "11:FALSE" - "Vital" = "11:TRUE" - "ReadOnly" = "11:FALSE" - "Hidden" = "11:FALSE" - "System" = "11:FALSE" - "Permanent" = "11:FALSE" - "SharedLegacy" = "11:FALSE" - "PackageAs" = "3:1" - "Register" = "3:1" - "Exclude" = "11:FALSE" - "IsDependency" = "11:TRUE" - "IsolateTo" = "8:" - } "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_C853E0C84DEF9EA84A03A3A34D1D8D3D" { "AssemblyRegister" = "3:1" @@ -652,37 +714,6 @@ "IsDependency" = "11:TRUE" "IsolateTo" = "8:" } - "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_D8D7CAA460DEB54444A13CD7BB6E910F" - { - "AssemblyRegister" = "3:1" - "AssemblyIsInGAC" = "11:FALSE" - "AssemblyAsmDisplayName" = "8:ArinLog, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL" - "ScatterAssemblies" - { - "_D8D7CAA460DEB54444A13CD7BB6E910F" - { - "Name" = "8:ArinLog.dll" - "Attributes" = "3:512" - } - } - "SourcePath" = "8:ArinLog.dll" - "TargetName" = "8:" - "Tag" = "8:" - "Folder" = "8:_EECE35A66DEC41D387A998BBDBDC7978" - "Condition" = "8:" - "Transitive" = "11:FALSE" - "Vital" = "11:TRUE" - "ReadOnly" = "11:FALSE" - "Hidden" = "11:FALSE" - "System" = "11:FALSE" - "Permanent" = "11:FALSE" - "SharedLegacy" = "11:FALSE" - "PackageAs" = "3:1" - "Register" = "3:1" - "Exclude" = "11:FALSE" - "IsDependency" = "11:TRUE" - "IsolateTo" = "8:" - } "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_DA4DC68F42EC38EDABA7C3392E0126C7" { "AssemblyRegister" = "3:1" @@ -745,37 +776,6 @@ "IsDependency" = "11:TRUE" "IsolateTo" = "8:" } - "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_EE927A0579255EE3761A89887CC1C24C" - { - "AssemblyRegister" = "3:1" - "AssemblyIsInGAC" = "11:FALSE" - "AssemblyAsmDisplayName" = "8:CommonClassv2, Version=1.2.1.0, Culture=neutral, processorArchitecture=MSIL" - "ScatterAssemblies" - { - "_EE927A0579255EE3761A89887CC1C24C" - { - "Name" = "8:CommonClassv2.dll" - "Attributes" = "3:512" - } - } - "SourcePath" = "8:CommonClassv2.dll" - "TargetName" = "8:" - "Tag" = "8:" - "Folder" = "8:_EECE35A66DEC41D387A998BBDBDC7978" - "Condition" = "8:" - "Transitive" = "11:FALSE" - "Vital" = "11:TRUE" - "ReadOnly" = "11:FALSE" - "Hidden" = "11:FALSE" - "System" = "11:FALSE" - "Permanent" = "11:FALSE" - "SharedLegacy" = "11:FALSE" - "PackageAs" = "3:1" - "Register" = "3:1" - "Exclude" = "11:FALSE" - "IsDependency" = "11:TRUE" - "IsolateTo" = "8:" - } "{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_F431995862C0F5BD09455462CE7F8A93" { "AssemblyRegister" = "3:1" @@ -875,7 +875,7 @@ "Name" = "8:Microsoft Visual Studio" "ProductName" = "8:파일명 관리자" "ProductCode" = "8:{BA47AF81-2610-4194-87E6-340E86B522F1}" - "PackageCode" = "8:{45D25603-AEBA-41B7-AE6B-A20EFE52CD0A}" + "PackageCode" = "8:{8A7A0788-154A-4BA6-89EF-B74B357342BE}" "UpgradeCode" = "8:{94790222-C9E4-404E-8F83-4554D5B6F6C0}" "AspNetVersion" = "8:4.0.30319.0" "RestartWWWService" = "11:FALSE"