Standard Jet DBЕnb` ТUщЉgr@?œ~Ÿџ…š1ХyКэ0МпЬcйэЧŸFћŠМN†ћь7]DœњЦ^(цЖŠ`T”{6uпБwєCЯЏБ34ay[’Е|*ё|™˜§OJ”l>`&_•ја‰$…gЦ'DвюЯeэџЧFЁx эщ-ш{іNџџ 뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o   뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o   T뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o  єСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVCФS  ф ф  фџ ф ф  ф  ф2џcџ ф  фct  ф  фjџџ  фџ  фO  ф  ф  ф  фџџIdParentIdNameType DateCreate DateUpdateOwnerFlagsDatabaseConnect ForeignName RmtInfoShort RmtInfoLongLvLvPropLvModuleLvExtraџџsџџeџџtџџnџџiџџџџџџџ џџЙџџџџ`џџџџPџџџџџџџџP џџџџџџџџId ParentIdName        џџg everything above it down 1џџџџ˜ В!R'€и' 2bl clicked row in lstAvailable JЄЄ$ ќ В(Vи4 more than 2048 causes errorџџџџˆ  lџџи ФЎ$ Ц'ФelџџА ZъџџџџъџџџџъџџџџъџџџџъџџџџъџџџџZъџџџџъџџџџъџџџџZъџџџџЄ'Ъ Ш$ к'ЬЎAccess Databases мЎ*.mdb'Ю Ю мЎ Access Add-In мЎ*.mda'Ю„ўЎSelect Database'аЏ'ви true = open, false = save asЎ Ъ Ь Ю д ж и а в$о' d dЎ•x d' ЦaџџH Ш' Ци  restore initial valuehџџ fџџ ш0[ъџџџџ[ъџџџџџџџџј џџ!$$т'М------и* WIN32 SDK Constants and Typesи@*---------------------------------------------------------------[ъџџџџ[ъџџџџ[ъџџџџ[ъџџџџ[ъџџџџ[ъџџџџmџџи и'Public Const BIF_RETURNONLYFSDIRS = &H1и(Public Const BIF_DONTGOBELOWDOMAIN = &H2и!Public Const BIF_STATUSTEXT = &H4и(Public Const BIF_RETURNFSANCESTORS = &H8и+Public Const BIF_BROWSEFORCќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVCп<S   ф  ф2џ ф фObjectIdSIDACM FInheritableџџџџџџџџџџфџџџџџџbџџc џџџџObjectIdџџgruo,guof|`osmf€€€џџФ$ov}vda€€џџ›$ vifmmaur{vfgrugrmdfu€€€џџО$grmdfu€€€џџО$DФрwish р€тўbЃОƒ"с_/:d&pљІ2(O‚1`L#BЦД9 ‡0&"M#$ЖDiрm apiVce` Ÿ€,сW„ !XIDЅOёstr a!+€intOffs@-  Integerсa'!0Ё.properties Wf/т~e) +.Фб=7ц7С Š.чЭРђPlМeaђƒAWCE:Рђ;- хб=RЧС a'SјhowBуЈ~D1Qг= >M(ъ €< xpaceр$(512ВWБџ€ ‘J”AUG'RЙQ IfQ$p3nA 'Tr"of Г/nu`Œchar s endЕ=pPQCгg= In (—, Chr$(d0)" V+P)L0eft$К—- 1'вOmemodryвEca <€CrЬ PY#CoЉR–aСElseCЙ"УтБ‚If q…5QT3__SRP_2rU€€€€~}  ЉQ9 с™ љ Y џџџџџџџџџџџџ`рl qXџCdџ 8џќ"qhџ,Xџџџ^qџ<џXџ lџqPџўіџѕ 1Lџ)lLџџ4lџlPџ^qџ C:\ VBA332.DLL yџџџџj hFщ;|фЭ‡Њ? \ yџџџџ… € *.*  ;" " yџџџџwїъЭЌ–џџџџ ЇљWё-е™'˜ЙDetaild ЙlblProductsd ЙlblProductsMentionedh Й cmdRighth Й cmdLeftd Й Label1nЙlstAvailablenЙlstChosenmЙ txtDirh ЙcmdGetDirVCS фџ ф ф ф  фџ  фИџ  фџ  ф џszRelationshipgrbitccolumnicolumnszObjectszColumnszReferencedObjectszReferencedColumnџџџџрџџџџЙџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџЙџџџџˆџџ џџџџџџџџџџџџszObjectszReferencedObjectszRelationshipџџЪОџџџџџџџџџџџџџџџџџџџџfrmExampleautoexecShell Browse For Folder :9џџџџЪОџџџџџџџџџџџџџџџџџџџџfrmExampleautoexecShell Browse For Folder :9џџџџџџџџџџџџџџџџџџџџџџџџџџџџ22џџџџџџџџ џџџџ џџџџџџџџfrmExample0-10џџџџџџџџџџџџџџџџџџџџџџџџџџџџ {іqьgт]иSЮIФ?К5џџo{Шo{‹Nж”_VBA_MODULEЭ@Жx(џџSHBrowseForFolderAT<џџџџџџSHGetPathFromIDListAџџџџhџџpCoTaskMemFreeџџџџџџ`џџ:щCЁRЂжœ˜ЇљWё-е™'9щCЁRЂжœ˜џџџџџџџџџџџџxТв" џџџџKцBцџџŠ9щCЁRЂжœ˜:щCЁRЂжœ˜џџю"КК†; ˆ8Œ<p@‚D†H„LzP~TџџџџXџџџџпџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ [LџџџџS џџџџSџџџџLџџџџ”џџџџџџџџLџџџџџџџџ”џџџџš џџџџ>ЂџџџџLџџџџ<4џџ<8џџ<<џџ<џџџџџџN0{0457F9A7-2DF1-11D5-9927-000000000000}ч4D= $*\Rffff*243d4435ee*\R1*#85*\R1*#55*\R0*#e*\R1*#50*\R0*#c*\R1*#52$*\Rffff*1c3d4434f3*\R1*#53п @0ўџџџџџџџџџ(џџџџџџџџџџџџџџ$Dˆ`џџџџџџџџјlџkџџџџџџџџ„ ”џџџџ $ƒўџџџџџџџ џџџџџџџџџџџџџџ $‚  џџџџўџџџаџџўџџџџџџџџџџџ $ƒўџџџџџџџџџџџџџџџџџџџџџ $ $ $ $$$$$$$ƒўџџџџџџџpџџџџџџџџџџџџџџ‚  џџџџўџџџџџўџџџџџџџџџџџƒўџџџџџџџШџџџџџџџџџџџџџџ $ $ $ $ $ $ј  а  $ Зјіт@Зјіт@€TablesMSysRelationships<+%џ Зјіт@Зјіт@€TablesMSysQueries6+%џ Зјіт@Зјіт@€TablesMSysObjects6+%џ ўіт@‰Шўіт@TablesMSN €@@ @€@@ @guof|`osmfvifmmaur{vfgrugrmdfu`xwrf|fbd`w`a`vfvgruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfvov}v`bfvov}vordxmfvov}vordxmfvXov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsv`bbfvvm`}rxw ov}vdavxoo`u}jpgrxvfudfgjpfd DЄ 'D $Ў* ^Ў*• & " $Ў* ^Ў*•аІ $Ў^ЎЬe &Ў*.*$ ~' $ˆlџџИ &Ў*.*$ ~' $ $Ў^B $e DЄ 'D & $ D+ >il JЎ;" $Ў"' Jc ~' $БџџиA@ЖџџџџРџџџџџџџџ j џџ!(vџџџџ(џџџџ0џџџџ0Хџџ@Zъџџџџи –023=Babc;e g h•i†j :kF# РРРЮЊ„Х\іт@нFilesчArialћ[Event Procedure]џd2§hgh€ф MS Sans Serif§m45§n2§w2§˜`Š%œ€пDetailџn03Waаbьc€dpм lstAvailableо Value Listш[Event Procedure]ўd5]7`Сa„bchd eМм lblProductsн Available§n03W8a,bьcdplм lstChosenо Value Listш[Event Procedure]ўd5]7`a„bchd eМмlblProductsMentionedнChosen§h1U`laP bXcWghXiмcmdRightн>п[Event Procedure]§h1U`laLbXcWghXiмcmdLeftн<п[Event Procedure]§h1U`ŒahbtcаiмcmdPLAYнPLAY§m7U`шa№b chkмtxtDirўd5U`аa,bАc№мLabel1н Directory:§h1U`\a№bncniм cmdGetDirнCommand6п[Event Procedure]уш(€€€€€€€€€€€€€РРРџРРРџџџРРРџџџџџкккккккк­­­­­­­­ кк33330­­ 3333 кА33330­ ћ3333 ПА ћћћћ ккПППП ­­ ћ кк ­­­­ кккккка ­­­­ ­ ккккакк­­­­­­­­эH€€€€€€€€€€€€РРРџРРРџџџРРРџџџџџ§o{!џџџџџџџџџџƒўџџџџџџџ@џџџџџџџџџџџџџџџџџџ‚ Ќџџџџўџџџ˜џџўџџџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџƒўџџџџџџџЈџџџџџџџџџџџџџџџџџџ‚ Ќџџџџўџџџјџџўџџџџџџџџџџџџџџџƒўџџџџџџџ џџџџџџџџџџџџџџџџџџ‚ Ќџџџџўџџџ џџўџџџџџџџџџџџџџџџƒўџџџџџџџ џџџџџџџџџџџџџџџџџџP„Pџџџџnџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџ‚ Ќџџџџўџџџџџўџџџџџџџџџџџџџџџƒўџџџџџџџ џџџџџџџџџџџџџџџџџџƒўџџџџџџџPџџџџџџџџџџџџџџh($‚ Ќџџџџўџџџ€џџўџџџџџџџџџџџˆ($($P„d`xџџџџџџџџџƒўџџџџџџџА џџџџџџџџџџџџџџџџџџ‚ ЌџџџџўџџџИ џџўџџџџџџџџџџџџџџџƒўџџџџџџџАџџџџџџџџџџџџџџџџџџ,X8`џџџџџџџџ˜0џk` џџd "МРYƒLџџџџ џџџџ€€џџџџiƒўџџџџџџџџџ џџџџџџ џџџџƒўџџџџџџџˆџџџџџџџџџџџџџџџџџџP„”џџџџvџџџџџџџџџP„dџџџџpџџџџџ P„Lрlџџџџџџџџџџџџџ$тМЖџџџџџџџџџџ@ўџџџџџxџџџџџ џџџџ@ўџџџџџhџџџ џџ џџџџџџџџМЖџџџџhР@–023=Babc;e g h•i†jЕ;kЬ$ РРРЮЊ„Х\іт@нFilesчArialћ[Event Procedure]џd2§hgh€ф MS Sans Serif§m45§n2§w2§˜`Š%œ€пDetailџn03W8aаbьcgdЬм lstAvailableо Value Listш[Event Procedure]ўd5]7`Сa„bgchd eМм lblProductsн Available§n03W8a,bьcgdЬlм lstChosenо Value Listш[Event Procedure]ўd5]7`a„bgchd eМмlblProductsMentionedнChosen§h1U`œaШ bXcWghXiмcmdRightн>п[Event Procedure]§h1U`œaФbXcWghXiмcmdLeftн<п[Event Procedure]§m7U`шa№b c,kмtxtDirўd5U7`аa,bАc№d eМмLabel1н Directory:§h1U`\a№bncniм cmdGetDirнCommand6п[Event Procedure]уш(€€€€€€€€€€€€€РРРџРРРџџџРРРџџџџџкккккккк­­­­­­­­ кк33330­­ 3333 кА33330­ ћ3333 ПА ћћћћ K @€ @€        €€€€€€џ џџ џџџџ@ўџˆ`џџџ џџ џџџџ@ўџ Pџџџ џџ џџџџ@ўџџџџџLџџџџџ џџџџ@ўџ`Jџџџџџ џџџџx81џџџџџџ@ўџџџџџHџџџџ џџџџИ`1џџџџџџ@ўџџџџџ8џџџ џџ џџ@ўџџџџџ(џџџ џџ џџџџџџ`6ўџџџџџŠ џџџџџџŽ џџ@ўџџџџџŽ џџаџџџџŠ аџџџџ0џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШџџџџџџџџИоќџџџџ џџˆџџџџh@ўџ@hџџџ џџ X@ўџџџџџdџџџџџ @ўџ `џџџџџ џџ@ўџџџџџ\џџџ џџ @ўџаLџџџ џџ @ўџш<џџџ џџ  H `џџџџџџџџx$Hџkџџџџџџџџ€ a”@ўџџџџџ,џџџ џџ џџ@ўџџџџџџџџ џџ @ўџџџџџџџџџџ џџџџџџџџШџџџџ џџџџ( џџџџИ,ќџџџџџџ@ўџџџџџlџџџ џџ џџџџ@ўџџџџџhџџџџџ  @ўџ"fџџџџџ Иџџџџаџџџџ˜ џџџџ  џџџџаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџ"€ i€ @ўџ8"dџџџџ џџџџ(""iџџџџџџP""kџџџџџџ@ўџ`"bџџџџџїъЭЌ–џџџџ ЇљWё-е™'˜ЙDetaild ЙlblProductsd ЙlblProductsMentionedh Й cmdRighth Й cmdLeftd Й Label1nЙlstAvailablenЙlstChosenmЙ txtDirh ЙcmdGetDir {іqьgт]иSЮIФ?ODULESЖџџxџџSHBrowseForFolderA<SHGetPathFromIDListAh(CoTaskMemFreeџџџџџџџџџџџџџџџџџџџџxVњ€џџџџKцu€@ $ь @€ @€ @€ @€ @€ @€ @€222222222 222222222222 2!2"2#2$ 2% 2& 2' 2( 2) 2*€5€5€5€2+€2,€5€5 €5 €5 €5 €5 €2-€5€5€5€5€5222222 2 2 2 222HH,nА„н4P:Pѓ`3PPP=ђ%1„н4P;Єѓ`3PXX;ђ%1„н4P<јѓ`3P``5ђ%1„н4P=Lє`3P88)–П „н4P> є`3PhhЊП „н4P?єє`3Ppp*ЊП „н4P@Hѕ`3P€€ ЈЌњ„н4PAœѕ`3Pˆˆдљ„н4PB№ѕ`3P?ђ%1„н4PCDі`3P˜˜0О>„н4PD˜і`3P  в>„н4PEьі`3PЈЈЈЌњ„н4PF@ї`3PАА)ЈЌњ„н4PG”ї`3PИИ–џ„н4PHшї`3P---------------------------------------------------------и* Method: GetFolderи;* Description: Display a dialog allowing the user to seletи* a folderи/* Parameters: lngOwner - Defaults to no ownerи:* Returns: String - The folder name that was selectedи=* Comments: Set lngOwner to the hWnd of the form that youи-* wish to own the browse dialogи@*---------------------------------------------------------------яЅ ZъˆZъЈZъРZъиZъ№и'Set the properties of the folder dialog ф ц(ђЎPlease select a folder: ц(є ј ц(іи!Show the Browse For Folder dialog ц$њ'ьЄ$ ќ'ю ьЧ юЧ$ў'ъr: ъ•и'Trim off the null chars ending the path юЄ$ }'№orFo ю №Є $ о'тиFree memory allocated for PIDL = S ьA@omIDLiaџџЎ'тhџџfџџџџџџјџџџџ RR џџџџџџџџџџџџџџџџџџџџŸДAttribute VB_Name = "Shell Brows e For lder" ' *-;„ WIN32 SDK Constants and Typ esBdI TBROWSEINFO hOwner As LongpidlRootŠ szDi`splay‚‡€S€‘ƒlpszTitle ulFlags‰"lpf‚nŠParam‰`iImag$ƒFE„‚ВPublicƒŽ BIF_RETURNONLY@FSDIRS€г& H1•ŽDONTGOBELOWD OMAIN2STATUSTE4XTТ4бFS€ANCESTOD8‘ C[FORCO@MPUTERB1000Z PRIN 2 € П™'*ˆ™Functionр Decl@bС?š№-- Ф_У€ЫLSHаРЯFoЯ @Lib "sСж32.dll" A0liasРл A" (lpУInf6oШВ)‡‘WGetPathFro€mIDListйŽ!ByVal ‘Ad&, „sz "$7Sub VTaskMemFreЂeУole…(D zvЅ)џŠ_Ž 1>M€ethod:  C/сI ?scrip!?D| a dialog allowing t he usр„toР seletЂD qФa fb:B"{eterslng…УŒ- faul@›a no oЁ"RрeturnТ уˆ0 - T у nAБthat w D!Сcted‚CommeІ S8et Fр ЁhW @‰of"formу youта€и€р€ш€№€ј€€ џџџџ€ .€ .8€ (h€ .€ 2Р€ 0ј€ џџџџ€ F(€ (p€ F˜H€ рH€ш(€ №€ џџџџ€ Fј€ @€ B`€ Ј€ 6Ш€ @€ D@€ 4ˆ€ FРB… €€ €(€0€8€ џџџџ€ .@ p$€ Ј€ џџџџ€ (И,р№)€ џџџџ € . %Ph€ $€ ЈИРШа€ џџџџ€ џџџџ€ џџџџ€ џџџџџџџџшХџџxшяЅZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџи'Set the properties of the folder dialog ф ц(ђxЎPlease select a folder: ц(єar ј ц(іbjи!Show the Browse For Folder dialog ц$њ'ьЄ$ ќ'ю ьЧ юЧ$ў'ъt ъ•и'Trim off the null chars ending the pathиand display the returned folder юЄ$ }'№p ю №Є $ о'тиFree memory allocated for PIDL ьA@aџџЎ'тhџџfџџји@*---------------------------------------------------------------и* WIN32 SDK Constants and Typesи@*---------------------------------------------------------------[ъ[ъ0[ъH[ъ`[ъx[ъ[ъЈ[ъРmџџји'Public Const BIF_RETURNONLYFSDIRS = &H1и(Public Const BIF_DONTGOBELOWDOMAIN = &H2и!Public Const BIF_STATUSTEXT = &H4и(Public Const BIF_RETURNFSANCESTORS = &H8и+Public Const BIF_BROWSEFORCOMPUTER = &H1000и*Public Const BIF_BROWSEFORPRINTніŒѓVЂжœ˜џџџџџџџџџџџџxТ˜#џџџџKцBцџџŠніŒѓVЂжœ˜оіŒѓVЂжœ˜џџД#ККh< ~8Œ<ˆ@‚D„H†LzPџџџџTpXџџџџпџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ [LџџџџS џџџџSџџџџš џџџџLџџџџLџџџџ”џџџџџџџџLџџџџџџџџ>Ђџџџџ”џџџџ<4џџ<8џџ<<џџ<џџџџџџN0{0457F9A7-2DF1-11D5-9927-000000000000}56D= "*\Rffff*e3d4436b6$*\Rffff*113d4436cb*\R1*#85*\R1*#53*\R1*#55*\R0*#e*\R1*#50*\R0*#c*\R1*#52п Јјўџџџџџџџџџ(џџџџџџџџџџџџџџ$Dˆ`џџџџџџџџаlџkџџџџџџџџ„ ”џџџџ $ƒўџџџџџџџ џџџџџџџџџџџџџџ $‚  џџџџўџџџаџџўџџџџџџџџџџџ $ƒўџџџџџџџџџџџџџџџџџџџџџ $ $ $ $$$$$$$ƒўџџџџџџџpџџџџџџџџџџџџџџ‚  џџџџўџџџџџўџџџџџџџџџџџƒўџџџџџџџШџџџџџџџџџџџџџџ $ $ $ $ $ $ј  а  $ $ $ $ $$$ƒўџџџџџџџџџџџџџџџџџџџџџ‚  џџџџўџџџџџўџџџџџџџџџџџƒўџџџџџџџ№џџџџџџџџџџџџџџ$$$ƒўџџџџџџџџџџџџџџџџџџџџџџџџџL$L$ƒўџџџџџџџ8џџџџџџџџџџџџџџ4@$$ $ $ $ $ƒўџџџџџџџаџџџџџџџџџs$(lstSongs.ListIndex + 1)и? prg$ = "C:\Program Files\Windows Media Player\mplayer2.exe"џџџџˆ` lџџ  Є$ > ЎB@ ЎB@ИT\mџџџџ` ЎB@К ЎB@Р.FileNЄ$ > Ў(М М' &ЎC:\'МaPla МЎ\'МџџџџР МЄ$ (Ў\•hџџџџH џџџџX џџџџ` иMsgBox t$ ' testoџџџџИ ї Dі € ”‹и, remove current selectionN DЄ $, D+,и2% by moving everything above it down 1џџџџ˜ В!R'€и' 2bl clicked row in lstAvailable JЄЄ$ ќ В(Vи4 more than 2048 causes errorџџџџˆ  lџџи ФЎ$ Ц'ФelџџА ZъџџџџъџџџџъџџџџъџџџџъџџџџъџџџџZъџџџџъџџџџъџџџџZъџџџџЄ'Ъ Ш$ к'ЬЎAccess Databases м–023=Babc;e g h•i†jЕ;kЬ$ РРРЮЊ„Х\іт@нFilesчArialћ[Event Procedure]џd2§hgh€ф MS Sans Serif§m45§n2§w2§˜`Š%œ€пDetailџn03Waаbьc€dpм lstAvailableо Value Listш[Event Procedure]ўd5]7`Сa„bchd eМм lblProductsн Available§n03W8a,bьcdplм lstChosenо Value Listш[Event Procedure]ўd5]7`a„bchd eМмlblProductsMentionedнChosen§h1U`laP bXcWghXiмcmdRightн>п[Event Procedure]§h1U`laLbXcWghXiмcmdLeftн<п[Event Procedure]§h1U`ŒahbtcаiмcmdPLAYнPLAY§m7U`шa№b chkмtxtDirўd5U`аa,bАc№мLabel1н Directory:§h1U`\a№bncniм cmdGetDirнCommand6п[Event Procedure]уш(€€€€€€€€€€€€€РРРџРРРџџџРРРџџџџџкккккккк­­­­­­­­ кк33330­­ 3333 кА33330­ ћ3333 ПА ћћћћ ккПППП ­­ ћ кк ­­­­ кккккка ­­­­ ­ ккккакк­­­­­­­­эH€€€€€€€€€€€€РРРџРРРџџџРРРџџџџџ§ИЩQв™]х­u=Бi-ђЊe)ь;Є € В%‚ И(Vhџџ(lџџ Zъаи play list arrayи0Private Sub lstSongs_DblClick(Cancel As Integer)и Dim tmp$, prg$, rи) tmp$ = Songs$(lstSongs.ListIndex + 1)и? prg$ = "C:\Program Files\Windows Media Player\mplayer2.exe"џџџџˆ` lџџ  Є$ > ЎB@ ЎB@ИT\mџџџџ` ЎB@К ЎB@Р.FileNЄ$ > Ў(М М' &ЎC:\'МaPla МЎ\'МџџџџР МЄ$ (Ў\•hџџџџH џџџџX џџџџ` иMsgBox t$ ' testoџџџџИ ї Dі € ”‹и, remove current selectionN DЄ $, D+,и2% by moving everything above it down 1џўіт@‰Шўіт@MSysModules2----------+ џ‰Шўіт@‰Шўіт@MSysModules,,,,,,,,,,* џ €€€оЊ­іт@fйD|2Kт@autoexec‚@35)))))))))' џ €€€'H3Kт@3Lу3Kт@Shell Browse For Folder88888888886 џ€€€Я8„+іт@ЌЩЅ4Kт@frmExample++++++++++) џ€ €([ќіт@([ќіт@UserDefined,,,,,,,,,,* џ€ €([ќіт@Љƒњ2Kт@SummaryInfot@4888,,,,,,,* џ@€ €œЖ Ћіт@кё`А4Kт@AccessLayout*@4@3E99-------+ џ@€Ќџіт@Ќџіт@SysRel''''''''''% џ€Ќџіт@Ќџіт@Scripts((((((((((& џ€Ќџіт@Ќџіт@Reports((((((((((& џ€Ќџіт@Ќџіт@Modules((((((((((& џ€‰Шўіт@‰Шўіт@Forms&&&&&&&&&&$ џЗјіт@Зјіт@€MSysRelationships22222222220 џЗјіт@Зјіт@€MSysQueries,,,,,,,,,,* џЗјіт@Зјіт@€MSysACEs))))))))))' џЗјіт@Зјіт@€MSysObjects,,,,,,,,,,* џЗјіт@QУ13Kт@€MSysDb@4333'''''''% џ@Зјіт@Зјіт@€Relationships.........., џЗјіт@Зјіт@€Databases**********( џCBїіт@CBїіт@€Tables''''''''''% џVCEN фџ__A__џџџSHBrowseForFolderA<SHGetPathFromIDListAh(CoTaskMemFreeџџџџџџџџџџџџџџџџџџџџxVњ€џџџџKцucџџџџNN†џџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(Hџџш> џџџџџџџџ<џџџџџџІ4D=$*\Rffff*173d4434cb(*\Rffff*173d4434cb\0*\R0*#cпˆјшџџџџџџџџh€ђ0џџџџџџh€Hџџ h€`џџh€єx џџ€h€іџџh€Јџџh€ Рџџh€ џџџџџџ+њ@pџџџџџџџџџџџџџџ )ƒџџџџџџџџ8 €€€бЄbА4Kт@бЄbА4Kт@Shell Browse For Folder66666666666 П€€€бЄbА4Kт@бЄbА4Kт@frmExample))))))))))) П€ €бЄbА4Kт@бЄbА4Kт@UserDefined*********** П€ €бЄbА4Kт@бЄbА4Kт@SummaryInfo*********** П€ €бЄbА4Kт@бЄbА4Kт@AccessLayout+++++++++++ П€бЄbА4Kт@бЄbА4Kт@SysRel%%%%%%%%%%% П€бЄbА4Kт@бЄbА4Kт@Scripts&&&&&&&&&&& П€бЄbА4Kт@бЄbА4Kт@Reports&&&&&&&&&&& П€бЄbА4Kт@бЄbА4Kт@Modules&&&&&&&&&&& П€бЄbА4Kт@бЄbА4Kт@Forms$$$$$$$$$$$ ПбЄbА4Kт@бЄbА4Kт@€MSysRelationships22222222220 џбЄbА4Kт@бЄbА4Kт@€MSysQueries,,,,,,,,,,* џбЄbА4Kт@бЄbА4Kт@€MSysACEs))))))))))' џбЄbА4Kт@бЄbА4Kт@€MSysObjects,,,,,,,,,,* џбЄbА4Kт@бЄbА4Kт@€MSysDb''''''''''% џбЄbА4Kт@бЄbА4Kт@€Relationships.........., џбЄbА4Kт@бЄbА4Kт@€Databases**********( џбЄbА4Kт@бЄbА4Kт@€Tables''''''''''% џш{і € €@@ @guof|`osmfvifmmaur{vfgrugrmdfud`w`a`vfvgruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfvov}v`bfvov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsv`bbfvvm`}rxw ov}vdavxoo`u}jpgrxvfudfgjpfdџџА џџџџџџџџџџџџџџџџџџ‚ ЌџџџџўџџџИ џџўџџџџџџџџџџџџџџџƒўџџџџџџџАџџџџџџџџџџџџџџџџџџ,X`џџџџџџџџ˜0џk` џџd МРYƒLџџџџ џџџџ€€џџџџiƒўџџџџџџџџџ џџџџџџ џџџџƒўџџџџџџџˆџџџџџџџџџџџџџџџџџџP„”џџџџvџџџџџџџџџP„dџџџџpџџџџџ P„Lрlџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџ џџ@ўџџџџџlџџџ џџ Вџџ@ўџџџџџPџџџџџ џџ@ўџџџџџ@џџџ џџ џџ@ўџџџџџ0џџџ џџ џџи „3џџџџhџџџИџџ0$џџџџИоќ(џџ  џџџџ˜`„8џџџџXџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџшџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџа џџџџџџџџџџџџџџџџџџџџ(џџџџјџџџџџџџџџџџџјџџџџџџџџџџџџџџџџџџџџ˜˜џџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ џџџџ@ўџА\џџџ џџ џџџџ@ўџџџџџXџџџџџ џџ@ўџh Tџџџџџ џџџџhXџџџџџџVCedN ф  ф  ф  фTџ ф ф  ф фFlagsFormModuleNameReplicationVersionTypeTypeInfoVersionџџџџџџџџџџфџџџџ1џџџџIndex1џџrdxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfvov}v`bfvov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsv`bbfvvm`}rxw ov}vdavxoo`u}jpgrxvfudfgjpfdrary*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL#Microsoft DAO 3.51 Object LibraryР*\G{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0#C:\WINNT\System32\msdxm.ocx#Windows Media Player.џџџџџџ56D= џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџKцForm_frmExample 143d443771*D­џџBц(џџџџё>џџ.Shell Browse For Folder 113d4436cb*D"џџuc(АџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxЉљWё-е™'џџџџџџџџш/щCЁRЂжœ˜џЬ{іqьgт @€ @€       €€€€101B-AF4E-00AA003F0F07}#8.0#0#C:\Program Files\Microsoft Office\Office\MSACC8.OLB#Microsoft Access 8.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL#Microsoft DAO 3.51 Object LibraryР*\G{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0#C:\WINNT\System32\msdxm.ocx#Windows Media Player.џџџџџџЎш DЄ 'D $Ў* ^Ў*• & " $Ў* ^Ў*•аІ $Ў^ЎЬe &Ў*.*$ ~' $ˆlџџИ &Ў*.*$ ~' $ $Ў^B $e DЄ 'D & $ D+ >il JЎ; $' J" ~' $БџџиA@ЖџџџџРџџџџџџџџ j џџ!(vџџџџ(џџџџ0џџџџ0Хџџ@Zъџџџџи hZъџџџџъџџџџПЄ € В%‚'dџї DіЄ И!†Є ‹ПППП dЄ D И%‚•џППЏ'~rџџАhџџЈїП fџџ˜ХZъџџџџъџџџџППї DіЄЄ‹џџџџ ŽЎ;Ўrow  D' ŽїП@ ŽЄ$ ќ x(VППlџџ A@ŠlџџШA@Žlџџ№ш A@Žlџџи( A@ŠlџџРZъџџџџъџџџџъџџџџъџџџџџџџџџ И!RЄ '€и,* list index is 1 less than array subscriptџџ €Є”Fugи, nothing selected to moveПППППП ,ŠЄ '”ПППППП ”Є ”FugППППППїПЈїъЭЌ–џџџџ ЇљWё-е™'˜ЙDetaild ЙlblProductsd ЙlblProductsMentionedh Й cmdRighth Й cmdLeftd Й Label1nЙlstAvailablenЙlstChosenmЙ txtDirh ЙcmdGetDird ЙLabel13LVAL i_VBA_MODULEЪLЖx(џџSHBrowseForFolderAT<џџџџџџSHGetPathFromIDListAџџџџhџџpCoTaskMemFreeџџџџџџџџџџ0їŒѓVЂжœ˜џџџџџџџџџџџџxV№)цџџџџKцBцџџŠџџ *NNlGџџџџпџџ(џџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ [LџџџџS џџџџSџџџџ<џџџџ< џџ<џџ<џџ<џџ<џџ< џџ<<џџ<$џџ<џџ@<,џџ<4џџ<8џџџџN0{0457F9A7-2DF1-11D5-9927-000000000000}пˆ&ўџџџџџџџџџ(џџџџџџџџџџџџџџ$Dˆ`џџџџџџџџџџџџlџ@џџџџџџџџ„”џџџџ $ƒўџџџџџџџ џџџџџџџџџџџџџџ $‚  џџџџўџџџаџџўџџџџџџџџџџџ $ƒўџџџџџџџџџџџџџџџџџџџџџ $ $ $ $$$$$$$ƒўџџџџџџџpџџџџџџџџџџџџџџ‚  џџџџўџџџџџўџџџџџџџџџџџƒўџџџџџџџШџџџџџџџџџџџџџџ $ $ $ $ $ $($($($@($($ $ $ $ $ $$$ƒўџџџџџџџџџџџџџџџџџџџџџ‚  џџџџўџџџџџўџџџџџџџџџџџƒўџџџџџџџ№џџџџџџџџџџџџџџ$$$ƒўџџџџџџџџџџџџџџџџџџџџџџџџџL$L$ƒўџџџџџџџ8џџџџџџџџџџџџџџ4@$$ $ $ $ $ƒўџџџџџџџаџџџџџџџџџџџџџџ‚  џџџџўџџџиџџўџџџџџџџџџџџџџџџƒўџџџџџџџрџџџџџџџџџџџџџџџџџџP„$џџџџxџџџџџ($($($($($($($ $ƒўџџџџџџџ`џџџџџџџџџџџџџџ0 $ƒўџџџџџџџ(џџџџџџџџџџџџџџџџџџ‚  џџџџўџџџ0џџўџџџџџџџџџџџџџџџƒўџџџџLVAL џџџxџџџџџџџџџџџџџџџџџџP„&џџџџtџџџџџџџџџP„Dџџџџrџџџџџ`P„Jџџџџlџџџџџџџџџ$$$‚  џџџџўџџџhџџўџџџџџџџџџџџ џџ$$L$($ƒўџџџџџџџpџџџџџџџџџџџџџџџџџџ Кш `џџџџџџџџџџџџ|џ@аџџџџl.”џџџџƒўџџџџџџџHџџџџџџџџџџџџџџа($($ ƒўџџџџџџџHџџџџџџџџџџџџџџџџџџ‚  џџџџўџџџxџџўџџџџџџџџџџџџџџџƒўџџџџџџџШџџџџџџџџџџџџџџџџџџ $iƒ:џџџџ џџџџџџџџ€џџџџ $ $ $($‚  џџџџўџџџPџџўџџџџџџџџџџџџџџџƒўџџџџџџџXџџџџџџџџџџџџџџџџџџ $ $ $ƒўџџџџџџџ@џџџџџџџџџџџџџџ џџшМЖ џџ џџџџ@‚  џџџџўџџџPџџўџџџџџџџџџџџ џџ8xџџџџџ џџџџxџџџџpƒўџџџџџџџXџџџџџџџџџџџџџџџџџџа Pџџџџџџџџџџџџџџџџш h  Ш( џџџџˆ0 а hџџџ џџ џџ $ $ $($џџџџhџџџџАџџџџИџџџџРƒўџџџџџџџ џџџџџџџџџџџџџџ ($($($($DР0`џџџџџџџџџџџџhџ@џџџџџџџџ€”`  $ $ $ $ $ƒўџџџџџџџшџџџџџџџџџџџџџџџџџџ‚ Ќџџџџўџџџ8џџўџџџџџџџџџџџј hџџџ џџ џџ ( `џџџџџџџџџџџџ|џ@џџџџџџџџp2”џџџџ ’h `џџџџџџџџџџџџ|џ@џџџџџџџџt6”џџџџ Ž `џџџџџџџџџџџџџ@џџџџџџџџx:”џџџџƒўџџџџџџџјџџџџџџџџџџџџџџџџ‚ Ќџџџџўџџџџџўџџџџџџџџџџџˆ CP„–џџџџzџџџџџ Šџџџџ `џџџџџџџџџџџџ,џ@џџџџџџџџ| O”‚ Ќџџџџўџџџ0џџўџџџџџџџџџџџƒўџџџџџџџ8џџџџџџџџџџџџџџ ($($ $ $џџџџШџџџџа P„€џџџџxџџџџџџџџџџџР џџџџј џџџџ ‚  џџџџўџџџ@џџўџџџџџџџџџџџџџџџƒўџџџџџџџHџџџџџџџџџџџџџџш ƒўџџџџџџџ џџџџџџџџџџџџџџџџџџ‚  џџџџўџџџ(џџўџџџџџџџџџџџџџџџџџџџh џџџџА ƒўџџџџLVAL џџџ0џџџџџџџџџџџџџџџџџџƒўџџџџџџџPџџџџџџџџџџџџџџџџџџ‚  џџџџўџџџ€џџўџџџџџџџџџџџџџџџƒўџџџџџџџˆџџџџџџџџџџџџџџџџџџƒўџџџџџџџ№џџџџџџџџџџџџџџџџџџ~ќВИџџш џџџџ№( ( џџџџџџџџџџџџh џџџџџџџџˆ џџџџШ80а`  $ƒўџџџџџџџиџџџџџџџџџџџџџџџџџџ‚  џџџџўџџџрџџўџџџџџџџџџџџџџџџƒўџџџџџџџшџџџџџџџџџџџџџџџџџџ‚  џџџџўџџџ џџўџџџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџƒўџџџџџџџh џџџџџџџџџџџџџџџџџџ‚ Ќџџџџўџџџp џџўџџџџџџџџџџџ` ƒўџџџџџџџ`џџџџџџџџџџџџџџџџџџ‚  џџџџўџџџhџџўџџџџџџџџџџџџџџџƒўџџџџџџџpџџџџџџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџ‚ Ќџџџџўџџџ˜џџўџџџџџџџџџџџџџџџƒўџџџџџџџ џџџџџџџџџџџџџџџџџџ ДШ`џџџџџџџџџџџџ|џ@@џџџџh*”џџџџiƒ:џџџџ џџџџџџџџ€џџџџƒўџџџџџџџx џџџџџџџџџџџџџџџџџџ Ж `џџџџџџџџџџџџ0џ@џџџџџџџџ` ”џџџџƒўџџџџџџџ@џџџџџџџџџџџџџџџџџџ‚ Ќџџџџўџџџјџџўџџџџџџџџџџџ№Шhџџџ џџ џџƒўџџџџџџџHџџџџџџџџџџџџџџџџ‚ ЌџџџџўџџџX џџўџџџџџџџџџџџ Шш ( аџџџџџџџџџџџџˆh џџџџџџџџџџџџ80ш ˜ƒўџџџџџџџџџџџџџџџџџџџџџџџџџƒўџџџџџџџ(џџџџџџџџџџџџџџџџџџ‚ Ќџџџџўџџџ0џџўџџџџџџџџџџџџџџџƒўџџџџџџџ8џџџџџџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџ˜Xџџџ џџ ($ƒўџџџџџџџ` џџџџџџџџџџџџџџџџџџƒўџџџџџџџР џџџџџџџџџџџџџџџџџџ‚ ЌџџџџўџџџШ џџўџџџџџџџџџџџџџџџƒўџџџџџџџ№ џџџџџџџџџџџџџџџџџџƒўџџџџџџџ@џџџџџџџџџџџџџџџџџџ‚ Ќџџџџўџџџ˜џџўџџџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџƒўџџџџџџџЈџџџџџџџџџџџџџџџџџџ‚ Ќџџџџўџџџјџџўџџџџџџџџџџџџџџџƒўџџџџџџџ џџџџџџџџџџџџџџџџџџ‚ Ќџџџџўџџџ џџўџџџџџџџџџџџџџџџƒўџџџџџџџ џџџџџџџџџџџџџџџџџџ8Tџџџџџ џџџџƒўџџџџLVAL џџџџџџџџџџџџџџџџџџџџџ‚ Ќџџџџўџџџџџўџџџџџџџџџџџџџџџƒўџџџџџџџ џџџџџџџџџџџџџџџџџџƒўџџџџџџџPџџџџџџџџџџџџџџh($‚ Ќџџџџўџџџ€џџўџџџџџџџџџџџˆ($($P„d`xџџџџџџџџџƒўџџџџџџџА џџџџџџџџџџџџџџџџџџ‚ ЌџџџџўџџџИ џџўџџџџџџџџџџџџџџџƒўџџџџџџџАџџџџџџџџџџџџџџџџџџ,X`џџџџџџџџџџџџpџ@` џџd МРYƒLџџџџ џџџџ€€џџџџiƒўџџџџџџџџџ џџџџџџ џџџџƒўџџџџџџџˆџџџџџџџџџџџџџџџџџџP„”џџџџvџџџџџџџџџP„dџџџџpџџџџџ P„Lрlџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџ џџР`lџџџ џџ Вџџ@ўџPџџџџџ џџ@ўџ@џџџ џџ џџи0џџџ џџ џџи „3џџџџhџџџИџџ0$ќ(џџ џџџџ˜`„8џџџџXџџџ џџџџџџH8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџа џџџџџџџџ˜џџџџџџџџџџџџ(џџџџјџџџџџџџџџџџџјџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ џџџџ@ўџ\џџџ џџ џџџџ@ўџXџџџџџ џџH(Tџџџџџ џџџџHџџ џџџџџџˆ˜@tџџџ џџ џџ8(tџџџ џџ 8pџџџџџ џџџџјрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(H@@`џџџ џџ @ўџPџџџ џџ @ўџ@џџџ џџ џџџџЈџџџџ€А0џџџ џџ џџџџp 8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPџџџџ џџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLVAL џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџРџџџџ џџџџ џџџџџџќ( џџP„dџџџџxџџџџџџџP„L№tџџџџџ0џџџџ0ш˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџP„PџџџџrџџџџџџџјџџџџhА˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџРј @„8џџџџ`џџџ џџџџџџ8 hPџџџ џџ T„@ўџLџџџ џџ џџ@ўџHџџ_ џџ џџ€ Cџџ џџ8 8џџџ џџ џџџџШџџџџ џџџџ( А X(џџџ џџ џџ (џџџ џџ џџџџ џџџџџ џџџџGџџ џџX"џџџџаџџџџ˜ џџџџ  "аџџџџџџџџ џџџџџџџџџџџџџџџџџџџџр јџџџџџџџџшџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP!Ш!"0Xќџџ џџи!XTџџџ џџ № @ўџPџџџџџ џџџџ"Lџџџџџ џџџџ@ўџHџџџ џџ џџџџ№![џџ џџ"Dџџ_ џџ џџџџ0"[џџџџ@"(4џџџ џџ џџџџ@ўџ2џџџ џџ џџџџa"@,џџџџџ "("`џџџџ H#mlaџџџџаИ#џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИ#x\џџџџџ @џџџџo џџИ#PLџџџ џџ #0#CИ#8Hџџџџџ on FИ# Xќft S8$&#Micџџџџh!x$Аџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџ%Tџџџ џџ џџџџј"џџџџџџџџџџџџџџџџџџџџџџџџџџџLVAL џџџџџџџџџЈ № џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8 №!џџџџ`џџџџџџџџ џџџџџџџџџџџџџџџџџџџџр јџџџџџџџџшџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ# #џџџџРPџџџџџ (&Lџџџџџ @ўџHџџџ џџ @ўџDџџ_ џџ X&h&(4џџџ џџ @ўџ2џџџ џџ џџџџŠџџџџ,џџџџџ џџџџh"  џџџџџџџџџџџџ џџџџџџџџџџџџџџџџа \ˆ`џџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪk€€€ џџџџ"№ "и ˜ј € џџџџ" А€ џџџџ"€€€ џџџџ?и3Р№#Ј Ј И€ &рј<7€:@ˆ€ џџџџBx€Ш€ џџџџ&А#ˆ€ <Ш Ј€ џџџџ€€ џџџџ" x€ˆ€ џџџџ" ˜ € џџџџ"ЈАИ€ џџџџ"РШа€ џџџџ"р€H€X€ џџџџ$ "ј№€ џџџџ,&Р(`89А4№B9( x8шP @€ џџџџш€ џџџџ"0€ Ј€Р € џџџџ4$x"ЈH€ џџџџ ˆ&р2€ џџџџ  ˜,а8 € 8€ џџџџ5Ш€ џџџџ0€ џџџџ€ џџџџ€ џџџџ€ џџџџџџџџХХџџp0lџџ`LVAL A@ЖББ DЄ 'Dџџ &Ў*.*$ ~' $ $Ў^&џџ JЄ$ ќ 6(Vaph ~' $ ~' $Ўdelete from Songs B@0&eЈa&eЦ Dй`>ш & $ D+ >ry & $ D+ >eserZъјъјъъ(bџџџџpџџџџ` JЎ;" $Ў"' JmџџџџА JЄ$ ќ 6(VџџџџРи/ r = Shell(prg$ & " " & tmp$, vbNormalFocus)' џџџџh JЎ;" $Ў"' JџџџџHlџџXh@Ц Dй`>ш DЄ 'D $Ў* ^Ў*• & " $Ў* ^Ў*•аІ $Ў^ЎЬe &Ў*.*$ ~' $ˆlџџИ &Ў*.*$ ~' $ $Ў^B $e DЄ 'D & $ D+ >il JЎ; $' J" ~' $БџџиA@ЖџџџџРџџџџџџџџ j џџ!(vџџџџ(џџџџ0џџџџ0Хџџ@Zъџџџџи hZъџџџџъџџџџПЄ € В%‚'dџї DіЄ И!†Є ‹ПППП dЄ D И%‚•џППЏ'~rџџАhџџЈїП fџџ˜ХZъџџџџъџџџџППї DіЄЄ‹џџџџ ŽЎ;Ўrow  D' ŽїП@ ŽЄ$ ќ x(VППlџџ A@ŠlџџШA@Žlџџ№ш A@Žlџџи( A@ŠlџџРZъџџџџъџџџџъџџџџъџџџџџџџџџ И!RЄ '€и,* list index is 1 less than array subscriptџџ €Є”Fugи, nothing selected to moveПППППП ,ŠЄ '”ПППППП ”Є ”FugППППППїПЈЦ ”й@,ї DіЄ ”‹џџ $Ў; D$,' $ППППїПX $Є$ ќ И(VПП ИB@TППППППlџџ( їПhh0hZъ˜ї 8і И!:Œd to mїПh И!†'”џџ ”Є '”Zъ ър ъШъръј dЄ$ ќ И(V oЎ; И!V' d И!VЎ;Є € В%‚ И(Vhџџ(lџџ  dЄ$ (Ў;•иDoи0Private Sub lstSongs_DblClick(Cancel As Integer)и Dim tmp$, prg$, rи) tmp$ = Songs$(lstSongs.ListIndex + 1)и? prg$ = "C:\Program Files\Windows MediLVAL a Player\mplayer2.exe"џџџџˆ` lџџ  Є$ > ЎB@ ЎB@ИT\mџџџџ` ЎB@К ЎB@Р.FileNЄ$ > Ў(М М' &ЎC:\'МaPla МЎ\'МџџџџР МЄ$ (Ў\•hџџџџH џџџџX џџџџ` R RЄ $ о' RџџџџИ ї Dі € ”‹и, remove current selectionN DЄ $, D+,и,% by moving everything above it down 1џџџџ˜ Zъ ъшї 8і 2!:Œџџџџˆ  lџџи ФЎ$ Ц'ФelџџА ZъџџџџъџџџџъџџџџъџџџџъџџџџъџџџџZъџџџџъџџџџъџџџџZъџџџџЄ'Ъ Ш$ к'ЬЎAccess Databases мЎ*.mdb'Ю Ю мЎ Access Add-In мЎ*.mda'Ю„ўЎSelect Database'аЏ'ви true = open, false = save asЎ Ъ Ь Ю д ж и а в$о' d dЎ•x d' ЦaџџH Ш' Ци  restore initial valuehџџ fџџ ш0[ъџџџџ[ъџџџџџџџџј џџ!$$т'М------и* WIN32 SDK Constants and Typesи@*---------------------------------------------------------------[ъџџџџ[ъџџџџ[ъџџџџ[ъџџџџ[ъџџџџ[ъџџџџmџџи и'Public Const BIF_RETURNONLYFSDIRS = &H1и(Public Const BIF_DONTGOBELOWDOMAIN = &H2и!Public Const BIF_STATUSTEXT = &H4и(Public Const BIF_RETURNFSANCESTORS = &H8и+Public Const BIF_BROWSEFORCOMPUTER = &H1000и*Public Const BIF_BROWSEFORPRINTER = &H2000и@*---------------------------------------------------------------и!* WIN32 SDK Function Declarationsи@*---------------------------------------------------------------№Pаи@*---------------------------------------------------------------и* Method: GetFolderи;* Description: Display a dialog allowing the user to seletи* a folderи/* Parameters: lngOwner - Defaults to no ownerи:* Returns: String - The folder name that was selectedи=* Comments: Set lngOwner to the hWnd LVAL !of the form that youи-* wish to own the browse dialogи@*---------------------------------------------------------------яЅ0ZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџи'Set the properties of the folder dialog ф ц(ђЎPlease select a folder: ц(є ј ц(іи!Show the Browse For Folder dialog ц$њ'ьЄ$ ќ'ю ьЧ юЧ$ў'ъ ъ•и'Trim off the null chars ending the pathиand display the returned folder юЄ$ }'№ ю №Є $ о'тиFree memory allocated for PIDL ьA@aџџјЎ'тhџџшfџџрџџџџPA@ЖџџџџPuи8 nothing selected to movestAvaiЄ 8 2%‚A@PXбаї 8іРTRNх В.2c.Iџџџџї 8і 2!:Œџџџџˆ L$X•ъZъ№ъъа Cho И!VЎ;Є € В%‚ И(V'Л dЎ;”FЎ' dgи8 if nothing there-БџџџџИџџџџџџџџh lџџphuиD nothing selected to movex is 1 И!RЄ• џџџџџџџџш d И(VџџъџџџџˆиLoopџџџџ˜и i = i - 1и Elseи End Ifи Exit Do' И!VЎ;' dиD rowsource -> tmp$ecte d L}'PиD find selected item in rowsource  d PЄ $ о d P L $ ќ' dиD snip it outўџџџџџџџџџш fџџx d LЎ;}•Џ'Xh И!VЎ;' dit oZъЄ 8 В%‚' Lи# If Mid$(tmp3$, i, 1) = ";" Thenn(tmp3 dЎ; L' dџџџџџџии, tmp3$ = Left$(tmp3$, Len(tmp3$) - 1)џџџџџџџџџџ8 В!RЄ•и8 chosen row in lstAvailableџџџџЄ 8 И%‚Ў;' LиD selected item & ";" d dЄ $ о' dџџџџџџџџџџјиlst$ = lst$ & ";""" & t$ & """"џџџџPЎ И(Vи4( clear chosen list box for new available JЄЄ$ ќ В(Vи4 more than 2048 causes error!ТџџџџXи6MsgBox tmp2$ & " already there" qLVAL}QL' dџџџџџџии, tmp3$ = Left$(tmp3$, Len(tmp3$) - 1)џџџџџџџџџџ8 В!RЄ•и8 chosen row in lstAvailableџџџџЄ 8 И%‚Ў;' LиD selected item & ";" d dЄ $ о' dџџџџџџџџџџјиlst$ = lst$ & ";""" & t$ & """"џџџџP-ЕAttribute VB_Name = "Form_frmExa€mple" ˜Bas˜0{0457F9A7-2DF1-11D5€-9927-0} |Creata„bl†True ]PredeclaId"ExposeFals @TeДateDeriv%Cus`tomizD$Option Codmp@ DT€v   € "\" №ThenC †5N&СƒС1IfУpn$@>ƒtI$†(€ *.*"BDo Until[@( "D6jРjА + 1У'.€‚Р;""" ў&РG  ‚ ЧУF$ƒLoopC Avail‡.R€owSourcAЌ Mid$(, B2€048)‚$ more than 2 causes erroвr†ChР­nЪ@.Са' cleaHr c lР‰ box for new aХ' !HFuncТАAl Рйdy@nre(tmp2$) Asp Boo@s‚„m~pЪ@@С4@Ў +;ƒ$3€EInStr! ‡рIт `+";")ŒE`'MsgBРF †a#€%ere")' if u wќan@b €>уiMc …Сh!`€І8_DblƒsCancel!Integ„erdPMove"` *фƒ!ŸLefџKza@„с „ЙBЯO3 Š} ;, т., i%ЃPA>varјItmуЃР9`%>A!’Index --Т1Ь9ExitBžХ3џ&' nothing seleЄct€Гtogv@И :!€šQay' rowscw->a!d]Ћ Eachb c! InсЁ IрtemsSD$ ")`"'%Columаn(0,Ф)C`0К'Gi  уG iР юi‹p L' fiч ЧF*т in'*С)GсP МТCi -q^& ‚MёА"рVLen‡TCd nip аФouд9Nex”№#яr)Ucp„;Žc џљtРIqЃ y ЧYX?q ГО:‘0ВЉ0lcхoi@ub@cPц2ф Q1ct2Aб/№JУ%aBVari&Icї3'b?3nž]Ѓ\0)ў   S!6Ž{ O5 O5yS№Š=уи.Ё Cou%WБ0џ\@*пЄ:№ˆсТ5Ÿ]Љ в]@thР_УѓSSet !Ђ ї|п:Ё.:тђ @л:ƒа 2ЄDЦ.ў;ЃУQNot _t§mџСЄbBr Ре%!џ9-w3ѓ_–†!`†jЪ.An иLVALфU~~~~~~~~~~~~~ 9'їŒѓVЂжœ˜  фƒџџџџџџџџџџџџџџЉџџџџџџџџџџџџџџџџџџџџџџбйс щForm_frmExampleShell Browse For FolderMP3яРF=C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLLVBA џџџџ AЩP ЩџJ™_ЏNЊ? 3C:\Program Files\Microsoft Office\Office\MSACC8.OLBAccess 1џџџџYЩ`^РF=C:\Program Files\Common Files\Microsoft Shared\DAO\DAO350.8џџѕlxџltџѕў§фprџ9krџє­чlxџ #Tџ'8џkrџчltџJЊlxџ #џ*1xџ2Tџџ58џ `џўsHџyѕlxџ #Tџћ2/TџBlxџJѕЎlxџ 1xџlxџ\џ! \џ ”\џh`8B LџHџtџxџ`џ$–023=Babc;e gh•i†jЕ;kЬ$ РРРЮЊ„Х\іт@нFilesчArialћ[Event Procedure]џd2§hgh€ф MS Sans Serif§m45§n2§w2§˜`Š%œ€пDetailџn03W8aаbьcgdЬм lstAvailableо Value Listш[Event Procedure]ўd5]7`Сa„bgchd eМм lblProductsн Available§n03W8a,bьcgdЬlм lstChosenо Value Listш[Event Procedure]ўd5]7`a„bgchd eМмlblProductsMentionedнChosen§h1U`œaШ bXcWghXiмcmdRightн>п[Event Procedure]§h1U`œaФbXcWghXiмcmdLeftн<п[Event Procedure]§m7U`шa№b c,kмtxtDirўd5U7`аa,bАc№d eМмLabel1н Directory:§h1U`\a№bncniм cmdGetDirнCommand6п[Event Procedure]уш(€€€€€€€€€€€€€РРРџРРРџџџРРРџџџџџкккккккк­­­­­­­­ кк33330­­ 3333 кА33330­ ћ3333 ПА ћћћћ ккПППП ­­ ћ кк ­­­­ кккккка ­­­­ ­ ккккакк­­­­­­­­эH€€€€€€€€€€€€РРРџРРРџџџРРРџџџџџ§d5U7`Ta8bЌc8d eМмLabel13н,Multi-Select && click arrow or double click.§4БrDi_VBA_MODULEDЖx(џџSHBrowseForFolderAT<џџџџџџSHGetPathFromIDListAџџџџhџџpCoTaskMemFreeџџџџџџ\џџсіŒѓVЂжœ˜ЇљWё-е™'ріŒѓVЂжœ˜џџџџџџџџџџџџxИљ$OџџџџKцBцџџŠріŒѓVЂжœ˜сіŒѓVЂжœ˜џџ%ААy>Œ8‚<„@џџџџDpHzL~PˆTџџџџпџџ<џџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ [LџџџџS џџџџSџџџџš џџџџLџџџџLџџџџ”џџџџџџџџLџџџџџџџџ>Ђџџџџ”џџџџ ”џџ@Lџџџџџџџџ<џџџџџџN0{0457F9A7-2DF1-11D5-9927-000000000000}56D= $*\Rffff*143d443771$*\Rffff*113d4436cb*\R1*#85*\R1*#53*\R1*#55*\R0*#e*\R1*#50*\R0*#c*\R1*#52*\R1*#55*\R1*#21*\R0*#11п Ш( ўџџџџџџџџџ(џџџџџџџџџџџџџџ$Dˆ`џџџџџџџџHlџkџџџџџџџџ„ ”џџџџ $ƒўџџџџџџџ џџџџџџџџџџџџџџ $‚  џџџџўџџџаџџўџџџџџџџџџџџ $ƒўџџџџџџџџџџџџџџџџџџџџџ $ $ $ $$$$$$$ƒўџџџџџџџpџџџџџџџџџџџџџџ‚  џџџџўџџџџџўџџџџџџџџџџџƒўџџџџџџџШџџџџџџџџџџџџџџ $ $ $ $ $ $ј  а  $ $ $ $ $$$ƒўџџџџџџџџџџџџџџџџџџџџџ‚  џџџџўџџџџџўџџџџџџџџџџџƒ?%+MSysDbd#Нб%Shell Browse For Folder€A400,(Н"яLForm_frmExample€ѓ;D@40,џLVAL &i_VBA_MODULESЖџџxџџSHBrowseForFolderA<SHGetPathFromIDListAh(CoTaskMemFreeџџџџџџџџџџџџџџџџџџџџxVњ€џџџџKцucџџџџNN†џџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(Hџџш> џџџџџџџџ<џџџџџџІ4D=$*\Rffff*173d4434cb(*\Rffff*173d4434cb\0*\R0*#cпˆјшџџџџџџџџh€ђ0џџџџџџh€Hџџ h€`џџh€єx џџ€h€іџџh€Јџџh€ Рџџh€ џџџџџџ+њ@pџџџџџџџџџџџџџџ )ƒџџџџџџџџ8џџџџ€A$+ўР(pџџџџџџџџџџџџ€џџ( Yƒџџџџџџџџџџ „Yƒџџџџџџџџџџџџџџ„  TpџџџџџџџџџџџџџџџџT iƒџџџџџџџџџџџџџџ„+тџџџџ`џџџџџџџџџk`џџџџ&Œiƒф0 џџџџџџџџ„ „цџџџџXџџџ @$`„ъџџџџTџџџџџ`„ьЈPџџџџџ`„юџџџџLџџџџџ`„№џџџџJџџџџџџџџџџџџџи@Р џџџџƒрџџџџџџPџџџџџџџџџџџџџџџџџџ$џџџџ ƒ"џџџџџџˆџџџџџџџџџџџџџџџџџџ$№џџџџџџџџˆџџџџџџџџџџџџџџџџРџџџџиџџџџџџџџX`џџџџџџџџиџџџџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0pH`тџџџџxџџџџџА0&@јџџџџ8џџџ џџџџџџњќўоџџџџўџџџџџџџџЈ Р$џџџџ3@ўџџџџџџџџџџ @ўџџџџџџџџџџ џџџџШиџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџ`LVAL 'џџџџџџџџџџџџџџџџџџџџџџџџџџџџMETџџџџџџџџўЪE€ џџџџ€ F€ &P€ Fx€€Р€Ш€а€и€р€ш€№€ј€€ џџџџ€ .€ .8€ (h€ .€ 2Р€ 0ј€ џџџџ€ F(€ (p€ F˜H€ рH€ш(€ №€ џџџџ€ Fј€ @€ B`€ Ј€ 6Ш€ @€ D@€ 4ˆ€ FРB… €€ €(€0€8€ џџџџ€ .@ p$€ Ј€ џџџџ€ (И,р№)€ џџџџ € . %Ph€ $€ ЈИРШа€ џџџџ€ џџџџ€ џџџџ€ џџџџџџџџшХџџxшяЅZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџи'Set the properties of the folder dialog ф ц(ђxЎPlease select a folder: ц(єar ј ц(іbjи!Show the Browse For Folder dialog ц$њ'ьЄ$ ќ'ю ьЧ юЧ$ў'ъt ъ•и'Trim off the null chars ending the pathиand display the returned folder юЄ$ }'№p ю №Є $ о'тиFree memory allocated for PIDL ьA@aџџЎ'тhџџfџџји@*---------------------------------------------------------------и* WIN32 SDK Constants and Typesи@*---------------------------------------------------------------[ъ[ъ0[ъH[ъ`[ъx[ъ[ъЈ[ъРmџџји'Public Const BIF_RETURNONLYFSDIRS = &H1и(Public Const BIF_DONTGOBELOWDOMAIN = &H2и!Public Const BIF_STATUSTEXT = &H4и(Public Const BIF_RETURNFSANCESTORS = &H8и+Public Const BIF_BROWSEFORCOMPUTER = &H1000и*Public Const BIF_BROWSEFORPRINTLVAL (ER = &H2000и@*---------------------------------------------------------------и!* WIN32 SDK Function Declarationsи@*---------------------------------------------------------------и@Ри@*---------------------------------------------------------------и* Method: GetFolderи;* Description: Display a dialog allowing the user to seletи* a folderи/* Parameters: lngOwner - Defaults to no ownerи:* Returns: String - The folder name that was selectedи=* Comments: Set lngOwner to the hWnd of the form that youи-* wish to own the browse dialogи@*---------------------------------------------------------------яЅ ZъˆZъЈZъРZъиZъ№и'Set the properties of the folder dialog ф ц(ђЎPlease select a folder: ц(є ј ц(іи!Show the Browse For Folder dialog ц$њ'ьЄ$ ќ'ю ьЧ юЧ$ў'ъr: ъ•и'Trim off the null chars ending the path юЄ$ }'№orFo ю №Є $ о'тиFree memory allocated for PIDL = S ьA@omIDLiaџџЎ'тhџџfџџџџџџјџџџџ RR џџџџџџџџџџџџџџџџџџџџŸДAttribute VB_Name = "Shell Brows e For lder" ' *-;„ WIN32 SDK Constants and Typ esBdI TBROWSEINFO hOwner As LongpidlRootŠ szDi`splay‚‡€S€‘ƒlpszTitle ulFlags‰"lpf‚nŠParam‰`iImag$ƒFE„‚ВPublicƒŽ BIF_RETURNONLY@FSDIRS€г& H1•ŽDONTGOBELOWD OMAIN2STATUSTE4XTТ4бFS€ANCESTOD8‘ C[FORCO@MPUTERB1000Z PRIN 2 € П™'*ˆ™Functionр Decl@bС?š№-- Ф_У€ЫLSHаРЯFoЯ @Lib "sСж32.dll" A0liasРл A" (lpУInf6oШВ)‡‘WGetPathFro€mIDListйŽ!ByVal ‘Ad&, „sz "$7Sub VTaskMemFreЂeУole…(D zvЅ)џŠ_Ž 1>M€ethod:  C/сI ?scrip!?D| a dialog allowing t he usр„toР seletЂD qФa fb:B"{eterslng…УŒ- faul@›a no oЁ"RрeturnТ уˆ0 - T у nAБthat w D!Сcted‚CommeІ S8et Fр ЁhW @‰of"formу youтяLVALћbџџџџџџџ€БЪџш> Access €џas=€џdim?€џDir$@€џdoD€џelseG€џEndR„џfU€џFor`€џIfs€џLikez€џloop|€џme~€џMid$†€џNotŒ€џoption‘€џPreserveœ€џReDimЅ€џSetЋ€џstepА€џSubГ€џThenД€џtoМ€џUntil VBAїтWin16С~Win32MacГВ DAOž‚MP3ЮД Form_frmSongsЄ €џ_Evaluateй„џFormтDetail2txtSongЩ8Label1,Song cmdPLAYJ™ Form_Load{dbы\rs_ €џRecordsetкцtkpg €џ_B_var_Do ё €џCurrentDbS €џOpenRecordsetе| €џ_B_var_set€џExecuteYЭDФрwish р€тўbЃОƒ"с_/:d&pљІ2(O‚1`L#BЦД9 ‡0&"M#$ЖDiрm apiVce` Ÿ€,сW„ !XIDЅOёstr a!+€intOffs@-  Integerсa'!0Ё.properties Wf/т~e) +.Фб=7ц7С Š.чЭРђPlМeaђƒAWCE:Рђ;- хб=RЧС a'SјhowBуЈ~D1Qг= >M(ъ €< xpaceр$(512ВWБџ€ ‘J”AUG'RЙQ IfQ$p3nA 'Tr"of Г/nu`Œchar s endЕ=pPQCгg= In (—, Chr$(d0)" V+P)L0eft$К—- 1'вOmemodryвEca <€CrЬ PY#CoЉR–aСElseCЙ"УтБ‚If q…5QT3__SRP_2rU€€€€~}  ЉQ9 с™ љ Y џџџџџџџџџџџџ`рl qXџCdџ 8џќ"qhџ,Xџџџ^qџ<џXџ lџqPџўіџѕ 1Lџ)lLџџ4lџlPџ^qџ Access €џas=€џdim?€џDir$@€џdoD€џelseG€џEndR„џfU€џFor`€џIfs€џLikez€џloop|€џme~€џMid$†€џNotŒ€џoption‘€џPreserveœ€џReDimЅ€џSetЋ€џstepА€џSubГ€џThenД€џtoМ€џUntil VBAїтWin16С~Win32MacГВ DAOž‚MP3ЮД Form_frmSongsЄ €џ_Evaluateй„џFormтDetail2txtSongЩ8Label1,Song cmdPLAYJ™ Form_Load{dbы\rs_ €џRecordsetкцtkpg €џ_B_var_Do ё €џCurrentDbS €џOpenRecordsetе| €џ_B_var_set€џExecuteYЭ€џAddNewaЃLabel4,lstSongsрlstSongs_DblClick@LCancelё˜riSongsVn€џDblClickЋ… €џ_B_str_Songslja€џ_B_var_Preserve…} €џ_B_var_redim•ВlstА€џValueфK _B_str_MidўXMsgBox—R €џListIndexїQ€џRequeryЋ €џRowSource2€џ_B_str_p˜ShellVз vbNormalFocusІљ„џtxtLikeБАLabel6’, txtLike_Exit_вtmpыйprg7Х €џ_B_var_IfPђxoGetSongs‘€џMaximizeFy€џ_B_var_MaximizeЯP€џDoCmdЦЇ€џRestore†>€џHeight|‹ Œ(џMediaPlayerPL1CФlstAvailableSongssg AlreadyThere1дТli^€џColumn i lstPlayList'F €џListCount6lstAvailableSongs_DblClickl MoveRightЬшlstPlayList_DblClickmяMoveLeftv“ cmdLeft_Clickv2cmdRight_ClickљПub`_lc^CardCtlА!MCIГMPF^ cmdPLAY_ClickГd€џPlaySЗ lblProductsАlblProductsMentionedU6cmdRightЬЖcmdLeftм]€џClickŠу Form_frmExampleфYtxtDB1‚н cmdGetDB1  lstAvailableЉ~lstAvailable_DblClick^™GetListLн lstChosen<ƒlstChosen_DblClickљJtxtDirІо cmdGetDirФcmdGetDir_Clickш}cmdGetDB2_Click<ПtxtDB2ƒн GetDBNameЬtxt†лFlagso InitialDirЎ1„џFLVAL .ilterД; DialogTitleп„OpenFileњя FilterIndexЫŸ DefaultExtКy„џFileNamejУ StripPath‘š vbNullCharкYadhCommonFileOpenSaveѕьModule1b Ќ(GetFoldernцlngOwner>Ђ apiBrowseInfoѓВ Ў(!TBROWSEINFO+№ lngRetValшф lngPathID& strRetPathŠ intOffsetъhOwnerEm lpszTitleSŽulFlagsэСBIF_RETURNONLYFSDIRS-МЌ(SHBrowseForFolder"№Space юЌ(SHGetPathFromIDListKœChrK~ Ќ(CoTaskMemFreeлMpidlRootdpszDisplayNamehrlpfnВЖlParam…7iImageUр lpBrowseInfo№r shell32.dll+ˆpidlЎЇpszPath№˜pvЛ^ ole32.dllШ€џџџ_B_var_BIF_RETURNONLYFSDIRSz _B_str_Spaceу _B_str_Chrm# _B_str_LeftVƒ Shell Browse For FolderТ €џHwnd/С€џџџ_B_str_StripPathцНRight  _B_str_Right#(Chosen€Б Side To Sideq€џSelectedYЃctl€frmУNamesЮПvarItmю€ €џItemsSelectedointIш\ €џColumnCount$€џListBox™ф _B_var_Midэpmi?^ €џџџ_B_var_miчђ MoveLeft2ХblstcИШtmp2kе €џџџ_B_str_tmp2ммi`tmp3lе vbNewLineua €џџџ_B_var_ForjL AlreadyThereR €џџџ_B_var_Chosenъ+en] €џџџ_B_var_enФёvar5itmDA €џџџ_B_var_varItm—ћџџTџџџџџџ.џџџџџџџџџџџџџџџџџџџџ­џџџџџџxџџџџ#џџџџџџџџџџџџџџџџџџ $@dir)%В€0* pH‚dф Side To E<@Е = v‚ †?D= Žˆ<V DAO>BD€AO ™*\G{00€025E01-:0C  0046}#4.0#0#C:\Program Files\Common Microsoft Shared\w350`.DLL#‡ 3.51 Object Library€H €MediaPl€ayer>ediaPPl€y€r5€ej€ `€e22D6F304-B0F6-11D0 -94AB€e80C74C7E95}#1…eWINNT\System32\msdxm.ocx#Win dows B ƒB‹1з‚ Kц€ Form_frmEx@ample‚`_VBA_MODULE2B0_VB@`_MODULEЂРHB1‚q`lGB,QBBц"B(B+BРShe ll BrР+e C"Рlderќ АbЯ uc!ТCТ__SRP_03 “K)^џџџџLVAL /rU€€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 95їŒѓVЂжœ˜  фƒџџџџџџџџџџџџџџЉџџџџџџџџџџџџџџџџџџџџџџбйс щForm_frmExampleShell Browse For FolderMP3яРF=C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLLVBA џџџџ AЩP ЩџJ™_ЏNЊ? 3C:\Program Files\Microsoft Office\Office\MSACC8.OLBAccess 1џџџџYЩ`^РF=C:\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLLDAO 9џџџџaщpѓж"іАа”Ћ€ЧL~•C:\WINNT\System32\msdxm.ocx MediaPlayer aџџџџ‰Щ€   , SHBrowseForFolder shell32.dll SHBrowseForFolderA ЉбSHGetPathFromIDList SHGetPathFromIDListA Љ™Ј CoTaskMemFree ole32.dll CoTaskMemFreelstAvailable_DblClick a‰Р GetFolder !щCЁRЂжœ˜4щCЁRЂжœ˜ЇљWё-е™'3щCЁRЂжœ˜@CžМ7№Э‡Њ?txtDirECžМ7№Э‡Њ? cmdGetDirKCžМ7№Э‡Њ? lstChosencmdRightcmdPLAYcmdLeft lstAvailableћм31ЯЭ‡Њ?FormSCžМ7№Э‡Њ?DetailcmdGetDir_Click GetDBName cmdPLAY_Click Form_LoadGetList AlreadyThere1!їŒѓVЂжœ˜lstChosen_DblClick cmdLeft_ClickcmdRight_ClickMoveLeft MoveRight h48€]хЏNЊ?6щCЁRЂqLVAL}іqьgт  џџ vbNullCharкYadhCommonFileOpenSaveѕьModule1b Ќ(GetFoldernцlngOwner>Ђ apiBrowseInfoѓВ Ў(!TBROWSEINFO+№ lngRetValшф lngPathID& strRetPathŠ intOffsetъhOwnerEm lpszTitleSŽulFlagsэСBIF_RETURNONLYFSDIRS-МЌ(SHBrowseForFolder"№Space юЌ(SHGetPathFromIDListKœChrK~ Ќ(CoTaskMemFreeлMpidlRootdpszDisplayNamehrlpfnВЖlParam…7iImageUр lpBrowseInfo№r shell32.dll+ˆpidlЎЇpszPath№˜pvЛ^ ole32.dllШ€џџџ_B_var_BIF_RETURNONLYFSDIRSz _B_str_Spaceу _B_str_Chrmжœ˜5щCЁRЂжœ˜ h4L8p:щCЁRЂжœ˜9щCЁRЂжœ˜ d4> C:\ VBA332.DLL yџџџџj hFщ;|фЭ‡Њ? \ yџџџџ… € *.*  ;" " yџџџџw ˜Zщ;|фЭ‡Њ? ; Please select a folder: yџџџџ  А yџџџџ Ш yџџџџh р Side To SideліŒѓVЂжœ˜оіŒѓVЂжœ˜ніŒѓVЂжœ˜ d4сіŒѓVЂжœ˜ріŒѓVЂжœ˜ `4\W yџџџџS ` їŒѓVЂжœ˜ MoveLeft2 `4џџџџ x$їŒѓVЂжœ˜#їŒѓVЂжœ˜ `4   +їŒѓVЂжœ˜*їŒѓVЂжœ˜ AlreadyThere `4  already there.їŒѓVЂжœ˜-їŒѓVЂжœ˜ \0їŒѓVЂжœ˜/їŒѓVЂжœ˜__SRP_1^rU€€€€~~~~~u џџџџџџџџџџџџџџџџџџџџ lpBrowseInfopidlpszPathpvlngOwner сI  с‰  сб ( с‘ 8 сб HtxtliCanceltmp2EЌ€ gruo,guof|`osmf€€€џџФ#ov}vda€€џџ›#vifmmaur{vfgrugrmdfu€€€џџО#gruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfvov}v`bfvov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsv`bbfvvm`}rxw ov}vdavxoo`u}jpgrxvfudfgjpfdrary*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL#Microsoft DAO 3.51 Object LibraryР*\G{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0#C:\WINNT\System32\msdxm.ocx#Windows Media Player.џџџџџџ56D= џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџKцForm_frmExample 143d443771*D­џџBц(џџџџё>џџ.Shell Browse For Folder 113d4436cb*D"џџuc(АџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxЉљWё-е™'џџџџџџџџш/щCЁRЂжœ˜џ8.ётo`QBЯРБЂ“ €qbярбТO@1" ‘‚sётг`QBЯРБ>/ ­ž фџ ф ф  T뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o   €џџ  €џџ뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o  €џџ  €џџ  €џџ뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o  €џџ €џџ €џџ뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o €џџ € € 뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o   џџ џџ뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o џџ ў €џџ €џџ €џџ뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o €џџ €џџ €џџ €џџ뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o €џџ €џџ €џџ €џџ뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o €џџ џџ џџ뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o  ў €џџ €џџ €џџ뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o €џџ €џџ €џџ €џџ뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o €џџ  bLVALђp @€ @€ @€222222222 2222222222222222 2 2 2 ' if u wantџџџџРZЕAttribute VB_Name = "Form_frmExa€mple" ˜Bas˜0{0457F9A7-2DF1-11D5€-9927-0} |Creata„bl†True ]PredeclaId"ExposeFals @TeДateDeriv%Cus`tomizD$Option Codmp@ DT€v   € "\" №ThenC †5N&СƒС1IfУpn$@>ƒtI$†(€ *.*"BDo Until[@( "D6jРjА + 1У'.€‚Р;""" ў&РG  ‚ ЧУF$ƒLoopC Avail‡.R€owSourcAЌ Mid$(, B2€048)‚$ more than 2 causes erroвr†ChР­nЪ@.Са' cleaHr c lР‰ box for new aХ' !HFuncТАAl Рйdy@nre(tmp2$) Asp Boo@s‚„m~pЪ@@С4@Ў +;ƒ$3€EInStr! ‡рIт `+";")ŒE`'MsgBРF †a#€%ere")џџџџџџџџџџџџџџџџџџџџџџџџ22џџџџџџџџ џџџџ џџџџџџџџfrmExample0-10џџџџџџџџџџџџџџџџџџџџџџџџџџџџЪОџџџџџџџџџџџџџџџџџџџџfrmExampleautoexecShell Browse For Folder :9џџџџ;LVALжПK     џ ulFlagsэСBIF_RETURNONLYFSDIRS-МЌ(SHBrowseForFolder"№Space юЌ(SHGetPathFromIDListKœChrK~ Ќ(CoTaskMemFreeлMpidlRootdpszDisplayNamehrlpfnВЖlParam…7iImageUр lpBrowseInfo№r shell32.dll+ˆpidlЎЇpszPath№˜pvЛ^ ole32.dllШ€џџџ_B_var_BIF_RETURNONLYFSDIRSz _B_str_Spaceу _B_str_Chrm# _B_str_LeftVƒ Shell Browse For FolderТ €џHwnd/С€џџџ_B_str_StripPathцНRight  _B_str_Right#(Chosen€Б Side To Sideq€џSelectedYЃctl€frmУNamesЮПvarItmю€ €џItemsSelectedointIш\ €џColumnCount$€џListBox™ф _B_var_Midэpmi?^ €џџџ_B_var_miчђ MoveLeft2ХblstcИШtmp2kе €џџџ_B_str_tmp2ммi`tmp3lе vbNewLineua €џџџ_B_var_ForjL AlreadyThereR €џџџ_B_var_Chosenъ+en] €џџџ_B_var_enФёvar5itmDA €џџџ_B_var_varItm—ћџџTџџџџџџ.џџџџџџџџџџџџџџџџџџџџ­џџџџџџxџџџџ#џџџџџџџџџџџџџџџKKD€TitleAuthorCompanyR Side To Side  Bob Martling Propellerhead SoftwareKKDb€ AccessVersionBuildAppTitle StartUpFormStartUpShowDBWindowStartUpShowStatusBarStartUpMenuBarAllowShortcutMenusAllowFullMenusAllowBuiltInToolbarsAllowToolbarChangesAllowBreakIntoCodeAllowSpecialKeysAppIconStartupShortcutMenuBarShow Values LimitShow Values in IndexedShow Values in Non-IndexedShow Values in RemoteБ  07.53   Side To Side             ш   KKD€ KeepLocal T~oќэоk\MкЫМI: џџжœ˜5щCЁRЂжœ˜ h4L8p:щCЁRЂжœ˜9щCЁRЂжœ˜ d4> C:\ VBA332.DLL yџџџџj hFщ;|фЭ‡Њ? \ yџџџџ… € *.*  ;" " yџџџџw ˜Zщ;|фЭ‡Њ? ; Please select a folder: yџџџџ  А yџџџџ Ш yџџџџh р Side To SideліŒѓVЂжœ˜оіŒѓVЂжœ˜ніŒѓVЂжœ˜ d4сіŒѓVЂжœ˜ріŒѓVЂжœ˜ `4\W yџџџџS ` їŒѓVЂжœ˜ M 뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o   뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o   T뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o  є є뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o є  뇓 OЋ8пV#jKГuE*Ф†НФ(л$_Aы—пV#jKпV#jKпV#jKrЬvфwlБrпV#jKпV#jKпV#jKпV#jKпV#o