ࡱ>       ( 8 H X h x]$/R]$ ]$ 0]$@H]$`]$x]$C]$x]$]$ ]$VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserFormFileSelect ClientHeight = 7788 ClientLeft = 48 ClientTop = 432 ClientWidth = 11640o WCompObjUaVBFrameM modCommonDialog % Root Entry q CVBA_Project 3' q VBA_Project_Version(VBAO8'"  rv !"#$%&'()*+,-.012345678C:;<=>?@ABDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghijklmnopqstuwxyz{|}~  + !"#$&'()*0-./123456789:;<=>?@ABCDEFGHIJKLRNOPQSTaVXYZ[\]^_`bcdefghijklmnoqrstuvwxyz{|}~ac<+/I_n\OXjB*. qhj ZtuQha;jdfn[iaetr 1CE-ID="{03E666BD-9361-4DC7-A427-452F88CDCDA4}" Document=ThisDrawing/&H00000000 Module=modFileSelect Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserFormFileSelect Module=modCommonDialog Class=clsCommonDialog HelpFile="" Name="fselect" HelpContextID="0" Description="Creates a list of file names. PublPROJECTwm,PROJECTThisDrawing3modFileSelectp UserFormFileSelect&bqUserFormFileSelect& ><p|5Ai08  n``Pp|5AfR0* pHdfselectA0Creates a list of file names. Public Domain 2@009 Ths Gail Ha ws@r@eats lis offl nm).PuTb-c D-mi% 209Th_G!lH wgB=| ic Domain 2009 Thomas Gail Haws" VersionCompatible32="393222000" CMG="F0F203E107E107E107E107" DPB="ADAF5E1FA6DDA7DDA7DD" GC="6A6899E657E757E7A8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C modFileSelect=111, 111, 1160, 890, UserFormFileSelect=0, 0, 1024, 458, , 28, 33, 947, 670, modCommPB <stdole> Yd5U :^*\G{00020430v-C 0046}#2.0#0#C:\WINDOWS\system32\22.tlb#OL E Autti$onEMSForms>A MSFFrmr3ED452EE1-E08F-101A-8-02608C4D0BB4"indows\SysWOW64\FM20.DLL#Microsoft B @/ Obj Library/;"1@:@@00}#0@# р0@33824D24-8056-47B5-96CC-EBD73957F35I.DOCUME~1\Parents\LOCALSTemp \VBE\L.exd3!.E . `M  @Comctl1>>\m"clL@b3|26B7 E6392^0AaB-AFC0-42d02A8DA7}#1.3ă ac32.oc*xH.W @"monntrols 5.0 (SP2)d@91AE7FCF-72B3-41A5-8488-7E7296698125?2\f(l2> @c~k B0*3vAg`@Sd`Ag n3Oj`a5s4k4F5BE8BC2-7DE6-11D0-91FE VC04xFD7`gv4M2S \aA B.dll4e3f2dd E10A74F3-0F1F-4FBD-90C7-3E41EFAE614dd"d'2@‹}OE0bQ ThisDrawingGDèawgn52 H1]"E,"""+ modFSGAUxd ie`ekAEO2\/#-Ȗ!%Userj$Ue@%EF{&SY32?eL SHq( pA3IDialoACPm0jo`{jD aogJ2PdlIg F;cls_ csZ S  I_ >_ = QxMEonDialog=0, 0, 0, 0, C clsCommonDialog=0, 0, 0, 0, C alog=0, 0ThisDrawingThisDrawingmodFileSelectmodFileSelectUserFormFileSelectUserFormFileSelectmodCommonDialogmodCommonDialogclsCommonDialogclsCommonDialogDialogclsCommonHnL/RHLN1HLHLHLCHpL#ReH L of HLH"LH$LHH&LH(LH*LH,LH.LH0LH2LHLHLH4LH6LH8LAH:LH<LH>LH@LHBLHDLHFLHHLHJLHLLHNLHPLHRLHTLHVLHXLHZLP**    ( 8 HX h x      ( 8 H X h x     clsCommonDialog /Pfo,CompObjp StartUpPosition = 1 'CenterOwner TypeInfoVer = 73 End BustomizD2 Op tion 1licit ` ]$]$ ]$8]$P]$h]$4]$ T]$]$T(]$@]$]$ Microsoft Forms 2.0 FormEmbedded Object9qpxE^(Add...qOuTahoma(RemovepOuTahoma(Move UpqOuTahomap M{5Tahomap( Move Downme.qOuTahomap,CancelpqOuTahomap(Open...qNuTahoma. , Save as...e.qOuTahoma.,SaveqOuTahoma.,New....qOuTahoma.,OK qOuTahoma.(Sort!x]$(]$@]$Xe si]$pd ar]$1an]$rim ]$ber ]$ty.]$]$ ]$ ]$0]$ Hpars]$`se r]$ x]$'Attribute VB_Name = "modCommonDialog" Option Explicit Pub, Const OFN_ALLOWMULTISELECT&H200TCREATEPROMP&'ENABLEHOOKLK#TEMPLS '4K'HANDLE-8XPLPORER0cEXTENSIONDIFFERENf4FILEMUSTEXIS"1*HID%ADPONLY?4zLONGNAMESG%NOCtGEDId%NO/CELINKsA'2NO ; NETWORKBUTTON* @B8<%nW*\G{33824D24-8056-47B5-96CC-EBD73957F354}#2.0#0#C:\DOCUME~1\Parents\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0#C:\Windows\SysWOW64\comctl32.ocx#Microsoft Windows Common Controls 5.0 (SP2)*\G{91AE7FCF-72B3-41A5-8488-7E7296698125}#1.3#0#C:\DOCUME~1\Parents\LOCALS~1\Temp\VBE\ComctlLib.exd#Microsoft Windows Common Controls 5.0 (SP2)c~k B**\G{F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}#2.0#0#C:\Windows\MSAgent\agentctl.dll#Microsoft Agent Control 2.0*\G{E10A74F3-0F1F-4FBD-90C7-3E41EFAE6144}#2.0#0#C:\DOCUME~1\Parents\LOCALS~1\Temp\VBE\AgentObjects.exd#Microsoft Agent Control 2.0‹}O  Creates a list of file names. Public Domain 2009 Thomas Gail HawsBQThisDrawing034bd3109aThisDrawing]modFileSelect044bd3109amodFileSelectȖ$UserFormFileSelect054bd3109a9$UserFormFileSelectHq0SmodCommonDialog064bd3109amodCommonDialogH clsCommonDialog074bd3109aWclsCommonDialog=` >xH`0xcA+ҭh GĂ$OFd 0ؠ>ÂrG6bLpzyNNc NAutoCAD"VBAWin16~Win32MacVBA6#fselect.stdole`MSFormsC ComctlLibn AgentObjects ThisDrawing5 _Evaluate modFileSelect strIOFileNameb strFilespec= strExtension  strFileListstrIOFileNameTemp! FileSelect}objThisDrawing[ AcadDocumentZ strLabelTop]c strLabelTipb Application*ActiveDocument\ GetVariable~ frmFileSelectkUserFormFileSelectCaptionxLabelTopFrameTipLabelTipShow SetVariable?RblnListChanged#UserForm_Initialize5c IOFileReadListBox1List*CommandButtonAdd_Clicki` cmdlgOpenFileNDclsCommonDialogstrFileFolderNamestrBuff strFolderԻstrFile XstrPathlFile%positemzInitDir<Filter;FlagsoOFN_ALLOWMULTISELECT OFN_EXPLORERLDisableButtonsShowOpen~ EnableButtonsKFileNamejChrK~ vbNullCharYInStrRevĈ vbTextCompare Q AddFileToList8nStripDelimitedItem startStrg? delimiter~ strNewFileUvBoxFile  blnNewFile!ECommandButtonRemove_Click~ iListIndexBIiListBox iTempFileListvFilestrTempFileList strItem ListCount6SelectedY ListIndexQClearCommandButtonMoveUp_ClickaiOffsetNblnTempFileList#CommandButtonMoveDown_ClickĎCommandButtonSortPlus_Click[ blnSortedA(iFile0 iFileAhead strTempHolderLUCase5 CommandButtonSortMinus_Click'CommandButtonNew_ClickiMsgBoxResponse`MsgBoxRvbCrLf vbYesNoCancelqvbYesa? IOFileSave5IvbCancel'EndSub:OFN_OVERWRITEPROMPTShowSave GCommandButtonOpen_ClickܘOFN_FILEMUSTEXISTٽCommandButtonSave_ClickKCommandButtonSaveAs_ClicklOFN_PATHMUSTEXIST DefaultExtyCommandButtonOK_ClickCommandButtonCancel_Click:UserForm_TerminatelDvbYesNoCommandButtonAdddEnabled۪CommandButtonRemoveCommandButtonMoveUpCommandButtonMoveDowns%CommandButtonSortPlusPCommandButtonSortMinusjXCommandButtonNewBCommandButtonOpenNCommandButtonSaveCommandButtonSaveAs(WCommandButtonOKFCommandButtonCanceliInFile iValidFile^ strFileLineMblnDifferentExtensionsNewListEOFRight LCase:NextFile0T vbExclamationiOutFilezmodCommonDialogOFN_CREATEPROMPT^9OFN_ENABLEHOOKOFN_ENABLETEMPLATEOOFN_ENABLETEMPLATEHANDLE.OFN_EXTENSIONDIFFERENTOFN_HIDEREADONLY OFN_LONGNAMES=UOFN_NOCHANGEDIR͙OFN_NODEREFERENCELINKSvOFN_NOLONGNAMESOFN_NONETWORKBUTTONOFN_NOREADONLYRETURNOFN_NOTESTFILECREATEDsOFN_NOVALIDATE OFN_READONLY!OFN_SHAREAWAREOFN_SHAREFALLTHROUGH(OFN_SHARENOWARN4 OFN_SHAREWARNd OFN_SHOWHELPCDERR_DIALOGFAILUREMCDERR_FINDRESFAILUREHCDERR_GENERALCODESCDERR_INITIALIZATIONjCDERR_LOADRESFAILUREzCDERR_LOADSTRFAILURE4]CDERR_LOCKRESFAILURE\CDERR_MEMALLOCFAILUREDCDERR_MEMLOCKFAILURE*CDERR_NOHINSTANCE{ CDERR_NOHOOK<CDERR_NOTEMPLATECDERR_REGISTERMSGFAILCDERR_STRUCTSIZE,GetOpenFileName]? pOpenfilenamec OPENFILENAME35 comdlg32.dll?GetSaveFileNameWSHBrowseForFolder" lpBrowseInfor BROWSEINFOY shell32.dll+SHGetPathFromIDListKpidlpszPath CoTaskMemFreeMpv^ ole32.dllCommDlgExtendedErrors lStructSize/r hwndOwner hInstance  lpstrFilterlpstrCustomFilternMaxCustFilter` nFilterIndexc lpstrFileVnMaxFilelpstrFileTitlep4 nMaxFileTitleymlpstrInitialDirr lpstrTitleo nFileOffsetInFileExtension9 lpstrDefExt_ lCustData'5lpfnHooklpTemplateNamethOwnerEmpidlRootdpszDisplayNamehr lpszTitleSulFlagslpfnlParam7iImageU ERROR_SUCCESSjrMAX_PATH(BIF_RETURNONLYFSDIRS-mvarPath mvarInitDirPmvarDialogTitle mvarFilter$mvarUserFilterG8mvarDefaultExtk mvarFileName@ mvarFileTitleK8mvarFilterIndexy mvarFlags:mvarMaxFileSizeD  mvarErrorCode<mvarErrorDescriptionClass_InitializennewValpl DialogTitle߄tmpSplit)Path2 FileTitle FilterIndex˟ MaxFileSizeT LastErrorhBrowse_retval;bi\ofn) GetComponentsParseFileNamesbminmaxȲvbBinaryCompare̝StrDelimstokenssW 9  ZbGetOpenFileNameAb<GetSaveFileNameAld(SHBrowseForFolderAlPSHGetPathFromIDListA x^xCoTaskMemFree abCommDlgExtendedErrordxME>Q=bGetOpenFileNameAb<GetSaveFileNameAld(SHBrowseForFolderAlPSHGetPathFromIDListA x^xCoTaskMemFree abCommDlgExtendedErrordxME PSS S<`   H J( Fx B $ 0 L8 D D H ` Jh B   T Tp T H  h p > * < 8 H@ HP H` Hp ( H  (08@H PX`hpx          ( 0 "8 @ H ` " h p x B   "    B   "        ( H P h Bp x  B   B   "    "    B   B   "   ( B0 8 @ " H P X B` h p " x    B   B   B ,     0  @ P ` h x     B L N8 <       (08@ H X hx  B  ( L N  <p    ( 0 @ P`hpx  B      ( 0 H .`    "  0b8 X p B x    "$0P`x   / COMMONDIALOG.CLS v1.2 (Last updated 6/15/2000) Copyright 2000 by Frank Oquendo> Permission to use, copy, modify, and distribute this software< for any purpose and without fee is hereby granted, provided: that the above copyright notice appears in all copies and= that both that copyright notice and the limited warranty and8 restricted rights notice below appear in all supporting documentation.m B FRANK OQUENDO (THE AUTHOR) PROVIDES THIS PROGRAM "AS IS" AND WITHC ALL FAULTS. THE AUTHOR SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY'dO'@ OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. THE AUTHOR'; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE'' UNINTERRUPTED OR ERROR FREE.'E Use, duplication, or disclosure by the U.S. Government is subject to'= restrictions set forth in FAR 52.227-19 (Commercial Computer,"'> Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)A (Rights in Technical Data and Computer Software), as applicable.D CommonDialog.cls allows developers to access the Windows Open, Save; and Browse For Folder dialogs without the need for an OCX. Notes:M All code for this class module is publicly available througout various postsM at news://discussion.autodesk.com/autodesk.autocad.customization.vba as wellM as http://msdn.microsoft.com. I do not claim copyright or authorship on codeA presented in these posts, only on this compilation of that code. Dependencies:7 Use of this class module requires the following files:d$ 1. shell32.dll (SHBrowseForFolder)6 2. comdlg32.dll (GetOpenFileName and GetSaveFileName)h86X^p^^^^^^^^0^H^`^x^^^^^^^ ^8pP^h^^^^^^^p`]D(.d]D@]DX[]@p]@]@]@]@]@]@]@]@0]@H]@`]@x]@' $\'o 'mH 'hmh 'mP 'm8h] |$'X' ' R  2_1  R$$z' $z'm 'jmxX 'm` 'mH 'm0x 'm 'xm8 'm 'm 'mX 'm 'lm ' $\'exemXx 'm@ 'm(8& Displays the Browse For Folder dialog_3] ]  (  ( $f'   AnX  $z$'k` Ate 'i@ Displays the Open dialog.E A positive return value indicates success (the user selected a file)G A zero return indicates the user either cancelled or closed the dialog6 A negative return value indicates the API call failed]Ph  9|lpr 9l 9 9 9 9 9 9 9 9 9q $\'  eh AlWd z'kp 'ti`! Displays the Save/SaveAs dialog.E A positive return value indicates success (the user selected a file)G A zero return indicates the user either cancelled or closed the dialog6 A negative return value indicates the API call failedX]  9|wer 9l 9 9 9 9 9 9 9 9 9q $d'  Ad z'k 'ix ]] $z$' 'F '    0  +d   P R   $\ R $ R+hk` 'iPX" ! ! !$z$z  $ ' ! !$z$z $ '  !$'o ]`   'd'R d b R@  d $  R+ R$ G R+j  d  $ ' R 'R   'd  R@  R+k@ 'i0 ( ʸAttribute VB_Name = "clsCommonDialog" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacI False dCr@eatablPredecla IdCExposeTemplateDerivCustomiz E ' COMMONDIALOG.CLS v1.2 (La@st upd.d 6/15/20 00) opyright  by Frank OquendoPermission to use, c, modify, and disthis s0oftw fory purwithout fee here?gted, providedthat the above-notilappears @in alli esboth?@. .limi@ , y4re5c s Dbelow supportingdocu@mentatN.@FRANK OQUENDO (THE AUTHOR) PROVIDES THISAGRAM "AS IS" AND WITHALL FAU0LTS. E SPECIFICY DISCLAIMS@Y IMPLIE@AR TYAOF MERCHANTABILITY OR FITNESS FA PARTICULAR `USE. DO+NOT W ATOPER@ATION T'@9@73WI/BEAUNINTERRUPT&`PFREE%UMd uplic(, `I`MclosureAV7U. !GC rn!.!JsubjecGX 8 1`SVeN4h6F@52.227-19D (aerc` U@prASY (- R'BRags))aE D 2$ 7013(c)(1)h(iiBm(c!Technl DנE )j`Xp!F.@!^ows devQpe``taccessbfWiyOpen, SaJv`'bBre F*Foldefr`x!s es!+nex OCX@Notes:!#ABnde Bu`{pub7Bl@jvailbt hrougva@rious ts tnews://! (Type(*ql uctSize hwndOwnU+qhIn0stan lp`P8tsBQ1ӠOEnMax/1w31nIndex "  fTit_ ax[ Init xDir "tFla gs eOffsP Intege}T !/ DefPo "}M fnHooko lp2XEA'VB(g?S&h%R9Root @pszDisy7Q`z_ul?fnlParam;iImagh"O e0?`0 _SUCCѧ0BCoMAX`_PATH026^BIF_RETURNONLY FSDIRs q&H1ym`JW((ug鿾)/<r`'ault'em/ MQ @2J5F!STP0rWCW"(rErrorDescription As Str ing Private Sub Class_InitialiPze()F mvarMaxFileS0 = 2`048 60NXame0( b, 0LEndj{ublic Property Let }Dir(newVal $m&NYI^G/)c*],\DogTitle(By]a0c 6e .3H4@u8terW3AMÀDim tmp, iUIntegerC9Splitv, "|"@uA( "" pUserzFor@= LBound() Txo U&.(i) & Chr( NextCH = E 3(mF:>#lAPath + A q DefaultExt  _ ~gfa`@B?/c+e aNb J& S< 1E%%2!   1 `~Index$zJ_%Q% Fn D%lagsk @ Fa(..ɢ$$ELd#x 2 Pϼx,y  ot Last&t0Code_XFuncRBrows3hLoÎ' Displays the c QdFolder dB|'1mS6 * MAX_PATHa'retv, b"pBROWS`EINFOSbi.ul"BIF_RETURNONLYFSDIRSflpsz;{ d= SHc #P C (bi$)If dThenpCallp  FromIDList(, a4!Left(,%3p)4qpIfCoTaskMemFreeT4= )ShowOpenCiA C.' A Hpos ve1urn ue indics success (A"u selected a f0 zeroueir cancellclos1 negati 11APIfadS!+@+(ofROPENFILENAME):W 03.lpuctL`$NpstQz +69a]%y-a09v2lc0(no:leirW PQ nd!5S= <.(@> 0 _@Compo nentsEl~sV5 &X mDlg0ed3 ?U: =$a=Sav[,\/A.>>>>>0C>teSdB>@?>q QC>l >wp>?>,;n>> Wit`h ofn.lStructSize = Len(|)Flagshmvar xpstrDefExtBault LFilaF! Name "InitialDirM 'TitKrD0og &qt.eJnIndex7%e ;e anMax &S: %pEnd Ճr etval-Ge`tSave@If > 0 TheCall ComponentsElsbAhErrorCodAl mDlgt:eJd$)IfShow%@(! Fun0ctio"APu blic  Pars2s() As Varia nt Dim tmp,7(), i Integer min, max C )Split( , Chr(0)ĿBound( ):= UC` A_Y2Re)G( To )@(&?GCmG@A- F1h For`)=}a ACa$i` ) & "\"i + Nex`7A D#>c >-FPrivate SubW;OPENFILENAME` & Left$].lAg, _CsnIneOffset IcN) vbBinaryyare) <: @##B, !&'$" Path$/,l#*` <@ E>ftByV2> ing, Del` okeFndpos L^o ˊC= 1, , ,0T@]E0i0.Do Whށ`C tPreserve t@o id( nMid$(B@  z$b!J""p@ '+O A=Loop@ ) iaQ"P# Er" DxMEPS<S<SS Chr$(1)p The`o2a'`( the s naRaIT,# g s ]iA^@Lmlast memb`+if it is `ty_ai)(UBound(Dt)5A!(i)@""e i - 1Ga} If''Start parsoabrowrr%T= Ine(1,(, vbNullr߁bp '' re wemultip`s*ed!a5I 0Mid$*g,  $) & "\`AeA{'U + 1h1$RevQ$, -vbText `1e Do W~h! '&aTNoC"2#-& }, i =Tz?a i??UL8oop7-Lt= s}/1h%:=teay?u Func"qepDeHlim]dI@](pByReH7gG^,%T dJr) ! 'takeuse% d by np:BsL'splIo@p1 Jem, LhortenOFs'son*M`dy for removalMm 1Pmm8#E, 1 C3@;@usP.Q@>, LenDQE0,${ = 0c'PuQ@dummy `m|enR I don't kpnow 4check whe{@ han67es 04.= UStepG roughdiKay-#1sC@t둣`Lqs(M3 -F#ed(e0Ι'Inc߀RЕ ap `(w 0  4 t i>nQYUmileList(@iTempF)@ = strp(iBox)  'Also note where the n ext f will go in0t l G s + 1,Else :'IfW islselected for removal@, mark'p@ositioo be .]n"nished. 1zIndex M Dandthat 5wchanges blnC d+TrukE%IfNu+s8n x?y a  (0) > "" ThenAw'MovBsm toA permanentLpReDimJUBound( )Fg}0 To %&G7 V;A@]punmA0 boxG1.@nH" jCfr`finalwas hig@̀Valengtht oeXFasԇr>NG)t XF Sh~_ UFd #wF03@1.ClearbcSub Priva ComSdButtonAWUp_Click() yCYupU"" As Integed G3Offsetr BO)String BooDpc$P8 # 5F'RuQrough ~i@rom 0end \+Va , Loa its`haby one ˣjd i]`ib withba'aabwbc'!J v.aitne{_JvBfLC t -kFa Gaﬦa rK>&!MER ne|3 D}[?yw lY ?_   g qIvuo o o so go - k:aga~iC9V92ix2fireavailable 61 4o F2 44ed8Fa`4 idV= 0PS DpntiutrQ++s4?a!Loo$c1o  P7 = r1 IM^8vz : )C * %_ @EX # 3#)[ Fy @lDownՉOOu,/¹ 0PmOnOO O+()OOOOO 'Rai|seO2Bhp`4e!$14'3'620 Step -UU1! pRMWh a /@/12)7qed(6q &=s{2@UCase ) >  2$_OAu1hDa= 2=Ah$ 50N__t ;'~I,q_{Msgu{,0#ab<  e<^atRa 11abbMinbbbeq\bb@h 'bK^3bЧ(bbb$Lb%%""P\8Ap.+[- 5s S::b<ߩbBS@/)/1 b;U7/66%bunҫymbsDQ"Sf Goi I4.InPitDiTDraw<.Get2ble("dwgprefix;+ t£s (*.lst)| "lagsjOFN_OVERWRITEPRpOMPTDisa@C_s 0Show"Enn#Y(N]ul`'@3a"c Ac@s proHvid@vby Ae us@ tƎ'5 folloA*, e @@h,# > Chr$(1)76*@.G![CleaDARet4%(0)AlStr Me.Caption ":includep - [ef"]=@NB@O:on! ߿}_M V_Mgc_M_MZ# !Oa?m_?_M_M&)J_M_M_Me_M_MDŽ _MA_Mox&`=YT_M <_MA7_M_Mk. _M_M CXMFILEMUSTEXIS?M?M1M!1!?MsSj8?Mle e?M?M?MC?M?Mp?M X?MmR@cN3$wGLs|L& LndL,L .!RofqAs?Q?Qs0rqыdbox1n/P/P.Po:χo:o:o:?χQ"o:χ‡ Or 1PATH;;DefaultE= "x7-rp~(w&S"/B/Boo#_9=Kooooo2ong&/Bmp /Ba/Bn 6 ??" & strIOFileNamex"]" End If  Sub Private 0 CommandButtonOK_Click()ArCall Save('The intent below is that c.ing apps n check for OK e fail i@f not.MAutoCAD.Appyation.ActiveDocumd.SetVariable "users2", "OKUnload MOqCancel s U9Form_TerminDim iMsgBoxResponse As bIgerpIf blnListChanged = True n &= .(" ha.vbCrLf_"Do y ou wahto\ s@ngil@ first?P vbYesNoUB@gB d"āUAA(2)2 ΌdDisssƛ Add.EnA J0FalsRePmove M UBp$ Down SortPlus Min New`Ope(? n{Aa nlrA<_AEAf];AA@4@8@T@l@a;h1*@|OK ?c ?ReadInaٮ"ValidaLinStr7Fvnt'DifferExssABoolea Re f st(0 To 0)iH '@ e `old-styUns le i = FHree!(0i = 0 fMid( spec,i Rev[".`-1, v bT` P5pare)tOn Err0|Go `)1b'|prPput Sh@dD 31djWh Not EOF(!1In#,aRdefaultІwfdoesn'ttvPU1mLeft(Rig htE, Len)), 1) <> \|⚶ ?k4Ey'F0lag 1rn0en,D&Case))Lp W553 ~  li[i/y p ?p q4!EaHch In=sԉ#z8; Close iOutFileblnListChanged = FalslEnd Sub @  T P @@ @0 @ @ @  H 8h`d xj  h $ (d  !p 8#8`x@!)d !XX @T @R @P (!"(@ @>  "0"< H""h": X""$)p( @ " @ ) #x'rx'x @t @d x'T @R 8$H$P `$p$N $$L $$J %%D @4 @$ %@  @ @sers4 = User tip for bottom of box]]] !0!2.(users1 (%4'users2 (%4'users3 (%4',users4 (%4'.](.6Files to include - [ ] 6(: , 6!<(: . 6!>!@(:' 6B@B' '.6users1  (B@DoIAttribute VB_Name = "modFileSelect" Option Explicit Pub$ strIOCRpAs Sng >:spec :Extens[!|Temp # 'Requires AutoCAD setvar/gs!users1xinit ial l5 fY| n2WINAPI CommDog m3Label for top of box4U9 tipbottomaSub () DibjThisDr awingtAcadDocumenDž@T=? Set o=P.Apa.Acti,ve !K= .GetVariable("_"9@Ɗ 2 < 3 B 4 efrmGkdvFoIGT = New x.CaCH include @- [" && "]AtKIO@]c+Fr`Txip.FipQShowJ `Noth YM.D D,k@ End e X@ @ ) %%% %!) &! 'x&&x'd&&j ' 'h x''@d @ : T @R h'p'8    8 "@ 5!H"PX @` *hp  , (8  X   $ 8    8H  ,hH  , ` $,h     $;" x (H 3P `B h (x . ,   ( "0"P p x"    " (08@HP X D` ,  "0.` .* ,  &X  <   \H  &     F &8  8 P " 3X b h  x  "  ( *@ p VX  *.* (@` (x       " @8 .x *              ( 0 H  `  3h x (     "        * 0 Z P *p "0 *  *   0  0H P  h x          " @ "0H *p                8 3@Ph  H" " 4h"x "$px% %  $@***x* *(+ h*    *(@@}) `p     3%%  % % 4% & H& $"#hX& `& $***+ 0&0+ x&    *@X@}) x     3&&  & & 4&' ' $"  @P *h  xr@P"" ,$ (    0 2x & @ ." H"  @ *8h"  "r@#### ,$        2 & p 3(."8`" "(0 @8 x(x  ,$)`($M(     2 & ." 0"8 N0)"3) @"H "  (r@8"$ 8$ H$ X$ h$ ( 8 x$ $ $ $ $ $ $"($ $ $ $ % H X % (% 8% H% X% h%0$"HPX` h  4 (?  <0 $;p  0'  4 $E   V(!   "( @  X  h  8' @' x       <!  X'kx'h'P' "x  0@P `h #pbedded ObjectForms.Frame.19qmultiple entries %B5TahomapdButtonMoveUpG 4H  }CqTipsR KQ HTahoma0( 2,LabelTip Move entries downDowP  i) H ) X ) h 9) x Y)  y)  )  )  ) !8"CommandButtonSortMinuseGSort selection in descending orderm ( 24ListBox1O )  ))  I)  i)  Y)) x yq)  r)  $`  !) (sDefExt  1t)  Qu)  qv)  w)  |(q$ L$ X$4 HT$< LT$ 8T$, <T$0 @T$ T$ LT$$\$ \$( q$,(^ q<( lqtlt (|^q\!v! "#\q/\ v! 3vM N  ','L!  <6L, "#v *#\$*FL%,/\5L,dt$\L, 0 0   ,T$ T`Pt$ /P5T t$ ,(@%t$ T<t$ pPt$ D>P!v! "#Pq/P v! "#v *#P$*FT%,/P5T@,dtPT0   Plx&$' (x$ xl4P@''$:TNDD*#t*Fd^pz/t6dD$kzhxl$ tdD$\(x! x 8%xx! x 8%xx! x 8%xx! x 8%xx! x 8%xx! x 8%xx! x 8%xx! x 8%xx! x 8%xx! x 8%xx! x 8%xx! x 8%xers1 users2 users3 users4Yl|LabelTipCaptionY8#ҋB `ҋB ` .  ^The selected list has files that do not match *   ^This may cause the current application to fail. Wrong List TypeVBE6.DLL   H   h  x   ;   k   i      B (  S H   h#=h8+3qG?,2qL dwgprefix>!E{w{u!= &cۮ?|L7Xh{ _ AcadDocument @+=h8+3q<~5h.O#Bgk*=h8+3qj %PG8d-!=h8+3qClassPgv3+3o VBInternal  1 ,,LL, $,0<H   , GetOpenFileName comdlg32.dll GetOpenFileNameA \e3`X%LNju iGetSaveFileName GetSaveFileNameA i (SHBrowseForFolder shell32.dll  b+4kPoH ]`]x]]]]'=Put a dummy element in strTempFileList since I don't know how%to check whether it has any elements.( 4'And put them in the list box'd'd'dMove them to the permanent list a  X!  X% @H $4 +  'dp 'k`X$  ` 6@ Kv kz]@kz  kzt;v JtMP@@ @  :0]@6@  ltv *1t 4Ev JtMP@@ @   M0@  @6@ =pbK"tMP@ #=/kx ltkxv; kxpx 4kz=kz=kb<'' :PN  0*#*F@ /6@ 4k'' :P)N  0-v *#*#.*#*#+*#*#,*F@ 2 6@ ,dt4 @  d(H pz5Hv kz]@vhv@Mhkz hw@2kz= 4<d,@hH`DHPX8< t h p l xd`? 3pbK"tMP SHBrowseForFolderA !!HSHGetPathFromIDList SHGetPathFromIDListA !"h CoTaskMemFree ole32.dll CoTaskMemFree    Y##CommDlgExtendedError CommDlgExtendedError i$Class_InitializeInitDir DialogTitleFilterPath DefaultExtFileName FileTitle Fi 4h   $ +4 4 X(Z  4 G 4'j  X,d4 XB@kox(Move up]]]]]P 4 4#Run through the items from 0 to endIf an item is selected,and "" in the new list.$Else put straight into the new list.  X!  X%   $ $4  +  +d $4 + +kXdP $4 + +k kRun through againIf an item is not selected,9put it into the first available position in the new list.  X!  X%'   $a  '  $4   +   +k   $ +4 4 X(Z  XoP]] ]8]P] 4 4#Run through the items from 0 to endIf an item is selected,and "" in the new list.$Else put straight into the new list.  X!   X%  X!  $ $4  +  +d` $4 + +k0d( $4 + +kkRun through againIf an item is not selected,9put it into the first available position in the new list.  X!   X%'   $a  ' $4   +   +k   $ +4p 4 X(Z   $k(o  A@r]o] ' all the following, else nothing.th 'A:Uses class module CommonDialog to get a list of filenames.#Returns a string array of filenameslename]AV dwgprefix %, d(tList Files (*.lst)|*.lst d(v d dB@~  dB@ ]]@ #=/kx ltkxv; kxpxkz=v kz]@vdvdkz dwkz=kz=kb%<'' :PN  0*#*F@ /6@ vi,0dt @  0   TX\`p L @ H D P<TOt;v JtMP@@ @  :0]@6@  ltv *1tEv JtMP@@ @   M0@  @6@ 3pbK"tMP@ #=/kx ltkxv; kxpxkz=v kz]@vdvdkz dwkz=kz=kb%<'' :PN  0*#*F@ /6@ vi,0dt @  0 o A]]$'.  .@ 6 4 . 6 .Vox  X(*.rF $  lse no,If a file name was provided by the user thent itas all the following, else nothing.e $  ew filk8 4 X(Zise k h ' &Start parsing the browse return stringkH d!'h h  $ 'h'l h  $' h|Mq@U"  0List Files (*.lst)|*.lstkɀmM杍xC_ؙns@xFKqJ2xD=j]Ø:C6C:5k &cI%zwCommandButtonCancelCommandButtonOpenCommandButtonSaveAsCommandButtonSaveCommandButtonNewCommandButtonOKu6^+FQe .  CommandButtonNew_ClickCommandButtonOpen_ClickCommandButtonSlterIndexFlags MaxFileSize LastErrorBrowseShowOpenShowSaveParseFileNames GetComponentsSplit 00t 48<@DHLPd  _  |  `   w (  h HJ­C/ATXæN7+wx|It2J 'E5-IVde嗓$CwJ"Vѩ2xK=] 7U~qeLt8$ Q\5Ip̻dďYl  $ 'h b h  $' l h bA@ h  $ \'l h$  er > "k l h  $  bA@0-168AAAAAA (. (. (. (. ]]h]h ] ] ' b'  4 4 ' d!'( o o0 o o opP :Uses class module CommonDialog to get a list of filenames.#Returns a string array of filenames] dwgprefix %, d(tList Files (*.lst)|*.lst d(v](  d(x |]9Uses class module CommonDialog to show a save dialog box.] ] dwgprefix %, d(tList Files (*.lst)|*.lst d(v dB@ d!'A A@rpH  X%   4 $4' $4 +4  +4k kx  ` 4 X(Z'd]]]' b '  4 4  X%   4 $4' $4 +4  +4'k8  k 'dAA 4 X(Z`]@'dStep through list displayed Put this file into the temp listov &Increase the size of the temp list and'If this file isn't selected for removal 6Also note where the next file will go in the temp list and note that there were changesov VIf this file is selected for removal, mark this position to be selected when finished.@If there were files not marked for removal they are in temp list\If the marker for final selection was higher than the length of the list, mark the last filePLower its index by one and note that list changed if that index is within boundsTRaise its index by one and note that list has changed if that index is within bounds XB@f & "D  d(xfrmFk]PX d blnLiFiles to include - [ ] (L y],If a file name was provided by the user thenDrawin 4hde - [ d,T> List has changed. ($Do you want to save this list first? List not saved$$'st witk8  GAj  List has changed. ($Do you want to save this list first? List not saved$$'Drawin   (! ,If a file name was provided by the user then all the following, else nothing. $  Files to