ࡱ> am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#C:\Program Files\ADT33\ACAD.TLB#AutoCAD 2000 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation*\G{5892F2CA-745F-11D2-B6D4-0060B087E235}#1.0#0#C:\Program Files\ADT33\AXAUTO15.TLB#AutoCAD/ObjectDBX Common 1.0 Type Library*\G{420B2830-E718-1Root Entry'9VBA_Project p|'9VBAp|!9PROJECTwm     !"#$%&'()*+,-./012356789:;<=>?@BCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abPROJECTThisDrawingABCommonDialogMod  4ProgressBar/  !"#%&'()*+,-./0123456789ID="{00000000-0000-0000-0000-000000000000}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=CommonDialogMod Class=ProgressBar Module=Module1 HelpFile="" Name="THC_Hatch_Fix" HelpContextID="0" Description="Fixes Looping condition with Associative Hatches" VersionCompatible32="393222000" CMG="A7A50B7F178341874187458B458B" DPB="D5D779AD89C6A6C6A6395AC7A6B4A76FF3E89507740555B1BF03B0A6848EFE07B69A9AF7E4B6" GC="0301AF83DC84DC84DC" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=44, 44, 766, 568, Z CommonDialogMod=132, 132, 854, 656, ProgressBar=154, 154, 876, 678, Z Module1=110, 110, 832, 634, ThisDrawingThisDrawingCommonDialogModCommonDialogModProgressBarProgressBarModule1Module10* pHd THC_Hatch_Fix0H es LoModule1 $G_VBA_PROJECTdir!VBA_Project_Version(:oping condition with Associative Anes@`jixes Lop(ngc ndtonw h A3s!Rca!vG H chUc=   ̳P? <stdole> s1d7l+( f\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\12.tlb#OLE Automon/ AXAUTO15@Lib>XAUT O15ijb͇ }L5892F2CA-745F-11D@2-B6D4L60B087E235}#1LProgram Files\ADT33\.TLB#&CAD/ObjectDBX Co mmx Type 'rary @Script>crlplzJ k,4 20B28SE718,CF-893D,A0C9054228, Srun.dll#Microsoft F Runt8ime!'AX,DBU'AUDBTv l'OC7DE5-704T2TATRUPMSForms>SFrm3@M0D452EE 1-E08&01A-8-02608C4D0BB4FM20.DLL&b V e;/;1`!=[0i_A!%00h}#0BL#`@04m`773EA27C-631E-4779-8698-D9895C529067PAGEDIR\VBE\"0.exddR.E .@`M VBIDE> A@IDEi`2E157}5.3}iDekSharedAa6E6EXT.OmVisual Basic for Applic„s Extensibility @B|"ThisDrawU rG"T`oi`IDYpar2UH1"ʰ/","(S""+"Dialo gModGZC[m [AD»l gMd2xد!"9essBarc&P`%orsEa c&c&[%4Rc&(jodule1Gou1 $2MoFC@|CxME1CF-893D-00A0C9054228}#1.0#0#C:\WINNT\System32\Scrrun.dll#Microsoft Scripting Runtime*\G{6D4C7DE5-704F-11D2-B6D2-0060B087E235}#1.0#0#C:\Program Files\ADT33\AXDB15.TLB#ObjectDBX 1.0 Type Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{773EA27C-631E-4779-8698-D9895C529067}#2.0#0#C:\PAGEDIR\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M Z*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3  `Fixes Looping condition with Associative Hatches̳?|ThisDrawing013fde0ff3ThisDrawingS/CommonDialogMod023fde0ff3CommonDialogModدProgressBar033fde0ff3ProgressBarR0[%Module1043fde0ff3Module1CHFhH0Q#C=g@'bCHD]KXzSxxstC6ō҄#?DK?hJmLeftAutoCAD"VBAWin16~Win32MacVBA6# THC_Hatch_Fixqstdole` AXAUTO15Lib Scripting AXDB15LibMSFormsCVBIDEA ThisDrawing5 _Evaluate KillHatch3 ERR_HANDLERlent݉ AcadEntityimyhatch^ AcadHatchmyBlk|e AcadBlockBlocksӍAssociativeHatchUtility1JPromptmvbCrLfFullNameОERR_ENDTestDBXKillHatch3retval; DBXKillHatchAdwgDbxDoc AxDbDocument~ Application*GetInterfaceObject]) objSubBlockb objBlkRefdAcadBlockReferenceobjXRefFAcadExternalReference objOpenDoc AcadDocumentZintIt1M strTempTag strTempTextOu DocumentsUCase5 itemzActivate|CLEANUPSaveAsf;SelectFiles_For_Hatch_FixwsFiltersf oFilesDic` Dictionaryi` intFilesCntstrFilesFolderLvarProjectPath)| varDWGFilesM strInitPathPd strCurFile  objProBar6 ProgressBar$posbuff~ sLongname sShortname vbNullCharYOFN) nStructSizeJ hWndOwnerhWnd/sFilter@ nFilterIndexcsFile8aSpace nMaxFile sDefFileExtP sFileTitle& nMaxTitle Split)Path2 vbTextCompare QIsArray sInitialDir sDialogTitle&flagsoOFS_FILE_OPEN_FLAGSOFN_ALLOWMULTISELECTGetOpenFileName]?Trim@AddrStripDelimitedItemCount0vMsgBoxR vbInformationnKeysqCaptionxMaxȲ BackColorރ FillColor>ShowProgressWindow ProgressMeterPos vbCritical+} clean_ExitRTrimNullrtnValf&vbYesNovbYesa?DestroyProgressWindow@F SetVariable?RtmpNamee ProjFullPathP- SendCommandc StripPath strFilePath\xointCnt.- startStrg? delimiter~ChrK~CommonDialogModyJOFN_CREATEPROMPT^9OFN_ENABLEHOOKOFN_ENABLETEMPLATEOOFN_ENABLETEMPLATEHANDLE. OFN_EXPLORERLOFN_EXTENSIONDIFFERENTOFN_FILEMUSTEXISTٽOFN_HIDEREADONLY OFN_LONGNAMES=UOFN_NOCHANGEDIR͙OFN_NODEREFERENCELINKSvOFN_NOLONGNAMESOFN_NONETWORKBUTTONOFN_NOREADONLYRETURNOFN_NOTESTFILECREATEDsOFN_NOVALIDATEOFN_OVERWRITEPROMPTOFN_PATHMUSTEXIST OFN_READONLY!OFN_SHAREAWAREOFN_SHAREFALLTHROUGH( OFN_SHAREWARNdOFN_SHARENOWARN4 OFN_SHOWHELPOFS_MAXPATHNAMESeOFS_FILE_SAVE_FLAGSı OPENFILENAME35 hInstance  sCustomFilternMaxCustFilter` nFileOffsetInFileExtension9 nCustDatafnHookn sTemplateName pOpenfilenameccomdlg32FGetSaveFileNameWGetShortPathName lpszLongPath lpszShortPathX cchBuffer>kernel32_ WS_THICKFRAMEO WS_CAPTION  SW_NORMALi CREATESTRUCTlpCreateParams@hMenun hWndParent7cy\cx\ylstyleplpszName& lpszClass{ExStyleiCreateWindowEx dwExStyle_ lpClassName lpWindowNamedwStylenWidth̵nHeightlpParam5uuser32* ShowWindowJknCmdShow DestroyWindow9SetRectUlpRectRECTiX1_Y1O_X2_Y2P_DrawEdge%hdceqrcedgegrfFlags%h FindWindowKGetDC`GetSysColorBrushnIndex'FillRecthBrush SleepdwMillisecondsťBDR_SUNKENOUTER)BDR_RAISEDINNERw EDGE_ETCHED BF_BOTTOMcBF_LEFTBF_RIGHTTBF_TOPBF_RECTCTop5Right BottomH{lngHdcǀRC^FillRClngFill lngBackColorblngMax*lngHwnd strCaptionstrCap{MaxCountlngIndex Class_TerminatePCS\lngCntglngPauseC$lngPos6 IsMissingModule1boVBE'VBE sFullPathT MainWindow6     HIndex'FillRecthBrush Slee4HlQU%|RD~CreateWindowExA~8DlShowWindow~XX$DestroyWindow~|DSetRect~herDrawEdge~FindWindowA~GetDC~GetSysColorBrush.~#:FillRectFP<sCSleepi xME( PS<S<S<8 &x(  0    0 &H p       & 0HPX`hp x $"  6 60 6h 6 6"   6( 6` 6 6"  6  6X 6 6"  *"H P `px " 6 > @ :H 6 J   0 P h   "   : : :@ : : "    ( 8 X p      x*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@ This New Window proceduresKey]D ]Dy]0eserH^`^x^^^^^^^ ^8^P^hp"1@''@*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@ Rectangle functions (the meter) p sitP*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@7This next declare is used only to slow the loop down in The procedure "ProgressMeterPos"*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@]DWant a Raised look?]D0How about both?]D  H@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@You have to have these]D`]Dx]D]D To get this]D    @~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@The Rectangle type^^ ^ ^8 p]@P ]@h ]@ ]@ ]@ ] ] ] The caption for the new window 'm0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@/ | Max is the maximum number in your For Next |/ | Loop, you must provide this value prior to |/ | Calling ProgressMeterPos! |0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@ 'm0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@/ | This sets the color of the progress fill |/ | value can be 0 to 24 |0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@ 'm0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@/ | This sets the color of the progress |/ | background value can be 0 to 24 |0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@@ 'm$Just to be sure, destroy the window!ܖ  A@ko ] 0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@8Looks can be decieving, must of this call does not applyf:to us! We are not going to use the window for anything but3display! If you have trouble with #32770 try STATIC`0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@  R#32770  Td< $n '`  VA@E $' A@   $A@    A@oxGoodbye window!ܖ@ A@9o@4@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@t3 | This is the procedure to position the progress |3 | Rectangle (FillRC), the arguments are the for |23 |The current count, and a optional sleep interval|4@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@ۖ ]  '    A@   $A@ $ A@#\khk`oXPAttribute VB_Name = "ProgressBar" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@GlobalSpacFalse dCreatablPredeclaIdC@ExposeTemplateDerivCus tomiz E Option 1licit '@~$@ This New Window pr ocedu PHL Const WS_THICKFRAMEt0&H40CAPTIONC 0 "SW_NORMAL1 2Type CREATESTRUCT lpB`eParams As Lo$nghI%anCnMenuL WDnd@entc:yxLstylpsz@S*ClaFsB0 ExSKEXnd BFDC pFunc{DlEx Lib "user32" A@lias "A" _ (By@Val dwL, [( 0,A Cdw2MU nWidth/Heighf6h:eh?3-EB lpJAn y):/Show? .+AE nC 0 Then DOWJ$3 DIfH+ Cs2Showwg0ress4Dim CSuCREATESTRUCT' 'Looks candecieving, mofill does not apply8us! We are gouse for anyDthbutdisplay! @Oyou hav ro@{^th #32770 try STATIC /ƒBg= C remTEx(WS_THICKFRAME, "", Caption, _@ CAPTION, 500, 125@60&, ,g„p}, SW_NORMALHdc@GetDC(etRect LRC2425 FillBF,B SysBBprushFDrawEdgeB#dc BDR_SUNKENOUTER, BF_REA¥'Goodby?S o?9N' |lR@tprocedwOposi6O "h |  &angleD ((C),arguments"Y !V`y curr count,@Yd a oCal sleep interval**DMe Pos9Cnta, Oy@Pamɟos%N@ á /AAMax * 2369! qN@|D< :6(SdR'R6,C!` , 24 AW`[,X7TbS a!IspMiss)H SB-aC!J! %(aa0@~~~~hL(|دxDGetOpenFileNameAwD<lxGetSaveFileNameAPd(GetShortPathNameAoxMEP(<0<< <0hC) hCsthCrlhC##hClohCeserhCpagehCtherh Cuthoh ChChC''''hCibuthCuse hCnhC apphCay nhC4 hCish h C sith"C%h$C or h&Ce)h(C on h*Cpresh,C?''HL''''H.L''''0`< `@`2 ``4xt`6 `sQ``o`see `)`` ``8`:``< D`>!.`@(".%+  )B%+F`( )B.&%+HP iJpriniLdow.iNred FN F DP B F >( <h : < >( Fh        0@ P`p         0 @ P 8` 4  . .  P X h x           ( 8 H X h x   H H H,  x?'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''> Copyright 1996-2003 VBnet, Randy Birch, All Rights Reserved.in< Some pages may also contain other copyrights by the author.?'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''7 Distribution: You can freely use this code in your own6 applications, but you may not reproduce4 or publish this code on any web site,6 online service, or distribute as sourcee)7 on any media without express permission.m?'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''o]$s.]$ < ]$ 0 ]$@H f]$` ]$xr]$vi]$xt]$Ge]$ a]$sQ]$t]$  ]$8o]$P4 see comments]$h)]$ /]$ry]$ ]$ay]$@]$]$]$(]$@]$X1OFS_FILE_OPEN_FLAGS and OFS_FILE_SAVE_FLAGS below-are mine to save long statements; they're nota standard Win32 type.   ]$    p   ]$    ^D ra^D^D^D^D^D0^DH^D`^Dx^D^D^D^D^D^D^D ^D8^DP^Dh^Dp`]  --end block--'յAttribute VB_Name = "CommonDialogMod" Option Explicit '< Copyright 1996-2003net, Randy Birch, All R(s Reserved.@Sopages may also contain o0ther bs by  author>@Dis: You can free@ly use8i"sBde Iyo@ur own] ) apas, inot reproduceor pu`blish5any web site,nline ice, d2e asL s*n media wiRut express permi ssBW' P6c@nst OFN_ALLOWMULTISELECT As Long&H CREATEPR(OMP 0 ENABLEHOOK  TEMPL 4 HANDLEJ 8R XPLORERL 00 TENSIONDIFFEREN =4 FILEMU@STEXIS1 HID` ADO(NLY4$LONGNAMES*#5s NOC #GEDI,P NOCELINKk 9NO#NETWORKBUTxTONr O"$RPETUR8`& 'see`mmentsRTES>T3XVA8LID ROV`ERWRIdPATH3E E +SHA`WJ 2FTHROUGHh2` i0SgNO,12 OWHELP1o S_MAX&`6`OFS_;_OPEN_FLhAGSdSAVEbelow`are mto save l!stateI;ey'@ `ndard Win32 ty\pe೬=2WEG_ *kOr4X?2< n/  N_ U$ ]0O B YO T= qqnStructSizejhWndOwnЉInhancu e#spFiltxingCustomHnMaxxnSIndexc q TitlInitqPDir3 wsflags?tceO`ffset$I@ntegerEpxten!sDef1 (0DatajfnHook sTempl<¸AEnd ''Q(3DecBlCFuncG`etOpeLib "comd@lg32" /ATli@"A(p1filen{ ) xSK!uge__QetS tPathgkernelByVal lpszq1S,EGV_ ScchBuff>1H'--ep blo0ck--P i $ /|S#xME0  $(,SLSS<$<(<,< ----,@X CiBxi   Dtemp% "! % &% *% L0% NP% Rp % V$%`Z`\`^ l`n pP(%`t`v`x`z `| `~` nt,%` v`= `Co` =@ `Co,` I 1)i s`tr` ,0ir.i i or`1)`dls,p idr.i `sC%0A B (0H X h x      6 0@hp \8@H PX `"hp6x* B *08@HPX`hpx  B  ( 08 @H P`p        0 8@HP Xx  6 0h \p   "  8@HPX`hpx   0p  p  x     0  " H  0P 0  ,     "0 "X  % 4 0    .0  `  "         (( P h   p   0 $ (  , ,H ,x ,      80 h x   & 8  , @ P "`           D(p x     $  0  P ` p   $  B "h      .  P Fh   B  .8@HP`hp( B ( . ,0`h p     B     0 8 Hx h]`]] * !.ts and " *ME "r.m ".&inning &!0Bx &(0.k`kX "in bub *RE_VBMsgBox "All Done!".&."'z /-----------------------------------------------.* just print the error to the debug window. 6Problem Encountered with  !8& Please Attempt Recovery on this file! !2B@4VDebug.Print "Error in AppStuff.WorkOnDbxDwg: " & Err.Number & " -- " & Err.Description) .&."::'i](f:\cadd\vba\projects\hatchfixer\test.dwg$@'>eSuccessful Run... > !2B@4 o ]ObjectDBX.AxDbDocument H%J.D p]]]]]8]X]x]]] V H!`Unl B$b V!8$b g V! H!`%dB@fllDrawing Already Open! 6Activating!... !2B@4 hd kk V B DB@ * D!. " * " ".& &!0 &(0k k " * B DB@jMsgBox "All Done!"'@h.D.L.NGetBlockDBX = False.&."'@zh `/-----------------------------------------------* just print the error to the debug window. 6DBX Problem Encountered with  B& Please Attempt Recovery on this file! !2B@4VDebug.Print "Error in AppStuff.WorkOnDbxDwg: " & Err.Number & " -- " & Err.Description.D.L.N.&."::'@iused in call setup] ]8]X]p]]]]]](.pused after call] ]8]P]h)create a string of filters for the dialog THC Fix Associative Hatching *.dwg  All Files *.*  'n size of the OFN structure 93[$window owning the dialog, !9% Form1.hWnd's)filters (patterns) for the dropdown combo n9index to the initial filter3[$9)default filename, plus additional padding*for the user's final selection(s). Must bedouble-null terminatedFj Untitled.dwg$   9'sthe size of the bufferFj59}z,default extension applied tosD9file if it has no extentionoX2dwg  9.space for the file title if a single selectionoS*made, double-null terminated, and its size $   9 !9J'starting folder, double-null terminatedj !\ $'z z$}0$z\$z'~C}0d@c:\'~mQk( ~  9[$the dialog titlesTHC Hatch Crash Repair95"default open flags and multiselect  9$q call the API!bX $2u)remove trailing pair of terminating nullsand trim returned file stringFg ! ! $ $ '&show the members of the returned sFile_B&string in the listbox. If multiselect,k)%the first member is the path, and the7q%remaining members are the files underYJthat path selected.SUn't  by  $ t pB@fG 2List1.AddItem StripDelimitedItem(buff, vbNullChar) t 'tK p!'vwP vKT something happened lets exit sub1No Files Found! THC Hatch Crash RepairA@|KT &single file found just return filenamekm p!'|Z7,.PLqTHC Hatch Crash Repair (63q (fA (eZ (1r B@W_BA@ B@$|$@zrgot it and success B@dProblem opening $| THC Hatch Crash RepairA@ kSx multiple files found   p!'| item 1 is the path$|$'x items 2 to count are filenames,. $THC Hatch Crash Repair - Please Wait ( p! ( ( ( B@  A@ t | x\ t$|$'  t B@ $@ got it and successd ]Problem opening  THC Hatch Crash Repair$'   . User chose Yes.  skip to next filed User chose No.8 k0 k( t  n k  B@  ..pTHC Hatch Crash Repair Complete A@USERI5 B@?ThisDrawing.SendCommand "_vbaunload" & vbCr & "Acad.dvb" & vbCr ] _vbaunload 'MsgBox tmpName  B@o (this returns just the file name, no path ]0]H ' \' b '  \'h  G   $ ' ji8 $`!take a string separated by nulls,(split off 1 item, and shorten the string&so the next item is ready for removal.]]  '   $ '   $ 'k0 i( 0] d$ '  d  $ 'dF d'k i ۶Attribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit Func KillHatch() As Boolean Orror GoTo ERR_HANDLERDim entAcadEntity myh+2Blk Block F7Each myIn .sA(F !  If TypeOfq*Is *#@eD: Set.>=  D7.AssociatdA = rA End IfpNextG)BDA'MsgBox "All Done!@K7Noth P= FExit EA :)'-+ D j@ priAthe eto debug dow. BUtil@O.Prompt vbCrLf & "rm Encounte`oth ")Ful|< P `@@nt Recovery @h%s filsB)!5'DA "Ein AppStuff.WorkOnDbxDwg:`.Number --Describuct55Resu2ENDA4D39M7 L':Sub TestDBX!() !}retvalcB "f:\d\vba\projects\ifixer\t@ .dw g"@ 7"Successful Run...5w_aP FR  S`ng6ocNew AXDB15Lib.AxDbDtoc -n1=?@on.GetIOfOb!"("` "A obj&;AA@5/`Refgnc%@ XEx@knal3Open%e '@gIt1A%gerLAstrTagC9Pka ap9dp]UC(#)-'.uB)cj.item(a).Awv+ a1?1y5M" Alpdy A !q1ND\!13S @Tho S~C@LEANUPEe u_}jRjG3. C{v2m d+hpa3U O{G Wq0o}eOG/$a=RV XtSave29T 0 t!D~ A Subt dF؆'RR0HQDmo KLqo oo!'ooog.od}dgߟ !!#bj!_ a/] א!ӣ0"PubPc 0-P SelPFs _I_>_Fix3a1 'u caAPsetup0  lprys SKbo"Di҆S1cng.QarsAirBnt>Cyt`tFoldprvar3&PaVariaDWGRInit CurbjBargr"RBScripting.Dictionary 'used after callL Dim pos As Long!Lbuff(Str,sHname6Short 8:'create a sN of fils for the dialosF= "THC Fixnsociative Hatch" & vbNullChar "*.dwg__ "All*les!* 2$ Wit h OFN 0'sizeoixucture.n S@= Len()'window ownt4.hWndOwn= ThisD4rag {Fo8rm1^(pDat`ns)Garopn comboE.Dd = f+ex to*initsy"nvInd = 2defaul t e, plus addl pnÉ[ r'@inal seleB(s). Must b`'double-n ?m Xted)A8e@:"UntitledŔSpace$(1024)MJ%OHAIAernxMaxEAZeEFextens appli ti've if it has 8no aDef Exte" 'sA$Ib( Yle3@made, 2, and s (E$T3245124 ./dqh 0staraalderv@arProjQP"a= S6t(u, "\",( 3,T`6Compar@If IsArray(+ )@en I`o k(0" W(1Els&e "c:\"e E2If.s@~Dir2lۏKe'!e F rD og4‚ Crash ReppairF fopen flag@m@icF =S_FILE_OPEN_FLAGS Or NN_ALLOWMULTISELECT #aÂ'!bAPI`:GetO@qN`:@remotrailberasC3vm regno@B8wD ~crim$(Left6$/,ui) 0- 2)4"Eshi!members he7T ng in2listbox. @,afirp[ isrkhAag3Qs ufV0&|at@d8 ]t i+1Do WhiJAA) >\ 3u QosA.Add p@Delimi0eIptem(q=u)H, i'L1:1 i + v LooFpuint Cn_ CountESs Casdk 0P 'somet1gp - 'letsghsubMsgBox "NoS$ Fd!PvbIn }monPQ៟>> Ex}@SI 6Sng0f j32& TDWGRc!'Key6 Set obj^B= New gressk.Caon_M[MspP6BackColе= 7 lEճ .`w WR DoEventGMeЖPfS BDBXKillr (p%m)p 'gotPsucc`O G 2y6q1,@@m f3X2ar 1@Crxiti`-=l GoTo clean_.K fWx9 'BVp/`/[.eRM.'Mm< 19Ypf3Fol @*T0fOQs 2ac t> \;77ro77chjnPOWaitFw7OT .8fo8O8w+8ents For i = 1 To UBound(varDWGFiles) strCur:lTrimNull(*`Folder & "\" (i))OobjProBar.gressMeterPos 1If DBXKillHat chy) Then1'got it and succ1Else xDim rtnVal MsgBox("cblem opening , vbYesNo, "THC b Crash Repair"?D|5!w ' Uschose ..Tskip to nexxt f@y DNoGoclean_ExitaIfENA(i ASelecOFA :$ ǖDe@`oyWindow ` Set  pN8othlBDic yn Compl"yInformatio@* @lisDra w.Varia "USERI5 9 'Th)I nd@mA"_vbaunloa"dvbCAcad.dvbCtmpName As Str3:= , `$jF`zPathdD' "6ub Func BpA Ea)'@0s returns just the"U n, no pxaInteger !intCnt"9A';ax%In`@t\qDo Whe x#A $ =ix + 1 ,  Loop {> 0{$@ Mid$K A-e,-Private .DelimitedItDem art gA% ng, _!ud$ rg8'take aa)N sr`d by nLs,sploff `m,hortenB?'V'so'"b iAEad y @mFmova6lcAAp^Longa C`sa= c@"6#, 5#"@%(p,'7 ` C `st$P! GLen5?mI@ @Ar 5 quq, Chr$(0d 0#@Left$(- 1g: 31J m`used in call setup]]p]]]]]]]] .used after call]]]])create a string of filters for the dialogTHC Hatch Crash Repair9arNo Files