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џџЖ0ШШ$@œGetProcessHeapFtpGetFileADHeapAllocJdX@џџeHeapFreeЦˆxџџlRtlMoveMemoryJœчџџ№RtlMoveMemorylШРџџInternetFindNextFileAчШьЌFtpFindFirstFileAџџиFtpGetFileAШ4иFtpPutFileAШT FtpSetCurrentDirectoryAШ€@InternetOpenAШЄlInternetConnectAШЬInternetGetLastResponseInfoAШИHttpOpenRequestAШ(ьHttpSendRequestAs aШPicioHttpQueryInfoAtШtfu<tiInternetReadFileШœ U`r InternetWriteFilevbШФetˆX FtpOpenFileAry Шш sАtiFtpDeleteFileAџШ ъдInternetSetOptionAШ4џџјІInternetSetOptionAџШ\  InternetCloseHandleШ„r HgiInternetQueryOptionA ШАЄpъHttpAddRequestHeadersA2џџџџџџџџџџџџџџџџџџџџџџxІ‚*pџџџџ2œ>œџџџџž*žžf@џџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@AпV#jKпV#jKпV#jKпV#o   0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@AпV#jKпV#jKпV#jKпV#o   T0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@Aп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џџџџџџџ џџџџџџџџџџџџџџџџџџЙ џџџџџџџџId ParentIdName        џџNET_FLAG_RELOAD,у€Ёт, 0Јdgлeџс"cДeР+$ tQ`7џ@O;BA1ЅV`T € work`ed! "љА"€ should"јhervY…§8љГ .EZ ї %N7inPlВ9ф Єnd wQџЁ``аe```бядё^ђ!`mPƒ SџаO`O`ЃO` %ёŸ' pАSO`{œO`ћO`rO`\O`РbO`{Гpш-' E5Ё1O` > o-G`ƒSnj"Medџ/a/a@–…CС#љЅ tp#б>+ЙyИ@џЈƒЏ+>/Йџ€=Д=C R@=}‘‰=€ succРessfulЯ=Я=Я8С))џ  >Яo=бЦ„  D=` CloseTvп@ЪеФрЩШP–0Ђ&‡y§qHАЛ@|IД*ёВЭ?Ÿ–A4 = ў0Гвцќ˜Є^ Q5Ж(Ж$ЄБHPaэ№PvBж~ЉnavщзСё= T`у K UŒс(scUser$Ag`Ÿ, mOPEN_TYPE_DIRECT, €vbNullS№шџ!сл•nц€,@П/З/чљ˜'pŽt Р У з%ПХ#s0‘c Œ 3?–у E_q' ‘dTRANSFE>R3G5№MSysDbS#НG5№MSysDbS#НG5№MSysDbS#НG5№MSysDbS#НG5№MSysDbS#НG5№MSysDbS#НG5№MSysDbS#НG5№MSysDbS#НG5№MSysDbS#НG5№MSysDbS#ќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVCп<S   ф  ф2џ ф фObjectIdSIDACM FInheritableџџџџџџџџџџфџџџџџџbџџc џџџџObjectIdџџgruo,guogws€€€џџс!gwsordxmf€€€џџљ!ov}vda€€џџЌ!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!vxoo`u}jpgrxvfudfgjpfdїъЭЌ–џџџџ s0]ёЎ•жœƒ˜ЙDetaild ЙLabel1d ЙLabel3d ЙLabel5d ЙLabel7d Й Label9mЙtxtLocalPathmЙtxtFileNamemЙtxtServermЙtxtUIDmЙ txtPWDh Й cmdFTP_Geth Й cmdFTP_PutVC?S   ф ф  фџ  фџ  фџ  фџ фObjectId AttributeOrderName1Name2 ExpressionFlagџџiџџlџџnџџzџџjџџtџџz џџџџObjectIdAttribute  џџiteиN dwFlags how the file will be transported: 1 = ASCII, 2 = Binaryџџџџ  bЎ Extended Error:  dЎ  hA@:ZъX Ў*.* њЄЄ$Ю'‚ ‚Є• 0!2 Ф•ЎNo files foundA@:uџџиaџџаЎSome error occurredA@:uџџЈhџџ hџџ˜\џџ ‚ њ$ЦЄ\__SRP_1.rU€€€€~~~~w џџџџџџџџџџџџџџџџџџџџџџџџhFind lpvFindData hFtpSessionlpszSearchFilelpFindFileDatadwFlags dwContentlpszRemoteFile lpszNewFile fFailIfExistsdwFlagsAndAttributes dwContext lpszLocalFile lpszDirectorysAgent lAccessType sProxyName sProxyBypasslFlagshInternetSession sServerName nServerPort sUsername sPasswordlServicelContext lpdwError lpszBufferlpdwBufferLength hHttpSessionsVerb sObjectNamesVersionsReferer something hHttpRequestsHeaderslHeadersLength sOptionallOptionalLength lInfoLevelsBuffer lBufferLengthlIndexhFilelNumBytesToReadlNumberOfBytesReadlNumberOfBytesToRead sFileNamelAccess lpszFileName hInternetlOptionhInet lModifiersFileNameLocalDirdErrorszCallFunctionServerUIDPwd Щq# Щй# Щ!$( Щ™$8`VCS фџ ф ф ф  фџ  фџ  фџ  фџszRelationshipgrbitccolumnicolumnszObjectszColumnszReferencedObjectszReferencedColumnџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџszObjectszReferencedObjectszRelationshipџџ00000}пЈ ўџџџџџџџџџ(џџџџџџџџџџџџџџ$џџџџШDдˆ`џџџџџџџџџџџџџ@џџџџџџџџd ”= $ƒўџџџџџџџЈџџџџџџџџџџџџџџџџџџ $‚ тџџџџўџџџиџџўџџџџџџџџџџџ $ƒўџџџџџџџџџџџџџџџџџџџџџ $Dжџџџџ`џџџџџџџџџџџџlџ@џџџџџџџџl*”џџџџџџџџ8џџџџƒўџџџџџџџxџџџџџџџџџџџџџџџџџџ‚ тџџџџўџџџАџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџрџџџџџџџџџџџџџџџџџџ $ $ $ƒўџџџџџџџ џџџџџџџџџџџџџџџџџџ $‚ ШџџџџўџџџPџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџ€џџџџџџџџџџџџџџџџџџ $Dк`џџџџџџџџџџџџџ@џџџџџџџџh”: $џџџџшџџџџ8ˆџџџџџџџџƒўџџџџџџџшџџџџџџџџџџџџџџџџџџ‚ Шџџџџўџџџ№џџўџџџџџџџџџџџџџџџƒўџџџџџџџШџџџџџџџџџџџџџџџџџџџџџџ8ˆџџџџџџџџƒўџџџџџџџЈџџџџџџџџџџџџџџџџџџ $‚ Шџџџџўџџџиџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџџџџџџџџџџџџџџџџџџџ $ $ $ $ƒўџџџџџџџPџџџџџџџџџџџџџџ џџ $‚ Шџџџџўџџџˆџџўџџџџџџџџџџџџџџџ( $ $ $џџџџhƒўџџџџџџџџџџџџџџџџџџџџџџџџџD8`џџџџџџџџџџџџ|џ@џџџџџџџџ` ”џџџџ№џџџџˆаџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџ‚ Шџџџџўџџџџџўџџџџџџџџџџџаƒўџџџџџџџ џџџџџџџџџџџџџџPƒўџџџџџџџ˜џџџџџџџџџџ {іqьgт]иSЮIФ?К5 @€o{ gruo,guogws€€€џџс!gwsordxmf€€€џџљ!ov}vda€€џџЌ!ov}vda€€џџЭ!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!{jpjpfw€€€џџі!GNORE_CERT_CN_INVALID;\INTERNET_FLAG_SECUREЎ~INTERNET_OPTION_CONNECT_TIMEOUTЊINTERNET_OPTION_RECEIVE_TIMEOUT/INTERNET_OPTION_SEND_TIMEOUTџ\INTERNET_OPTION_USERNAME3INTERNET_OPTION_PASSWORD•INTERNET_OPTION_PROXY_USERNAMEsАINTERNET_OPTION_PROXY_PASSWORD™INTERNET_SERVICE_GOPHERзINTERNET_SERVICE_HTTP2HttpOpenRequestя hHttpSessionб%sVerb‹Ї sObjectNameЎvsVersionoГsRefererœ< somethingIINTERNET_FLAG_KEEP_CONNECTIONŠ<INTERNET_FLAG_MULTIPARTЄ. GENERIC_READŠ… GENERIC_WRITEЩПHttpSendRequestaЋ hHttpRequest1sHeaders№ыlHeadersLengthb sOptional‘lOptionalLengthКќ HttpQueryInfoЄ lInfoLevelЌ&sBufferzd lBufferLengthвЉlIndexщљHTTP_QUERY_CONTENT_TYPEbHTTP_QUERY_CONTENT_LENGTHDДHTTP_QUERY_EXPIRES\КHTTP_QUERY_LAST_MODIFIEDџеHTTP_QUERY_PRAGMAЊйHTTP_QUERY_VERSIONEэHTTP_QUERY_STATUS_CODEjДHTTP_QUERY_STATUS_TEXT]ЂHTTP_QUERY_RAW_HEADERSџŒHTTP_QUERY_RAW_HEADERS_CRLF‰{HTTP_QUERY_FORWARDEDёHTTP_QUERY_SERVER7$HTTP_QUERY_USER_AGENTўВHTTP_QUERY_SET_COOKIEHTTP_QUERY_REQUEST_METHODPоHTTP_STATUS_DENIEDSоHTTP_STATUS_PROXY_AUTH_REQ[HTTP_QUERY_FLAG_REQUEST_HEADERSяHTTP_QUERY_FLAG_NUMBER9InternetReadFileдйhFile#lNumBytesToReadтlNumberOfByteso{іqьgтInternetSetOptionX№ hInternetЪІlOptionZмInternetSetOptionStr*FhInet‡InternetQueryOptionњxINTERNET_OPTION_VERSIONЌѕtWinInetDLLVersion1У lMajorVersionЪ lMinorVersion2,HttpAddRequestHeadersЊ lModifiersтъHTTP_ADDREQ_FLAG_ADD_IF_NEW*2HTTP_ADDREQ_FLAG_ADDЊњHTTP_ADDREQ_FLAG_REPLACEкŒ _B_str_Right#( _B_var_StringгŠmsgboxc ‰€џџџ_B_var_msgboxcŒgotД” €џџџ_B_var_gotХQAginy €џџџ_B_var_IfPђdone … €џџџ_B_str_ServerVЧ Form_frmFTPЉT txtServerХ~txtUIDB9txtPWDf  txtFileNamedх txtLocalPathУНcmdFTP_Get_Clickе Form_Load{CloseConnectionхtcmdFTP_Put_ClickјFFormтDetail2Label1,Label3,Label5‘,Label7“,Label9•, cmdFTP_Getƒ^ cmdFTP_Putє€џClickŠу€џValueфKShow_Debug_MsgsХжџџTџџџџџџџџџџџџџџџџџџџџџџsџџџџџџџџџџџџџџ џџџџ Щ џџџџџџџџџџџџ 6dir’ŽБ€0* pH‚dфFTP@е= d  ђ.=Ј J< ˜ DAO>„D€AO ™*\G{00€025E01-:0C  0046}#4.0#0#C:\Program Files\Common Microsoft Shared\w350`.D@€@ ј№р?r`@@@€ guogwsgwsordxmf{jpjpfw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xvfudfgjpfdpFindFirstFile FtpFindFirstFileA  p FtpGetFile FtpGetFileA  Йˆ FtpPutFile FtpPutFileA  a HttpSendRequestFtpSetCurrentDirectory FtpSetCurrentDirectoryA  IИ InternetOpen InternetOpenA   аInternetConnect InternetConnectA  Щ шInternetGetLastResponseInfo InternetGetLastResponseInfoA  Ё HttpOpenRequest HttpOpenRequestA  y  HttpSendRequestA   0 HttpQueryInfo HttpQueryInfoA  б HInternetReadFile InternetReadFile  ‘ `InternetWriteFile InternetWriteFile  Yx FtpOpenFile FtpOpenFileA   FtpDeleteFile FtpDeleteFileATesto  ЩЈInternetSetOption InternetSetOptionA  ЁРInternetSetOptionStrInternetCloseH €"JЂљ.Iт@r3мˆ@Iт@ModulesWinInet3,%џ €‚ €§Бѕ/Iт@NК—AIт@FormsfrmFTP0*%џo{$i_VBA_MODULEPЖ0ШШ$@œGetProcessHeapFtpGetFileADHeapAllocJdX@џџeHeapFreeЦˆxџџlRtlMoveMemoryJœчџџ№RtlMoveMemorylШРџџInternetFindNextFileAчШьЌFtpFindFirstFileAџџиFtpGetFileAШ4иFtpPutFileAШT FtpSetCurrentDirectoryAШ€@InternetOpenAШЄlInternetConnectAШЬInternetGetLastResponseInfoAШИHttpOpenRequestAШ(ьHttpSendRequestAs aШPicioHttpQueryInfoAtШtfu<tiInternetReadFileШœ U`r InternetWriteFilevbШФetˆX FtpOpenFileAry Шш sАtiFtpDeleteFileAџШ ъдInternetSetOptionAШ4џџјІInternetSetOptionAџШ\  InternetCloseHandleШ„r HgiInternetQueryOptionA ШАЄpъHttpAddRequestHeadersA2џџџџџџџџџџџџџџџџџџџџџџxІ‚*pџџџџ2œ>œџџџџž*žžf@џџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџЈ<Ў<џџЄ<џџџџџџпx$ƒrџџџџџџ(џџџџџџџџџџџџџџџџџџ $ vb wininetџџџџƒrџџџџџџhџџџџџџџџџџџџџџџџџџ $+@pџџџџџџџџџџџџА џџ џџџџiƒаџџџџџџџџџџа„џџџџiƒиџџџџџџџџџџ№„џџџџiƒкџџџџџџџџџџ„џџџџiƒмџџџџџџџџ џџ0„џџџџiƒоџџџџџџџџџџP„џџџџiƒ|џџџџџџџџџџЈ„џџ $№ژ’@BџџџџџџџџџџџџџџLџџiƒрџџџџџџџџџџџџџџ„џџџџK @€ @€        €€€€€€ѕ€ #lџћ?/lџ, €*§' “Sѕ” ѕ€є€€ *#hџdџ4ldџ€ lџ4llџ” pbџœ(ВBџџForm_frmFTP 383d2faeac*DЩџџТЦH7џџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx *вБЉ•жœƒџџџџџџџџш*вБЉ•жœƒџџџџџџџџ|0]ёЎ•жœƒџџџџџџџџ(€ џЈPAccess=€џdimR„џf_€џGotoА€џSubVBAїтWin16С~Win32MacГВDAOž‚FTPsPasswordžјlServicezFlContextŽW lpdwErrorЫъ lpszBuffer+xlpdwBufferLength€zINTERNET_DEFAULT_FTP_PORT(§INTERNET_DEFAULT_GOPHER_PORT&INTERNET_DEFAULT_HTTP_PORTа INTERNET_DEFAULT_HTTPS_PORTсчINTERNET_DEFAULT_SOCKS_PORT…&INTERNET_FLAG_IGNORE_CERT_DATE_INVALIDт$INTERNET_FLAG_IGNORE_CERT_CN_INVALID;\INTERNET_FLAG_SECUREЎ~INTERNET_OPTION_CONNECT_TIMEOUTЊINTERNET_OPTION_RECEIVE_TIMEOUT/INTERNET_OPTION_SEND_TIMEOUTџ\INTERNET_OPTION_USERNAME3INTERNET_OPTION_PASSWORD•INTERNET_OPTION_PROXY_USERNAMEsАINTERNET_OPTION_PROXY_PASSWORD™INTERNET_SERVICE_GOPHERзINTERNET_SERVICE_HTTP2HttpOpenRequestя hHttpSessionб%sVerb‹Ї sObjectNameЎvsVersionoГsRefererœ< somethingIINTERNET_FLAG_KEEP_CONNECTIONŠ<INTERNET_FLAG_MULTIPARTЄ. GENERIC_READŠ… GENERIC_WRITEЩПHttpSendRequestaЋ hHttpRequest1sHeaders№ыlHeadersLengthb sOptional‘lOptionalLengthКќ HttpQueryInfoЄ lInfoLevelЌ&sBufferzd lBufferLengthвЉlIndexщљHTTP_QUERY_CONTENT_TYPEbHTTP_QUERY_CONTENT_LENGTHDДHTTP_QUERY_EXPIRES\КHTTP_QUERY_LAST_MODIFIEDџеHTTP_QUERY_PRAGMAЊйHTTP_QUERY_VERSIONEэHTTP_QUERY_STATUS_CODEjДHTTP_QUERY_STATUS_TEXT]ЂHTTP_QUERY_RAW_HEADERSџŒHTTP_QUERY_RAW_HEADERS_CRLF‰{HTTP_QUERY_FORWARDEDёHTTP_QUERY_SERVER7$HTTP_QUERY_USER_AGENTўВHTTP_QUERY_SET_COOKIEHTTP_QUERY_REQUEST_METHODPоHTTP_STATUS_DENIEDSоHTTP_STATUS_PROXY_AUTH_REQ[HTTP_QUERY_FLAG_REQUEST_HEADERSяHTTP_QUERY_FLAG_NUMBER9InternetReadFileдйhFile#lNumBytesToReadтlNumberOfBytesReadЫIInternetWriteFilelNumberOfBytesToReadбw FtpOpenFile€ sFileName—нlAccessp FtpDeleteFilec lpszFileNasЊ lModifiersтъHTTP_ADDREQ_FLAG_ADD_IF_NEW*2HTTP_ADDREQ_FLAG_ADDЊњHTTP_ADDREQ_FLAG_REPLACEкŒ _B_str_Right#( _B_var_StringгŠmsgboxc ‰€џџџ_B_var_msgboxcŒgotД” €џџџ_B_var_gotХQAginy €џџџ_B_var_IfPђdone … €џџџ_B_str_ServerVЧ Form_frmFTPЉT txtServerХ~txtUIDB9txtPWDf  txtFileNamedх txtLocalPathУНcmdFTP_Get_Clickе Form_Load{CloseConnectionхtcmdFTP_Put_ClickјFFormтDetail2Label1,Label3,Label5‘,Label7“,Label9•, cmdFTP_Getƒ^ cmdFTP_Putє€џClickŠу€џValueфKShow_Debug_MsgsХж ListFilesМъList1€ы€џListBox™фfd7]AddItem‡ InternetNextFileЉџja€џColumn i cmdFTP_Dir O lstRemoteDirfcmdFTP_Dir_Click‡tџџTџџџџџџџџџџџџџџџџџџџџџџsџџџџџџџџџџџџџџ џџџџ Щ џџџџџџџџџџџџ 6dir‘Б€0* pH‚dфFTP@е= d  ђ.=Ј J< ˜ DAO>„D€AO ™*\G{00€025E01-:0C  0046}#4.0#0#C:\Program Files\Common Microsoft Shared\w350`.DLL# 3.51 Object LibrXary€H„‚2œ € ˆ Module €_VBA_MODULE2VB€o_M€qDU@LE€ H‚1’ё:,‚ ,2=œŠ!‚+‚€€WinInetМ64ВB6>L3FoРrm_frm€9|D7OТЦ"B6( BC9Т__SRP_0Š“K)^џџџџrU€€€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ЙXT”{–жœ„  ф џџџџџџџџџџџџџџџџџџџџџџЩџџџџџџџџџџџџџџџџџџџџџџщƒџџџџџџџџџџџџџџБ"СsPasswordžјlServicezFlContextŽW lpdwErrorЫъ lpszBuffer+xlpdwBufferLength€zINTERNET_DEFAULT_FTP_PORT(§INTERNET_DEFAULT_GOPHER_PORT&INTERNET_DEFAULT_HTTP_PORTа INTERNET_DEFAULT_HTTPS_PORTсчINTERNET_DEFAULT_SOCKS_PORT…&INTERNET_FLAG_IGNORE_CERT_DATE_INVALIDт$INTERNET_FLAG_IGNORE_CERT_CN_INVALID;\INTERNET_FLAG_SECUREЎ~INTERNET_OPTION_CONNECT_TIMEOUTЊINTERNET_OPTION_RECEIVE_TIMEOUT/INTERNET_OPTION_SEND_TIMEOUTџ\INTERNET_OPTION_USERNAME3INTERNET_OPTION_PASSWORD•INTERNET_OPTION_PROXY_USERNAMEsАINTERNET_OPTION_PROXY_PASSWORD™INTERNET_SERVICE_GOPHERзINTERNET_SERVICE_HTTP2HttpOpenRequestя hHttpSessionб%sVerb‹Ї sObjectNameЎvsVersionoГsRefererœ< somethingIINTERNET_FLAG_KEEP_CONNECTIONŠ<INTERNET_FLAG_MULTIPARTЄ. GENERIC_READŠ… GENERIC_WRITEЩПHttpSendRequestaЋ hHttpRequest1sHeaders№ыlHeadersLengthb sOptional‘lOptionalLengthКќ HttpQueryInfoЄ lInfoLevelЌ&sBufferzd lBufferLengthвЉlIndexщљHTTP_QUERY_CONTENT_TYPEbHTTP_QUERY_CONTENT_LENGTHDДHTTP_QUERY_EXPIRES\КHTTP_QUERY_LAST_MODIFIEDџеHTTP_QUERY_PRAGMAЊйHTTP_QUERY_VERSIONEэHTTP_QUERY_STATUS_CODEjДHTTP_QUERY_STATUS_TEXT]ЂHTTP_QUERY_RAW_HEADERSџŒHTTP_QUERY_RAW_HEADERS_CRLF‰{HTTP_QUERY_FORWARDEDёHTTP_QUERY_SERVER7$HTTP_QUERY_USER_AGENTўВHTTP_QUERY_SET_COOKIEHTTP_QUERY_REQUEST_METHODPоїъЭЌ–џџџџs0]ёЎ•жœƒ˜ЙDetaild ЙLabel1d ЙLabel3d ЙLabel5d ЙLabel7d Й Label9mЙtxtLocalPathmЙtxtFileNamemЙtxtServermЙtxtUIDmЙ txtPWDh Й cmdFTP_Geth Й cmdFTP_Puth ЙcmdFTP_DirnЙ lstRemoteDird ЙLabel15жЩQв™]х­u=Бi-іЛƒG C@Ѓ_GРMFZy B'A Put ^ MsgBox "Dаone.F(Ed€——В›„( DiA”CЧal Show€_Debug_@ЮsЌНШЉbRР1И†УС]АRemot eƒf ЇIf RРight$(‚Љƒ1) <> "\р" The@еСw†РwЧ&A ƒH8IFfУC' g`tўh@N€hc`LxЫ Ѓ' r" change dir1РxoryH‚= FtpSetCu`rrentРу(љH, Ч „&b С'Ё`alsel'aРErrorO@?.LastDllсb, "CL>b GoTo Ex№idorШI%ЁHa R!B €Ђms:§‰h"CŸcЅ~€dle we got from /€–l to I‡Є„dcщ lpsz$7D ф/f€7`thБ-NewЩ l!Є fFailI"f`!sts if true, f Ё(already exi@;Ёf4, oa@Ўwrit Х% 'СрЙFlags€Яр what a%бzsс gрЧ#g )d~wтF@pbbw@ill be@ansported: 1cASCII, 2@BinajU /textJ only us\edс@7@ !6bpacksч'e^T>PфDы\!2щеЁz &щ–Fƒ(INTERNET_FLAG_RELOAD,у€Ёт, 0Јdgлeџс"cДeР+$ tQ`7џ@O;BAVЋџђ.Iт@VЋџђ.Iт@MSysModules2----------+ џVЋџђ.Iт@VЋџђ.Iт@MSysModules,,,,,,,,,,* џ €€€"JЂљ.Iт@r3мˆ@Iт@WinInet((((((((((& џ €€€‚Свї.Iт@1ŠZiAIт@FTP Module++++++++++) џ€€€§Бѕ/Iт@NК—AIт@frmFTP''''''''''% џ€ €ЩВўђ.Iт@ЩВўђ.Iт@UserDefined,,,,,,,,,,* џ€ €ЩВўђ.Iт@ЩВўђ.Iт@SummaryInfok@B888,,,,,,,* џ@€ €я v&/Iт@bІЦ™AIт@AccessLayout*@B@AE99-------+ џ@€zщџђ.Iт@zщџђ.Iт@SysRel''''''''''% џ€zщџђ.Iт@zщџђ.Iт@Scripts((((((((((& џ€VЋџђ.Iт@VЋџђ.Iт@Reports((((((((((& џ€zщџђ.Iт@zщџђ.Iт@Modules((((((((((& џ€VЋџђ.Iт@VЋџђ.Iт@Forms&&&&&&&&&&$ џzпјђ.Iт@zпјђ.Iт@€MSysRelationships22222222220 џzпјђ.Iт@zпјђ.Iт@€MSysQueries,,,,,,,,,,* џzпјђ.Iт@zпјђ.Iт@€MSysACEs))))))))))' џzпјђ.Iт@zпјђ.Iт@€MSysObjects,,,,,,,,,,* џzпјђ.Iт@Ићђ.Iт@€MSysDbE@B333'''''''% џ@zпјђ.Iт@zпјђ.Iт@€Relationships.........., џzпјђ.Iт@zпјђ.Iт@€Databases**********( џzпјђ.Iт@zпјђ.Iт@€Tables''''''''''% џVCEN фџ__A__џџџџџџџџџџџџџџxџJџџџџџџџџp”џџџџˆ№џџџџџџџџџџџџ8аƒўџџџџџџџџџџџџџџџџџџџџџџџџџ‚ Шџџџџўџџџџџўџџџџџџџџџџџаƒўџџџџџџџ џџџџџџџџџџџџџџPƒўџџџџџџџ˜џџџџџџџџџџџџџџџџџџ‚ Шџџџџўџџџјџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџ(џџџџџџџџџџџџџџџџџџ $ $ $ $ƒўџџџџџџџpџџџџџџџџџџџџџџ џџ $ƒўџџџџџџџ0џџџџџџџџџџџџџџџџџџ‚ Шџџџџўџџџ8џџўџџџџџџџџџџџџџџџƒўџџџџџџџ@џџџџџџџџџџџџџџ *џџџџ`џџџџџџџџџџџџџJџџџџџџџџl”џџџџ‚ ШџџџџўџџџXџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџˆџџџџџџџџџџџџџџџџџџ $ƒўџџџџџџџИџџџџџџџџџџџџџџ $‚ Шџџџџўџџџшџџўџџџџџџџџџџџ џџ $ $џџџџPƒўџџџџџџџ№џџџџџџџџџџџџџџџџџџƒўџџџџџџџPџџџџџџџџџџџџџџ џџ $‚ Шџџџџўџџџ€џџўџџџџџџџџџџџ џџ $ƒўC R €€€bшз™AIт@bшз™AIт@FTP Module))))))))))) П€€€bшз™AIт@bшз™AIт@frmFTP%%%%%%%%%%% П€ €bшз™AIт@bшз™AIт@UserDefined*********** П€ €bшз™AIт@bшз™AIт@SummaryInfo*********** П€ €bшз™AIт@bшз™AIт@AccessLayout+++++++++++ П€bшз™AIт@bшз™AIт@SysRel%%%%%%%%%%% П€bшз™AIт@bшз™AIт@Scripts&&&&&&&&&&& П€bшз™AIт@bшз™AIт@Reports&&&&&&&&&&& П€bшз™AIт@bшз™AIт@Modules&&&&&&&&&&& П€bшз™AIт@bшз™AIт@Forms$$$$$$$$$$$ Пbшз™AIт@bшз™AIт@€MSysRelationships22222222220 џbшз™AIт@bшз™AIт@€MSysQueries,,,,,,,,,,* џbшз™AIт@bшз™AIт@€MSysACEs))))))))))' џbшз™AIт@bшз™AIт@€MSysObjects,,,,,,,,,,* џbшз™AIт@bшз™AIт@€MSysDb''''''''''% џbшз™AIт@bшз™AIт@€Relationships.........., џbшз™AIт@bшз™AIт@€Databases**********( џbшз™AIт@bшз™AIт@€Tables''''''''''% џш{і@@   guogwsgwsordxmf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ˆl€lџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ%€€€ џџџџ" аЈ Аи€ џџџџ" X Yh`€ џџџџ" ˜Y€˜ € џџџџ"€6И˜X"0 јˆ€ џџџџ" Hv( X+hˆP€ џџџџџџџџјХџџxХџџp к иA@ 0Zъџџџџъџџџџъџџџџppи FileName$ = "Util2001.mda"EFAUи UID$ = "bmartling"@и 'UID$ = "pdfftp" rmmи 'Pwd$ = "pdfftp!ge"" и Pwd$ = "bog4Keni"CN sи hard code for now - rmmand co Ъ Ь ЮA@,ЎDone.A@:ЎYour user name here'Ь144.џџџџ8lџџ№ а вA@ џџџџШlџџ(Ўc:\MnMs\'вЎ Util2001.mda'аaVCeSN фпЙ  ф  ф  фџџ ф фџ  ф фFlagsFormModuleNameReplicationVersionTypeTypeInfoVersionџџџџџџџџџџџџџџ?џџџџIndex1џџfm`wjrpvijsvufsruwv vbujswv v}vufm w`amfvov}v`bfvov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsv`bbfvvm`}rxw ov}vdavxoo`u}jpgrxvfudfgjpfdD3073-95AE-11D6-9C83-000000000000}ђ.="*\Rffff*63d2f0564п ˜Рўџџџџџџџџџ(џџџџџџџџџџџџџџ$џџџџШDдˆ`џџџџџџџџџџџџџJџџџџџџџџH”= $ƒўџџџџџџџЈџџџџџџџџџџџџџџџџџџ $‚ тџџџџўџџџиџџўџџџџџџџџџџџ $ƒўџџџџџџџџџџџџџџџџџџџџџ $Dжџџџџ`џџџџџџџџаlџkџџџџџџџџP ”џџџџџџџџ8џџџџƒўџџџџџџџxџџџџџџџџџџџџџџџџџџ‚ тџџџџўџџџАџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџрџџџџџџџџџџџџџџџџџџ $ $ $ƒўџџџџџџџ џџџџџџџџџџџџџџџџџџ $‚ ШџџџџўџџџPџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџ€џџџџџџџџџџџџџџџџџџ $Dк`џџџџџџџџџџџџџJџџџџџџџџL”: $џџџџшџџџџ8ˆџџџџџџџџƒўџџџџџџџшџџџџџџџџџџџџџџџџџџ‚ Шџџџџўџџџ№џџўџџџџџџџџџџџџџџџƒўџџџџџџџШџџџџџџџџџџџџџџџџџџџџџџ8ˆџџџџџџџџƒўџџџџџџџЈџџџџџџџџџџџџџџџџџџ $‚ Шџџџџўџџџиџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџџџџџџџџџџџџџџџџџџџ $џџџџ8ˆџџџџƒўџџџџџџџPџџџџџџџџџџџџџџ џџ $‚ Шџџџџўџџџˆџџўџџџџџџџџџџџџџџџ( $ $ џџџџhƒўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЬ{і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 џџџџџџџџђ.=џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ2œFTP Module 4f3d2fb035*D џџ=œЅ;џџWinInet 1d3d2fab63*Drџџ>œ(ВBџџForm_frmFTP 523d2fb04€џёž? LVAL i_VBA_MODULEЬDЖџџџџџџџџџџџџџџџџџџџџџџџџxоЙЇџџџџ2œ=œџџџџежж…;џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџј<џџЎ< џџ<џџџџџџп№$$$$$$$$`„&џџџџzџџџ џџџџџџџџџџџџџџџџџџрџџџџџџџџ Xии $ƒш'џџџџџџџџџџџџџџџџџџџџ$$P„(џџџџtџџџџџ,$xРƒш'џџџџџџ@џџџџџџџџџџџџџџ`„&џџџџzџџџ џџ$ƒш'џџџџџџ џџџџџџџџџџџџџџ$$$ $$ $Xџџџџ0џџџџP ирџџџџџџџџџџџџџџџџ€ъ€џџџџ@џџџџџџџџ џџт€џџџџ џџџџ @џџџџџџџџƒ"џџџџџџ`џџџџџџџџџџџџџџ4№`џџџџџџџџџџџџќў@˜ џџџџƒŒџџџџƒ џџџџџџРџџџџџџџџџџџџџџ џџ$$$$`„Jџџџџzџџџ џџ@`„LџџџџtџџџџџџџџџXџџџџ0џџџџ ирџџџџџџџџџџџџџџџџ€ƒш'џџџџџџџџџџџџџџџџџџџџ0Ф:0Цќ`„d˜hџџџџџ ses`„fџџџџdџџџџџ`„hџџџџ`џџџџџe chъ€рџџ џџ@џџџџџџџџъ€џџџџ@џџџџџџџџhangƒш'џџџџџџџџџџџџџџџџџџџџX$$$џџџџƒш'џџџџџџ˜џџџџџџџџџџџџџџџџџџ$ƒш'џџџџџџ0џџџџџџџџџџџџџџXџџџџ џџџџXирџџџџџџџџџџџџџџџџ˜ˆh§џџџџ  $џџџџ џџџџXирџџџџџџџџџџџџџџџџШˆ0мћџџј џџџџ "0`џџџџџџџџџџџџ џ@Ј џџџџџџF„Yƒџџџџ џџџџ  €шP„(џџџџtџџџџџџџџџ $$ƒш'џџџџџџLVAL џџџџџџџџџџџџџџџџџџ иP `џџџџџџџџџџџџzџ@џџџџџџџџџџa„ˆƒш'џџџџџџџџџџџџџџџџџџџџџџџџiƒ`џџџџџџџџИ€џџџџiƒbџџџџџџџџџџџџ€џџџџXџџџџ0џџџџ ирџџџџџџџџџџџџџџџџ€Xџџџџџџџџџџџџ0P ирџџџџџџџџџџџџ` €`„‚џџџџxџџџџџџџџџ@$ƒш'џџџџџџ(џџџџџџџџџџџџџџџџџџXџџџџ0џџџџ ирџџџџџџџџџџџџџџџџ€ƒЮџџџџџџ8џџџџџџџџџџџџџџџџџџƒ џџџџџџШџџџџџџџџџџџџџџX  џџџџX ƒ џџџџџџРџџџџџџџџџџџџџџџџџџƒ џџџџџџаџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџ0P ирџџџџџџџџџџџџ€ƒ џџџџџџиџџџџџџџџџџџџџџƒ џџџџџџшџџџџџџџџџџџџџџџџџџƒ џџџџџџШџџџџџџџџџџџџџџџџџџ ,X`џџџџџџџџџџџџ џ@ џџџџџџi„џџџџYƒDџџџџ џџџџА €џџџџYƒFџџџџџџџџа €џџџџYƒHџџџџџџџџџџџџ€џџџџƒ џџџџџџPџџџџџџџџџџџџџџџџџџP„Іџџџџpџџџџџ0ƒ џџџџџџџџџџџџџџџџџџџџƒ џџџџџџXџџџџџџџџџџџџџџџџџџƒ џџџџџџpџџџџџџџџџџџџџџYƒџџџџ џџџџШ €8Yƒ$џџџџџџџџш € iƒђџџџџџџ џџџџџџ€Xƒ џџџџџџxџџџџџџџџџџџџџџџџƒ џџџџџџ€џџџџџџџџџџџџџџ џџH  €`џџџџџџџџџџџџџ@Рџџџџџџ###„џџџџYƒ$џџџџџџџџР €џџџџiƒђџџџџџџ џџџџџџ€џџџџƒ џџџџџџ˜џџџџџџџџџџџџџџƒ џџџџџџˆџџџџџџџџџџџџџџџџџџP„џџџџvџџџџџH ƒ џџџџџџјџџџџџџџџџџџџџџџџџџ є` `џџџџџџџџџџџџ:њ@И џџџџџџ„џџџџ)ƒїџџџџ џџџџџџ€џџџџƒ џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџ№и` 0P џџџџџџџџрџџџџXx €џџџџџџџџh P„џџџџpџџџџџx џџџџH@ИџџџџXџџџџџџџџџџџџиџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLVAL џџџџџџџџџџА0@ићџџџџ џџ@џџџџА @дћџџ џџ @ўџФћџџ џџ Дћџџ џџ џџџџ№ P8Єћџџ џџ џџџџ@ўџ”ћџџ џџ џџџџџџџџџџH „њџџџџ(§џџpџџџџџџџџ`џџџџџџџџџџџџlџ@0џџџџ ŸŒЈYƒџџџџ џџџџџџџџ€џџџџаX„ћџџ џџ Р ˜(€ћџџџџ џџџџ@ўџ|ћџџџџ џџџџўџ<њџџ@ џџџџxџџџџџџџџџџџџџџ˜:њџџџџ џџџџџџџџ˜џџџџџџџџрР џџџџџџџџ  џџџџРџџџџ( џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџа(>@04аlџџџџџ џџџџј џџџџАџџџџИџџџџР˜Иhџџџџџ Р @ўџdџџџџџ џџџџ@ўџbџџџ џџ џџџџH\џџџ џџ џџџџ@ўџXџџџџџ џџџџxHџџџ џџ џџџџ€|ћџџџџ ˜8џџџ џџ џџџџX(џџџ џџ (@ўџџџџ џџ @ўџџџџ џџ џџџџ804:џџџџ0€ppџџџџџ @ўџlџџџџџ @ўџhџџџџџ @ўџfџџџ џџ ˜`џџџ џџ џџџџ€шX\џџџџџ Р@Lџџџ џџ @ўџ<џџџ џџ @ўџ,џџџ џџ џџџџР˜џџџџџџџџаш џџџџџџџџШ џџџџЈ џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрџџџџџџџџ@џџџџˆџџџџџџџџ˜џџџџ џџџџЈџџџџА(Xџџџ џџ @ўџ џџџ џџ џџџџ џџ ˜zџџџџџ џџџџXАpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџ˜џџџџџџџџА џџџџџџџџџџџџа џџџџјџџџџџџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџА0RT04џџАpџџџџџ џџ@џџџџЈџџџџ 0plџџџџџ џџџџ(hџџџ џџ џџџџ@ўџXџџџ џџ џџLVAL џџhZ\:џџџџџџ@pTџџџџџ џџџџ@ўџPџџџџџ џџџџ@ўџ@џџџ џџ џџџџ@ўџ0џџџ џџ џџџџ@ўџ џџџ џџ ((˜џџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџРџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(X@@@lџџџ џџџџџџџџџџƒџџџџ@l^:^npџџ@^џџџџџ Ј@аLџџџ џџ џџџџ@И<џџџ џџ џџџџ@ўџ,џџџ џџ џџ@X(џџџџџ @ўџ$џџџџџ @ўџ џџџџџ @ўџџџџџџ @ўџ џџџ џџ а@ўџќўџџ џџ џџџџPџџџџџџ˜џџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџP џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ00xџџџџџџџџџ0ˆŸ^:^ˆџџџџP„џџџџ&§џџџџP„ џџџџ §џџџџџџџџџџџџј^џџџџџ џџџџџџрlџџџџџ hџџџџШ<џџџ џџ P@ўџ,џџџ џџ ЈџџџџX(џџџџџ џџџџ@ўџ$џџџџџ џџџџ@ўџ џџџџџ р@ўџџџџџџ @ўџ џџџ џџ @ўџќўџџ џџ €0џџџџџџџџџџ0˜џџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџP џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0XHџџџџPxџџџџџШџџџџеџџџџ(џџџџlџџџџџ џџџџ€x џџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪЋ€€И€ џџџџ€Р€и€ш€ џџџџ" ј€€№€H€ џџџџ"Bј€ џџџџ  $0 +@ X` +h ˆ˜€ џџџџ€ .˜  7а/Ј)€ џџџџ€ Р р€ LVAL џџџџ№€ џџџџ" P€и €р € џџџџ№  € џџџџ€ h €€ џџџџ€  € TИ€ .€ ,Ш€ \ј€ D@€ TX€ :ˆ€ џџџџ*Sx€ џџџџ Ј 2Ии h84р p +(@€ џџџџ˜€ џџџџ" €€ € џџџџp X € џџџџ€ ˆ H€ џџџџ€  $L0 А 2Рш <4и №€ џџџџ +(@€ џџџџH€ џџџџ"P X x ˜   ЈА€ џџџџ"р€ш€№€ џџџџ4H h2x˜ Ј€ џџџџА Ш*fр    "2(P  X`h44Ш p€ џџџџx€ џџџџB €€ˆ€˜€ џџџџ  А&Ш&р€ џџџџ6OИ€ џџџџ€ џџџџRX ` hx € ˆ˜   Ј А  ИРШа€ џџџџB€€@€ џџџџ%№ 08€ џџџџˆ€ џџџџџџџџ`ХџџxХ€Zъ@Zъа“6›6Ўbog4Keni' H •и GoTo ExidorиEnd Ifи get the filehang $Є$ *Ў\•A@< &Џ• 0!2Ў FtpPutFileA@4“6aџџ(hџџшA@<иEnd IfA@Ж'haџџˆЎNot in sessionA@:hџџhlџџ`` ZъџџџџZъџџLVAL џџъџџџџЎ bmartling' Flogy/s І$ ~Є•hџџ@и" open internet session and connectA@, •и remote change directoryи GoTo Exidor І$ ~Є•irec“6“6и get the file, already! $ ' І &Џ• 0!2Ў FtpGetFileA@4aџџЎFTP Get worked! Ў should be there.A@:hџџШЎ Close it up? j$4 М•A@Ж'hџџpaџџhЎNot in sessionA@:hџџHlџџ@0 Є”F A@Bg Є”F A@BgЄ'Є'Џ'lџџиХZ ъиZ ъџџџџъџџџџZъџџџџP ZърZъји hard code for now - rmmиUID$ = "pdfftp"Ў pdfftp!ge' H N P R RЄ$T' Є• 0!2Ў InternetOpenA@4uџџРaџџИhџџ  Є• і'LЄ'LhџџP  D X F H Z LЄ$\'\' Є•Џ' 0!2ЎInternetConnectA@4aџџаЏ'hџџ aџџ˜hџџPlџџHXZъъЈZъР ` j• d R fA@l fЄ Є$^'h d h fA@lx hџџ˜ bЎ Err:  ` ^ЎClose Connection and Session? n$: p• • A@Bhџџ  • A@BhџџЄ'Є' •Џ'hџџиhџџаfџџШZ ъръZъЎ readme4.txt' џџџџЈџџџџџџџџx hџџџџ(  $   Є$8'&meat $Ў\' $џџџџ $Є$ *Ў\•и put the fileи put the fileЎFile already existsA@:џџџџ0 lџџ` ZъџџџџъџџџџЎc:\MnMs\'  ђ•h $Ў\' $џџџџш џџџџhџџИ   $ Џ > Є$@'&џџџџР  A@ џџџџр џџџџ( иIf bRet = False Then: $“Рџџџџ` џџџџX ЎFTP Put successful! Ў should be there.A@:џџџџ8 џџџџH џџџџ` иFTP_Put FileName$, LocalPath$LVAL Ў/users.rcn.com/bmartling/' (иPwd$ = "pdfftp!ge"и*Server$ = "3.129.144.112" ' GE ftp serverЎ ftp.rcn.com' Dи RCN serverџџџџј и6bRet = FtpSetCurrentDirectory(hConnection, RemoteDir$)и2 ErrorOut Err.LastDllError, "Change directory."ЎFile already existsA@:hџџ ›Р ЎFile not there.A@:џџџџј џџџџА и FTP_TRANSFER_TYPE_BINARYиFileName$ = "DEFAULT.HTM"и INTERNET_FLAG_PASSIVEhOpeџџџџ˜ и!MsgBox "RemoteDir: " & RemoteDir$џџџџX ЎDone.A@:џџџџ` џџџџˆ Ў Util2001.mda' џџџџ и*Server$ = "3.129.144.112" ' GE ftp serverиUID$ = "pdfftp"иPwd$ = "pdfftp!ge"Ў ftp.rcn.com' Dи RCN serverЎ bmartling' FЎbog4Keni' HZъџџџџъџџџџъџџџџndCo D F HA@,л/ OpenSessionAndConnect (Server$, UID$, Pwd$)џџџџШ Ў#Error in Internet Connect (hOpen): A@:џџџџ˜Ў ./bmartling/' (џџџџ`и6bRet = FtpSetCurrentDirectory(hConnection, RemoteDir$)иIf bRet = False Thenи@ ErrorOut Err.LastDllError, "Remote change directory failed."џџџџZъ(Zъръ $Є$ *Ў\• $Ў\' $hџџ0 І$ ~Є•ЎFile already existsA@:“6р hџџи и get the file •л if Show_Debug_Msgsemи6bRet = FtpSetCurrentDirectory(hConnection, RemoteDir$)иIf bRet = False Thenи2 ErrorOut Err.LastDllError, "Change directory."и GoTo ExidorиEnd If ђ•h   $ Џ > Є$@'& &Џ• 0!2Ў FtpGetFileA@4aџџ ЎFTP Get worked! Ў should be there.A@:hџџр aџџи ЎNot in sessionA@:hџџА ›РЈ І$ ~Є•ЎFile not there.A@:“Рh hџџ` lџџP и FtpGetFile parms:иM hFtpSession session handle we got from the call to InternetConnect(и' lpszRemoteFile remote file pathngи=LVAL dwFlagsAndAttributes what attributes to give the local fileи4 dwContext only used if we use callbacks Interи& lpszNewFile local file pathиV fFailIfExists if true, fail if local file already exists; if false, overwriteиN dwFlags how the file will be transported: 1 = ASCII, 2 = Binaryџџџџ  bЎ Extended Error:  dЎ  hA@:Zъи Ў*.* њЄЄ$Ю'‚ ‚Є• 0!2 Ф•ЎNo files foundA@:uџџиaџџаЎSome error occurredA@:uџџЈhџџ hџџ˜\џџ ‚ њ$ЦЄГи close the file handle ‚ABlџџ(џџџџ  Є$ ќ і( .cZъXи! file handleџџџџиџџџџШZъPъh "Ў;val  ' "џџhangїПа№f ' и' build value list, set row source to itџџџџџџ˜ Ў; њ!Р$ '  Є$ }' Є •  Є $ о' hџџ 'Zъ0 ъP џџџџјџџџџ˜JЗAttribute VB_Name = "FTP Module" Option Compare Database`Explicit Pub bActi@veSesstAs BooleanBhOpen 0Long, hрConne4h Dim dw0Type(bSub ListFiаles( 1€Box) =:h!9' f; handl'Ц fdWIN32_FIND _DATA'j%p, t$ƒƒ0= FtpFind(FirƒJ(ˆf, "*.*", fpd, 0Pƒ If "0 The€R€ Err.L@astDllorЬERROR_€NO_MORERLES €Msg!€ƒ "Noss рfound€у„,рExit €ЃBžlСs„ХSoРƒerroccurrend IfУEШC' build value l@l, set row source tof A’С!DoC Сt$@?& ";" & S­pNulls$(fd.czЏDWLoop WhAyInterne€‹ndNex‚(]Сd) <> 0У‚’.RowSƒ"= Mid€$(t$, 2УТ ' clos@*heЮ‘Call uEC H™ ^ AE‚^†Т@ м_0Get(Х1РLoРcalDir€Cрal Show_@Debug_€hs—СЋж( СБbR€Tб†мSРвRemo4teƒfJВ MRi ght$(Ј1‚#ј"\"LLF@2g 3ж\„L?g`t$&У-З`Ь„ ` Ѓa'!l‹ ## `ms:‰žhрo%СcsecЃ| we gotР from с`+lM†5ущ lpsnzC&D r‚(#?pˆath-NewЩ  l9fFaiˆlIfрqsts if trueрS Ё(alr€eady ex g$s;Ёfa w, overwrit $šЁ 'РЇFlag0sAndцМр whPat aПsс LVAL‹іX HˆиАИ Шџџџџа џџџџџџџџџџџџР`xџџџџџџџџј џџџџџџџџџџџџ8 8Аџџџџџџџџ№џџџџџџџџџџџџџџџџXџџџџЈџџџџџџџџџџџџhш(8P№џџџџџџџџџџџџџџџџ џџџџШџџџџh  џџџџx`˜ˆР(и (џџџџ џџџџџџџџџџџџџџџџ@€ Рџџџџџџџџџџџџ(џџџџ0 X€ џџџџџџџџџџџџ@џџџџџџџџџџџџџџџџЈ џџџџx `рџџџџhјˆџџџџџџџџџџџџ`џџџџџџџџџџџџИр˜јр` xˆ Ш€@ РPP€pаpА иxPp x X HˆиАИ Шџџџџа gЯРЕ#g )dwтFO QbТЉwi`_bрbranspor@ted: 1`DA0SCII`h@BiАnary ПtрrJ only us\edс@7@ !6b№acksЧ'b^ БќTPфDkА!2СƒЩj ˆШFƒ(INTERNET_FLAG_RELOAD,џ„а‡ЗagYAnР‰В ТЗOut_JК У€WDHДEьБ €ЊŽЫeх'EЗAј worked! ЁІц`" shou€Б!here.ПјСY<§ћ %N6ќin]’7фЫ@бпOљбOPuпOпOпOb…пOџ‡Б aQзOЃSРŸOѓŸOA ŸOрYБŸOт єK' ppŸO ’ŸŸOпsх.tp`ЯQы.YY6, Јc•џ-,јˆr,Є‰s,Дџx$,@Ml,Сy,€ succ ]fuўlП,П,8СI(џЕI_-oxq”t _-nПwŽz}}ТG­(*рЉЎС‡ђBOƒle џIј’ГŸш†A4§ =ХŽѓЗцœxЄL^ QЄv eф (Ser#АgАUUIDPPwLd$Єq7Paр@vћ"М‰nQeQŒQРСНБЅ ЅyA(scUserAgent, VZOPEN_TYPE_DIRE@CT, vbQЁSїрЁaХл0T AAiџ\ЗŸZХЗ.љ9.ЪД7$п5'vFсQ|@ уіуqУ TP_T€RANSFERУРBINARY—gu х, VжINVALID_PORT_NUMB0ER, 7xSERVICЧTP,ў r ЎC\&_pMс6&Б5FF| )юrў,Tџ•щ@O?A?ra?EїряъЅ5:uЂc9Az3PrivaрѕFЬunѓэ5(dSєю} аzёУvps,Ш4dw ldwLen8gthw4бЁ7st€rBufferЁГУ Sp0dEіБrror = ERROR_INTERNET_EX€TENDED_И Then InternetGetLastResponse€Info dw:EЈ, vbNullString,2LengthŽstrBuffFe%(dw$ €+ 1, 0)/tTqNMsgBox szCallFunction & " Ext@ended ‚b:э€&ˆj"€†3‡)ƒEnd IfƒQƒIf 7(7rr„1‚7€,vbCrLf"Clos€e ConneƒOBa€-Sess€U?"АYesNo)€пvbгf h_ тхфТHl~eI C/ Щ4@Oјpen ‚‡ЪС ЃW )= 0 hТ“ŠРRbACveФA = FalseгE6С…  †„ІpСБs$(txt$„ЄDim j%, tmp~$CCС€cA j)@In@(, €Chr$(0)„С€3j > 0L1D0Left@€, рj - 1D -С[Ч'H#M4ЮŸT&[ ’ъ0MDW[ЄъPLџџmџџPZ$Єърžˆџџž№ž "pSYž џџžјиA Initializes an application's use of the Win32 Internet functionsžx и User agent constant.АZ$Ў vb wininetъџџи Use registry access settings.џџџџZ$Єъ0џџџџZ$ЄъX €v Z$ЄъXLџџZ$Єъ€ џџџџZ$ІъЈ In€Z$Іъ€LџџZ$Їъа џџи' Opens a HTTP session for a given site.џџž ' џџZ$Єу.ъЈ=Bsž  p 2и7 Number of the TCP/IP port on the server to connect to.Z$ЄъаџџџџZ$ЄFъјџџџџZ$ЄPъ џџZ$ЄЛъ џџџџZ$Є8ъ8 џџZ$І ъ` џџZ$ІъHџџџџZ$Ї€ъˆ МZ$ЄъpџџџџZ$ЄъА џџЇ Z$Єъи џџџџZ$Єъ˜џџџџZ$ЄъџџџџZ$Є+ъР[мZ$Є,ъ(џџи Type of service to access.џџџџZ$ЄъPdиZ$ЄъшHZ$ЄъxАи Opens an HTTP request handle.џџџџžР(и; Brings the data across the wire even if it locally cached.џџџџZ$Ї€ъџџZ$Ї@ъ8Z$Ї ъѓZ$Ї€ъ`џџZ$Ї@ъ(џџи0 Sends the specified request to the HTTP server.џџž x((џџџџи/ Queries for information about an HTTP request.žXџџџџи: The possible values for the lInfoLevel parameter include:Z$ЄъPџџџџZ$ЄъˆџџZ$Є ъ8Z$Є ъАџџZ$Єъ`Z$ЄъˆџџZ$ЄъиЂиZ$ЄъАџџZ$Єъю1Z$Єъи џџZ$Єъ^JZ$Є%ъ(џџZ$Є'ъ(Z$Є+ъPџџZ$Є-ъP(хJZ$Є‘ъxјZ$Є—ъxи8 Add this flag to the about flags to get request header.Z$Ї€ъ џџZ$Ї ъ иA Reads data from a handle opG57MSysDbS#НЃ5#1Form_frmFTP€A0@<0,(џlR$WinInet€ $ НёDFTP Module€'##НLVAL %i_VBA_MODULEGRЖ0ШШ$@œGetProcessHeapFtpGetFileAˆHeapAllocJШd@eHeapFreeЦFtpFindFirstFileARtlMoveMemoryJиœчџџ№RtlMoveMemorylШРџџInternetFindNextFileAчьЌFtpFindFirstFileAџџиFtpGetFileAШ4ЌFtpPutFileAШT FtpSetCurrentDirectoryAШ€@InternetOpenAШЄlInternetConnectAШЬInternetGetLastResponseInfoAШИHttpOpenRequestAШ(ьHttpSendRequestAs aШPicioHttpQueryInfoAtШtfu<tiInternetReadFileШœ U`r InternetWriteFilevbШФetˆX FtpOpenFileAry Шш sАtiFtpDeleteFileAџШ ъдInternetSetOptionAШ4џџјІInternetSetOptionAџШ\  InternetCloseHandleШ„r HgiInternetQueryOptionA ШАЄpъHttpAddRequestHeadersA2џџџџџџџџџџџџџџџџџџџџџџxІЊ,pџџџџ2œ>œџџџџЦ,žžВBџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџЈ<Ў<џџЄ<џџџџџџпиИ&ƒrџџџџџџ(џџџџџџџџџџџџџџџџџџ $ vb wininetџџџџƒrџџџџџџhџџџџџџџџџџџџџџџџџџ $+@pџџџџџџџџџџџџА џџ џџџџiƒаџџџџџџџџџџа„џџџџiƒиџџџџџџџџџџ№„џџџџiƒкџџџџџџџџџџ„џџџџiƒмџџџџџџџџ џџ0„џџџџiƒоџџџџџџџџџџP„џџџџiƒ|џџџџџџџџџџЈ„џџ $A$ژ’@BџџџџџџџџџџџџџџLџџiƒрџџџџџџџџџџџџџџ„џџџџƒrџџџџџџpџџџџџџџџџџџџџџџџџџ+ЮˆDpџџџџџџџџџџџџ0џџD џџџџiƒаџџџџџџџџџџP„џLVAL &џџџiƒвџџџџџџџџџџp„€)ƒдџџџџџџџџx€36Eiƒ|џџџџџџџџџџА„CTruiƒжџџџџџџџџџџџџџџ„Fa $рџџџџ„zDژ–hBџџџџџџџџџџџџџџLџџЪ˜š@BџџџџџџџџџџџџџџژœBџџџџџџџџџџџџџџsN.ژ И€BџџџџџџџџџџџџџџLџџЪ˜ЄИBџџ џџџџџџџџџџџџژІрBџџ џџџџџџџџџџџџxtP№pџџџџLџџ (" Ј@џџџџh€Њ(џџџџџџh€ЌџџџџџџUЇЎ˜Xџџџџh€АpџџWИ(€Вˆ8МP$(€ДА ЈџџЇ P$(€ЖаШџџџџP$h€Ишџџ[мh€К џџ]Яh€М$$џџ`дh€О0((џџdи(€РP,,Hgл А(€Тџџџџ40hсџџ 8џџџџLџџ $ˆ+ЦpЌpџџџџџџџџџџџџШџџЌ џџ/iƒЪџџџџџџџџџџш„џџџџ)ƒЬџџџџџџџџџџџџ€nѓA$ƒrџџџџџџаџџџџџџџџџџџџџџџџџџј иџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџј `iƒ|џџџџџџи„џџџџiƒжџџџџџџџџџџ„џџџџј pџџџџџџџџџџџџ8 џџ ј иџџџџџџX„iƒиџџџџџџx„Ђиiƒкџџџџџџ˜„ю1iƒмџџџџ џџИ„^Jiƒоџџџџџџи„iƒ|џџџџџџј„(хJiƒрџџџџџџџџџџ„+8ј pџџџџџџџџџџџџX џџ  iƒаџџџџџџџџџџx„iƒтџџџџџџџџџџ˜„iƒиџџџџџџџџџџИ„iƒ|џџџџџџџџџџи„iƒрџџџџџџџџџџџџџџ„+.x @pџџџџџџџџџџџџ8 џџ@ iƒаџџџџџџџџџџX „iƒфџџџџџџџџџџџџџџ„+T lpџџџџџџџџџџџџИ џџl iƒцџџџџџџџџџџи „iƒшџџџџџџџџџџј „iƒъџџџџџџџџџџ „iƒьџџџџџџџџџџ8 „iƒюџLVAL 'џџџџџџџџџџџџџ„Ъ˜PXBџџџџџџџџџџџџџџLџџЪ˜XЈ Bџџџџџџџџџџџџџџژє€BџџџџџџџџџџџџџџЪ˜VЈCџџџџџџџџџџџџџџLџџX H„Ю'џџџџLџџ+\p pџџџџџџџџџџџџX џџ iƒјџџџџџџџџџџx „iƒњџџџџџџџџџџ˜ „iƒќџџџџџџџџџџИ „iƒўџџџџџџџџџџи „iƒџџџџџџџџџџј „iƒџџџџџџџџџџ „iƒюџџџџџџџџџџ8 „iƒџџџџџџџџџџџџџџ„ џџџџLџџ+lРИpџџџџџџџџџџџџА џџИ iƒџџџџџџџџџџа €iƒџџџџџџџџџџ№ „iƒ џџџџџџџџџџџџџџ€ژ PBџџџџџџџџџџџџџџLџџЪ˜` 8BџџџџџџџџџџџџџџژH BџџџџџџџџџџџџџџЪ˜p€CџџџџџџџџџџџџџџLџџЪ˜и Bџџџџџџџџџџџџџџژ ˜BџџџџџџџџџџџџџџЪ˜$РBџџ!џџџџџџџџџџџџLџџЪ˜(P,Bџџ#џџџџџџџџџџџџژZшBџџ$џџџџџџџџџџџџЪ˜,Bџџ&џџџџџџџџџџџџLџџ№H„€(џџџџLџџ+.xьpџџџџџџџџџџџџџџь iƒ0џџџџџџџџџџ „iƒ2џџџџџџџџџџ@„iƒ4џџџџџџџџџџ`„iƒ6џџџџџџџџџџ€„iƒ8џџџџџџџџџџ „iƒ:џџџџџџџџџџР„iƒюџџџџџџџџџџр„iƒџџџџџџџџџџџџџџ„Ъ˜>` Cџџ)џџџџџџџџџџџџLџџЪ˜BP@Cџџ+џџџџџџџџџџџџژZˆBџџ,џџџџџџџџџџџџ+DXpџџџџџџџџџџџџИџџ  iƒFџџџџџџџџџџи„iƒHџџџџџџџџџџј„iƒJџџџџџџџџџџ„iƒLџџџџџџџџџџ8„iƒNџџџџџџџџџџџџџџ„+P<pџџџџџџџџџџџџ˜џџ<  iƒFџџџџџџџџџџИ„iƒRџџџџџџџџџџи„iƒTџџџџџџџџџџј‚iƒVџџџџџџџџџџ‚iƒXџџџџџџџџџџџLVAL (џџџ‚ژ^А Bџџ.џџџџџџџџџџџџLџџЪ˜bˆBџџ0џџџџџџџџџџџџژdиBџџ1џџџџџџџџџџџџЪ˜hBџџ3џџџџџџџџџџџџLџџЪ˜lBџџ5џџџџџџџџџџџџژn(Bџџ6џџџџџџџџџџџџЪ˜rP'Bџџ8џџџџџџџџџџџџLџџЪ˜vx-Bџџ:џџџџџџџџџџџџژxx‘Bџџ;џџџџџџџџџџџџЪ˜| €Cџџ=џџџџџџџџџџџџLџџЪ˜ЂШ(Bџџ?џџџџџџџџџџџџ€+€Р`pџџџџџџџџџџџџ@џџ`  iƒ‚џџџџџџџџџџ`„iƒTџџџџџџџџџџ€„iƒ„џџџџџџџџџџ „iƒ†џџџџџџџџџџџџџџ€+ˆ€ˆpџџџџџџџџџџџџџџˆ  iƒ‚џџџџџџџџџџ „iƒTџџџџџџџџџџ@„iƒŠџџџџџџџџџџ`„iƒ†џџџџџџџџџџџџџџ€+Œ`АpџџџџџџџџџџџџРџџА  iƒаџџџџџџџџџџр„iƒŽџџџџџџџџџџ„iƒџџџџџџџџџџ „iƒюџџџџџџџџџџ@„iƒџџџџџџџџџџџџџџ„+’рдpџџџџџџџџџџџџ  џџд iƒаџџџџџџџџџџР„iƒ”џџџџџџџџџџџџџџ„+– јpџџџџџџџџџџџџ џџј iƒ˜џџџџџџџџџџ@„iƒšџџџџџџџџџџ`„iƒTџџџџџџџџџџ€‚iƒVџџџџџџџџџџџџџџ„+œ` pџџџџџџџџџџџџрџџ  iƒ˜џџџџџџџџџџ„iƒšџџџџџџџџџџ „iƒTџџџџџџџџџџ@„iƒVџџџџџџџџџџџџџџ„+BРHpџџџџџџџџџџџџ џџH iƒžџџџџџџџџџџџџџџ„+ рppџџџџџџџџџџџџџџp iƒ˜џџџџџџџџџџ „iƒšџџџџџџџџџџ@„iƒTџџџџџџџџџџ`‚iƒVџџџџџџџџџџџџџџ‚ШџџџџLџџЄџџџџАџџџџh€ІШџџh€Јџџџџџџ+Њџџџџœpџџџџџџџџџџџџ џџœ LVAL )iƒFџџџџџџџџџџ@„iƒHџџџџџџџџџџ`„iƒJџџџџџџџџџџ€„iƒЌџџџџџџџџџџџџџџ„Ъ˜Вџџџџ€CџџBџџџџџџџџџџџџLџџ№H„)џџџџLџџџџџџ8"HџџџџLџџџџџџџџџџџџџџЪ† џџџџLџџџџџџџџџџџџџџЪ˜”№BџџџџџџџџџџџџџџЪ˜˜BџџџџџџџџџџџџџџЪ˜žh BџџџџџџџџџџџџџџЪ˜ЂBџџџџџџџџџџџџџџЪ˜ФBџџ џџџџџџџџџџџџЪN00Hџџ џџџџџџџџџџџџЪ˜№X Bџџ џџџџџџџџџџџџЪ˜ђ€ BџџџџџџџџџџџџџџЪ˜іа BџџџџџџџџџџџџџџЪ˜jау.BџџџџџџџџџџџџџџЪ˜ јBџџџџџџџџџџџџџџЪ˜ FBџџџџџџџџџџџџџџЪ˜8 ЛBџџџџџџџџџџџџџџЪ˜ˆ BџџџџџџџџџџџџџџЪ˜А BџџџџџџџџџџџџџџЪ˜"Bџџ џџџџџџџџџџџџЪ˜&(+Bџџ"џџџџџџџџџџџџЪ˜*xBџџ%џџџџџџџџџџџџЪ˜>8€Cџџ'џџџџџџџџџџџџЪ˜<@Cџџ(џџџџџџџџџџџџЪ˜@(€Cџџ*џџџџџџџџџџџџЪ˜\8Bџџ-џџџџџџџџџџџџЪ˜`` Bџџ/џџџџџџџџџџџџЪ˜fАBџџ2џџџџџџџџџџџџЪ˜jиBџџ4џџџџџџџџџџџџЪ˜p(%Bџџ7џџџџџџџџџџџџЪ˜tP+Bџџ9џџџџџџџџџџџџЪ˜z —Bџџ<џџџџџџџџџџџџЪ˜~Ш Cџџ>џџџџџџџџџџџџЪ˜Ў№Cџџ@џџџџџџџџџџџџЪ˜А  CџџAџџџџџџџџџџџџ`˜ˆР(и (џџџџ џџџџџџџџџџџџџџџџ@€ Рџџџџџџџџџџџџ(џџџџ0 X€ џџџџџџџџџџџџ@џџџџџџџџџџџџџџџџЈ џџџџx `рџџџџhјˆџџџџџџџџџџџџ`џџџџџџџџџџџџИр˜јр` xˆ Ш€@ РPP€јаpА иxPp x X HˆиАИ Шџџџџа џџџџџџџџџџџџР`xџџџџџџџџј џџџџџџџџџџџџ8 8Аџџџџџџџџ№џџџџџџџџџџџџџџџџXџџџџЈџџџџџџџџџџџџLVAL *hш(8P№џџџџџџџџџџџџџџџџ џџџџШџџџџh  џџџџx`˜ˆР(и (џџџџ џџџџџџџџџџџџџџџџ@€ Рџџџџџџџџџџџџ(џџџџ0 X€ џџџџџџџџџџџџ@џџџџџџџџџџџџџџџџЈ џџџџx `рџџџџhјˆџџџџџџџџџџџџ`џџџџџџџџџџџџИр˜јр` xˆ Ш€@ РPP€pаpА иxPp x X HˆиАИ Шџџџџа џџџџџџџџџџџџР`xџџџџџџџџј џџџџџџџџџџџџ8 8Аџџџџџџџџ№џџџџџџџџџџџџџџџџXџџџџЈџџџџџџџџџџџџhш(8P№џџџџџџџџџџџџџџџџ@ `˜ˆР(и (џџџџ џџџџџџџџџџџџџџџџ№@€ Рџџџџџџџџџџџџ(џџџџ0 X€ џџџџџџџџџџџџ@џџџџџџџџџџџџџџџџЈ џџџџx `рџџџџhјˆџџџџџџџџџџџџ`џџџџџџџџџџџџИр˜јр` xˆ Ш€@ РPP€pаpА иxPp x X HˆиАИ Шџџџџа џџџџџџџџџџџџР`xџџџџџџџџј џџџџџџџџџџџџ8 8Аџџџџџџџџ№џџџџџџџџџџџџџџџџXџџџџЈџџџџџџџџџџџџhш(8P№џџџџџџџџџџџџџџџџh"№џџџџџџџџџџџџџџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEDџџџџџџџџ"ўЪА€€ џџџџ„ `„ p„ €„ „  „ А„ Р„ а„ р„ №„ € џџџџ€€€ €(€ џџџџ€0€8€@€H€P€X€`€h€p„ x„ ˆ€˜€ џџџџ„  € џџџџH€Р€ џџџџH€А€ џџџџH€$и€ џџџџH€$№€ џџџџH€€ H€ џџџџH€`€ џџџџ€ x„˜€ џџџџ€ $А„ и„LVAL + ш„ ј„ € џџџџ„ „ („8€ џџџџ€ .HH€$x€ џџџџ„ H€$ € џџџџ€ >И„ ј„ „ „ („ 8„ H„ X„h€ џџџџ„ x„ ˆ„ ˜€ џџџџ„ Ј„ И„ Ш„ и€ џџџџ€ "ш„ „ „ 0€ џџџџ€ $@H€h€ џџџџ€ B€„Ш„и„ш€ џџџџ„ј„€ џџџџ€ 6H€P€ џџџџ€ 6hH€ € џџџџ€ @И„ ј„ „ „ („ 8„ H„ X„ h„ x„ ˆ„ ˜„ Ј„ И„ Ш„ и„ ш„ ј€ џџџџ€ >„H„X€ џџџџ€ HhH€А€ џџџџH€$Ш€ џџџџH€$р€ џџџџH€ј€ џџџџH€ € џџџџH€ € џџџџ€ H0 H€x € џџџџ€ :ˆ H€Ш € џџџџ€ 2и „  € џџџџ€ P € Hp € HИ € € € € € џџџџ€ H H€h € џџџџ€ \€ € џџџџ€ Zр „@ € џџџџ€ @P „ € џџџџ€ Z  € @ „@ € џџџџ€ џџџџX ` ХџџxХџџh@рZ$ІъџџџџZ$Іъџџџџž Аž PZ$Єъ€Z$Єъ@џџZ$Іъ№"чZ$ІъhџџZ$ІъZ$Іъ@џџZ$І ъџџџџZ$І€ъhџџZ$ІъИJZ$ІъDџџZ$ІъИ&2шј[ъ[ъ(mџџРш@[ъX[ъp[ъ[ъА[ъа[ъш[ъ[ъ[ ’ъ0MDW[ЄъPLџџmџџPZ$Єърžˆџџž№ž "pSYž џџžјиLVAL ,A Initializes an application's use of the Win32 Internet functionsžx и User agent constant.АZ$Ў vb wininetъџџи Use registry access settings.џџџџZ$Єъ0џџџџZ$ЄъX €v Z$ЄъXLџџZ$Єъ€ џџџџZ$ІъЈ In€Z$Іъ€LџџZ$Їъа џџи' Opens a HTTP session for a given site.џџž ' џџZ$Єу.ъЈ=Bsž  p 2и7 Number of the TCP/IP port on the server to connect to.Z$ЄъаџџџџZ$ЄFъјџџџџZ$ЄPъ џџZ$ЄЛъ џџџџZ$Є8ъ8 џџZ$І ъ` џџZ$ІъHџџџџZ$Ї€ъˆ МZ$ЄъpџџџџZ$ЄъА џџЇ Z$Єъи џџџџZ$Єъ˜џџџџZ$ЄъџџџџZ$Є+ъР[мZ$Є,ъ(џџи Type of service to access.џџџџZ$ЄъPdиZ$ЄъшHZ$ЄъxАи Opens an HTTP request handle.џџџџžР(и; Brings the data across the wire even if it locally cached.џџџџZ$Ї€ъџџZ$Ї@ъ8Z$Ї ъѓZ$Ї€ъ`џџZ$Ї@ъ(џџи0 Sends the specified request to the HTTP server.џџž x((џџџџи/ Queries for information about an HTTP request.žXџџџџи: The possible values for the lInfoLevel parameter include:Z$ЄъPџџџџZ$ЄъˆџџZ$Є ъ8Z$Є ъАџџZ$Єъ`Z$ЄъˆџџZ$ЄъиЂиZ$ЄъАџџZ$Єъю1Z$Єъи џџZ$Єъ^JZ$Є%ъ(џџZ$Є'ъ(Z$Є+ъPџџZ$Є-ъP(хJZ$Є‘ъxјZ$Є—ъxи8 Add this flag to the about flags to get request header.Z$Ї€ъ џџZ$Ї ъ иA Reads data from a handle opened by the HttpOpenRequest function.žž Рџџž €ž`8 žр ž џџиB Closes a single Internet handle or a subtree of Internet handles.ž`џџи3 Queries an Internet option on the specified handležРџџи+ Returns the version number of Wininet.dll.LVAL -@(џџџџZ$Є(ъШ8 иJ Contains the version number of the DLL that contains the Windows InternetиA functions (Wininet.dll). This structure is used when passing theиB INTERNET_OPTION_VERSION flag to the InternetQueryOption function.ш˜[ъА[ъШmџџаиB Adds one or more HTTP request headers to the HTTP request handle.žр˜ иV Flags to modify the semantics of this function. Can be a combination of these values:ј иT Adds the header only if it does not already exist; otherwise, an error is returned.џџџџZ$ЇъШџџи9 Adds the header if it does not exist. Used with REPLACE.Z$Ї ъ№иT Replaces or removes a header. If the header value is empty and the header is found,и: it is removed. If not empty, the header value is replacedZ$Ї€ъ џџџџџџ џџџџRЖAttribute VB_Name = "WinInet" Option Explicit Pub, Const MAX _PATHj260 8NO_ERR OR8 4FILE_ATTRIBUTE_READOˆNLY)&H1 F +HIDDEN)2)SYSTEM)4)DIRECTOR@œVARC0HIVEAœNOаRMAL8€U0PORABCOMPRESSED„.œOFFLINƒZ100€ Type СWTIME dwLowDateTi„As Long!‰HighЯEnd AA‰BWIN32_FIND_DATAIFileЦžs ЮftC8reaŸХ )ftLastAcceФss] Wri‡3ТnС#SizeA6O#†РEOdwRes@erved01]cBн@S@тng *еЧKcAlptern@dС 1/€Е ]Šц‚о_РрMODREaLESŠ18Ш№Declar @uncт|FtpFindFirstA Lib "winiР.dll" Alias "-A" _ (ByVal hFTPSessA‡$;, Clps€zSearchт -Ц,СУOldle@LaьHe dwF8lag†GЧ`“telntA!W)YI n!,eРndNeўxмБC aЦ `)eр, lpv+”ˆGAц•o4TPGСleК3dџ2ч2Remoteі2New­ƒfFailI@fExistт2B@oolean,6AМndo(@ƒ л;xЫ;ѓ œ[Puќ:РZd'ƒЃZLocalџ&~z,€gпуБFп @SetCurr@bDirectoьryzGџyуЪ-?>8>‡&> ' In itial@Ws `an ap1†"_'s use of the аˆ32Sаѓ9 fФJsП †F…Lѕ9OpenЏЧELYњsAgєCГV}ѕ+lФfasp СEЅsрProxyЛ\"-c"СуBypas‚1|ŠL‚Б' UАe a cA—antr.ьŒscAC №›vLb 4[ œ " XregP9as settingsНINTERNET_OPEN_TYPE_p†CONИFIGd]†я_г”OСfl П OXQ—3ЏSINVALID_ ‘T_NUMBEєЄ  g_TR@ANSFERS ApSCIIPЅПBIN…—MЅF FLAвGРЎSSЕŸ8P”„” ' ‘&p, HTTPАУoLVAL .for aа givP(sˆЗїn]Е(Аkn :O+M+„z+hUпw‚ysSaŠr]*#*nУPorcЂUЁger9,A&n1Т6=з/p-wordЧсnМ-aice‡p€‚-lџ{Pl teќ]у0ёG9< #E€XTENDEDVШ№1200‡&/$€ s Ѕ@p№6eInfЎoяэOo (e€lpdwErr№ vC`Б Єp‘Bufxfer$СУLрengthЅU>0Numb ”STCРP/IP pPм‹СTАDvto АD‚&to@@DEFрAULT_ё2ё7Р42нйжХGOPHћ 8є7џBЬ3в=а—.вобSх44oC!мSOCKі10'еNв=IG№кE_CERTЫE_дGy  &HР#Я фоC>NКзњЙІ ВSEјCURУйcEиm№0 ііOPTION_YN@ы_ЁлOUTп ŸKд 0юEАK6 Ж Public Const INTERNET_OPTION_SEND_TIMEOUT = 5  РUS~AME X28VPASSPWORD+9+ROXY_]43"1 c44Н' Type of service to access.•(€iVICE_FTP€U1GOP˜HERjHT‚(e ' Ope@ns an  requeЩhandle‡MDeclare Funcˆtio€ttpRLib "wininet.dll" Alias "H A" _ (ByVahl hSAAAs Long, УsVerb StriˆObj€ectName=Р sФ… @Re ferer om8ethЩ lF0lagsN@­teДxtХ)CzB+s the daDta€yrosУwi€Peven if it locally cachedV‚FLAG@_RELOAA­&8H80zТ KEEP_CONNEЦCе†&H4Т š MULTIPAR1о&H2 Œ GEрNERICР$[$Х 0WRITчE 00!C%Send##specified Ÿ%PdA(ЂRferМQџ ПQ Q QDQРDЂQ%­QHeader bA Rl$LengЬthEAІXOpСe`]? ` lЅ‹JIn teger%Queries for in maЂpрaboutwќ$a єyI€ zvЦ/vt$jl LР[lЉ  n 0sBuf`oСAnЄy,!€Bylƒo'‚Indexe "T lp@kiblрe val—$СFQhpar€…ti€nclude:ЌYAL_QUERYсeTENT_TYPсUЎ0LENGTH k дŠкhEXPаIRES€1_ЕLAST_MODPIFIEс|1ИP RAGMA 7—№VERSРщЁтˆ@STATUS DG"Mт/TEXƒ2XRAW_HEA6D 2˜_CЈRLFс2/ Pє€FORWARDђК3TuБsТp3џГFq}_A0Jс 3ХиT№OKI.€RE`$QETH:O14_!P$DEdNI’ 40gPЁBˆAUTH№VQŒ40@ Ё{Add`fОi`A`j…‘/#Af‚kб0Tget&Uh2LчAџг—ј ‚cE g„›­pNUMBb•c…^Rsуpfrom da † oа‡@_bцyђrМ‚ fд†MvˆЭaRr0‡Fi€@OM?`Wѕ†­]ЧIмYNumBytesToб…HтKlАberќOfщ}Jф>”… рWriteŸ "” ў  8‘ ˜г § …Ÿ XciŸ ЃЁоF“Ё? hЁј "јїxюh`ЏžЁ^ sAП БЅќlAтЕZ5$пpz>lпƒЉ‘x/&DeќleДА„ $Бз/ЪА” psz'BooleanЧO 'Л'Sets‡€џEЛЎP E(хЧє t6|эФS+Џ џсЄЖ  ;я џя ”я 1Dя Т›mш  C ng§@' CˆlosАœa s ЧKЕ 6Qr№Qsubјtre"уќуOE@ЃЛ‘ "H2м_ иI SПѕ Ÿ 1 aЇасFo3џ рбfwЛ]І{Џ Є rЅ5ГOption Lib "wininet.dll" Alias " InterфLVAL№ei_VBA_MODULE^FЖџџџџџџџџџџџџџџџџџџџџџџxоK9џџџџ2œ=œџџџџgжж=џџџџпџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ЈџџЎџџџџџџџџџџџџLџџџџџџџџџџџџ0”џџК џџџџLџџџџџџџџ> џџџџ<4џџ<8џџ<<џџ<џџџџџџ"Г/=*\R1*#55$*\Rffff*193d2faaf5$*\Rffff*823d2fb3f9(*\Rffff*193d2faaf5\1*\R0*#2*\R0*#1*\R0*#b*\R1*#53*\R0*#c*\R0*#11*\R0*#16*\R0*#10п№$$$$$$$$`„&џџџџzџџџ џџџџџџџџџџџџџџџџџџрџџџџџџџџ Xии $ƒш'џџџџџџџџџџџџџџџџџџџџ$$P„(џџџџtџџџџџ,$X Р$ƒш'џџџџџџ@џџџџџџџџџџџџџџ`„&џџџџzџџџ џџ$ƒш'џџџџџџ џџџџџџџџџџџџџџPQueryАA" _ (ByVal h@ As L ong, 0lВ,Ref sBufferZAny XlLeng4thI)^ger ' Returns t€he versЙnumbOof WО. Public Const INTERNET_OPTIO@N_VERS 0= 40-€taFi–-8DLL€ˆAќndФŠСYУCBw@6Тƒ€0УwIf bA€”ve„Ђ@-ТЛ Th enУЁ"MsgBox "Ѕnot4 aт.DЁExœitЃRЂ@TIfJUMLVALY{me“ЕInternetSetOptionX№ hInternetЪІlOptionZмInternetSetOptionStr*FhInet‡InternetQueryOptionњxINTERNET_OPTION_VERSIONЌѕtWinInetDLLVersion1У lMajorVersionЪ lMinorVersion2,HttpAddRequestHeadersЊ lModifiersтъHTTP_ADDREQ_FLAG_ADD_IF_NEW*2HTTP_ADDREQ_FLAG_ADDЊњHTTP_ADDREQ_FLAG_REPLACEкŒ _B_str_Right#( _B_var_StringгŠmsgboxc ‰€џџџ_B_var_msgboxcŒgotД” €џџџ_B_var_gotХQAginy €џџџ_B_var_IfPђdone … €џџџ_B_str_ServerVЧ Form_frmFTPЉT txtServerХ~txtUIDB9txtPWDf  txtFileNamedх txtLocalPathУНcmdFTP_Get_Clickе Form_Load{CloseConnectionхtcmdFTP_Put_ClickјFFormтDetail2Label1,Label3,Label5‘,Label7“,Label9•, cmdFTP_Getƒ^ cmdFTP_Putє€џClickŠу€џValueфKShow_Debug_MsgsХж ListFilesМъList1€ы€џListBox™фfd7]AddItem‡ InternetNextFileЉџja€џColumn i cmdFTP_Dir O lstRemoteDirfcmdFTP_Dir_Click‡ttk €џRowSource2 OpenSessionp StripNullsР…txt†лt–02=Babcд+e ghэiаjэ0kд РРРЮpЙѕ/Iт@чArialћ[Event Procedure]џd2§hgh€ф MS Sans Serif§m45§n2§˜`Фœ€пDetailџ m7U`и aXbxcЄi м txtLocalPathўd5U`haXbchd eМмLabel1н Local Path:§m7U`и atbxcЄi kм txtFileNameўd5U`hatbchd eМмLabel3н File Name:§m7U`и abxcЄi kм txtServerўd5U`habchd eМмLabel5нServer:§m7U`и aЌbxcЄi kмtxtUIDўd5U`haЌbchd eМмLabel7нUser ID:§m7U`и aШ bxcЄi kмtxtPWDўd5U`haШ bchd eМмLabel9н Password:§h1U`P a˜ bc”g hМiм cmdFTP_GetнFTP Getп[Event Procedure]§h1U`Рa˜ bc”g hМiм cmdFTP_PutнFTP Putп[Event Procedure]§n03Ua0bXcФd”lм lstRemoteDirо Value List§h1U`рabc”g hМiм cmdFTP_DirнFTP Dirп[Event Procedure]§d35U`Haаbcќd eМмLabel15нrSimple FTP stuff - it works! If you've just got to get or put, it's all you need. You can fancy it up as needed.§LVAL 8i_VBA_PROJECT Ьa^џ  ф*\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-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 џџџџџџџџђ.=џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ2œFTP Module 863d2fb4a3*D џџ=œ…;џџWinInet 1d3d2fab63*Drџџ>œ(ВBџџForm_frmFTP 963d2fb68c*DЩџџТЦHЛџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx *вБЉ•жœƒџџџџџџџџш*вБЉ•жœƒџџџџџџџџ|0]ёЎ•жœƒџџџџџџџџ(€ џ QAccess=€џdimR„џf_€џGotoА€џSubVBAїтWin16С~Win32MacГВDAOž‚FTPLVAL 9 FTP ModulenT €џ_EvaluateйbActiveSessionЖ€hOpenЄ3 hConnectionU‹dwType‰ЋTestodFileNamejУ LocalPathŒэInputBoxЯ FTP_GetnAFTP_PutпsLocalDir(—bRet\ RemoteDirдюRight OpenSessionAndConnectфxFtpSetCurrentDirectory’ErroŠ LastDllErrorErrorOut0‡Exidor’  FtpPutFileеMsgBox—RMyCloseВ&INTERNET_FLAG_RELOADx8 FTPGetFileY4InternetCloseHandle€іServerсЧUIDЄоPwdШХPassive­ŽnFlag*– scUserAgentŒYINTERNET_OPEN_TYPE_DIRECT & vbNullStringЎТ InternetOpenЗ€INTERNET_FLAG_PASSIVEЦьINTERNET_INVALID_PORT_NUMBER;ЌINTERNET_SERVICE_FTP#ЄInternetConnect3ЪvbCrLfЏЌdError„_szCallFunctionw dwIntErrorДѓdwLength strBuffer 5ERROR_INTERNET_EXTENDED_ERROR‘,InternetGetLastResponseInfo‰ЅvbYesNovbYesa?WinInet+9GetProcessHeap$–kernel32_Ѕ HeapAllocР0hHeapЎdwFlags/€dwBytesжHeapFreeM=lpMemь0HEAP_ZERO_MEMORYлXHEAP_GENERATE_EXCEPTIONS ѕ CopyMemory1ЊWhpvDestјя hpvSourceмŒcbCopyCю CopyMemory2ЋWMAX_PATHЇ(NO_ERRORIFILE_ATTRIBUTE_READONLYT…FILE_ATTRIBUTE_HIDDEN<‰FILE_ATTRIBUTE_SYSTEM@DFILE_ATTRIBUTE_DIRECTORYцFILE_ATTRIBUTE_ARCHIVE&%FILE_ATTRIBUTE_NORMALО{FILE_ATTRIBUTE_TEMPORARYzFILE_ATTRIBUTE_COMPRESSED (FILE_ATTRIBUTE_OFFLINE>MFILETIME% dwLowDateTimeЖdwHighDateTimeBЦWIN32_FIND_DATAрЖdwFileAttributeso–ftCreationTimeН{ftLastAccessTimeЕХftLastWriteTime0 nFileSizeHigh>N nFileSizeLowb5 dwReserved0Д@ dwReserved1Е@ cFileName  cAlternateіїERROR_NO_MORE_FILESBNInternetFindNextFileЫ{ wininet.dllЈqhFindl lpvFindDataр}FtpFindFirstFilem hFTPSessionJ\lpszSearchFile'ЇlpFindFileData[Œ dwContentм}lpszRemoteFilemК lpszNewFile3? fFailIfExistsadwFlagsAndAttributes‚ dwContextN lpszLocalFile|V lpszDirectoryЉ?sAgentIЈ lAccessTypekM sProxyNaLVAL :me–Œ sProxyBypassх0lFlagsџЈINTERNET_OPEN_TYPE_PRECONFIG! INTERNET_OPEN_TYPE_PROXYЛДFTP_TRANSFER_TYPE_ASCIIе FTP_TRANSFER_TYPE_BINARY‰vhInternetSession™œ sServerNameН nServerPort a sUsernameЫ sPasswordžјlServicezFlContextŽW lpdwErrorЫъ lpszBuffer+xlpdwBufferLength€zINTERNET_DEFAULT_FTP_PORT(§INTERNET_DEFAULT_GOPHER_PORT&INTERNET_DEFAULT_HTTP_PORTа INTERNET_DEFAULT_HTTPS_PORTсчINTERNET_DEFAULT_SOCKS_PORT…&INTERNET_FLAG_IGNORE_CERT_DATE_INVALIDт$INTERNET_FLAG_IGNORE_CERT_CN_INVALID;\INTERNET_FLAG_SECUREЎ~INTERNET_OPTION_CONNECT_TIMEOUTЊINTERNET_OPTION_RECEIVE_TIMEOUT/INTERNET_OPTION_SEND_TIMEOUTџ\INTERNET_OPTION_USERNAME3INTERNET_OPTION_PASSWORD•INTERNET_OPTION_PROXY_USERNAMEsАINTERNET_OPTION_PROXY_PASSWORD™INTERNET_SERVICE_GOPHERзINTERNET_SERVICE_HTTP2HttpOpenRequestя hHttpSessionб%sVerb‹Ї sObjectNameЎvsVersionoГsRefererœ< somethingIINTERNET_FLAG_KEEP_CONNECTIONŠ<INTERNET_FLAG_MULTIPARTЄ. GENERIC_READŠ… GENERIC_WRITEЩПHttpSendRequestaЋ hHttpRequest1sHeaders№ыlHeadersLengthb sOptional‘lOptionalLengthКќ HttpQueryInfoЄ lInfoLevelЌ&sBufferzd lBufferLengthвЉlIndexщљHTTP_QUERY_CONTENT_TYPEbHTTP_QUERY_CONTENT_LENGTHDДHTTP_QUERY_EXPIRES\КHTTP_QUERY_LAST_MODIFIEDџеHTTP_QUERY_PRAGMAЊйHTTP_QUERY_VERSIONEэHTTP_QUERY_STATUS_CODEjДHTTP_QUERY_STATUS_TEXT]ЂHTTP_QUERY_RAW_HEADERSџŒHTTP_QUERY_RAW_HEADERS_CRLF‰{HTTP_QUERY_FORWARDEDёHTTP_QUERY_SERVER7$HTTP_QUERY_USER_AGENTўВHTTP_QUERY_SET_COOKIEHTTP_QUERY_REQUEST_METHODPоHTTP_STATUS_DENIEDSоHTTP_STATUS_PROXY_AUTH_REQ[HTTP_QUERY_FLAG_REQUEST_HEADERSяHTTP_QUERY_FLAG_NUMBER9InternetReadFileдйhFile#lNumBytesToReadтlNumberOfBytesReadЫIInternetWriteFilelNumberOfBytesToReadбw FtpOpenFile€ sFileName—нlAccessp FtpDeleteFilec lpszFileNaLVAL ;me“ЕInternetSetOptionX№ hInternetЪІlOptionZмInternetSetOptionStr*FhInet‡InternetQueryOptionњxINTERNET_OPTION_VERSIONЌѕtWinInetDLLVersion1У lMajorVersionЪ lMinorVersion2,HttpAddRequestHeadersЊ lModifiersтъHTTP_ADDREQ_FLAG_ADD_IF_NEW*2HTTP_ADDREQ_FLAG_ADDЊњHTTP_ADDREQ_FLAG_REPLACEкŒ _B_str_Right#( _B_var_StringгŠmsgboxc ‰€џџџ_B_var_msgboxcŒgotД” €џџџ_B_var_gotХQAginy €џџџ_B_var_IfPђdone … €џџџ_B_str_ServerVЧ Form_frmFTPЉT txtServerХ~txtUIDB9txtPWDf  txtFileNamedх txtLocalPathУНcmdFTP_Get_Clickе Form_Load{CloseConnectionхtcmdFTP_Put_ClickјFFormтDetail2Label1,Label3,Label5‘,Label7“,Label9•, cmdFTP_Getƒ^ cmdFTP_Putє€џClickŠу€џValueфKShow_Debug_MsgsХж ListFilesМъList1€ы€џListBox™фfd7]AddItem‡ InternetNextFileЉџja€џColumn i cmdFTP_Dir O lstRemoteDirfcmdFTP_Dir_Click‡ttk €џRowSource2 OpenSessionp StripNullsР…txt†лtmpыйChrK~џџTџџџџџџџџџџџџџџџџџџџџџџsџџџџџџџџџџџџџџ џџџџ Щ џџџџџџџџџџџџ 6dir‘Б€0* pH‚dфFTP@е= d  ђ.=Ј J< ˜ DAO>„D€AO ™*\G{00€025E01-:0C  0046}#4.0#0#C:\Program Files\Common Microsoft Shared\w350`.DLL# 3.51 Object LibrXary€H„‚2œ € ˆ Module €_VBA_MODULE2VB€o_M€qDU@LE€ H‚1’…;,‚ ,2=œŠ!‚+‚€€WinInetМ64ВB6>L3FoРrm_frm€9|DЛOТЦ"B6( BC9Т__SRP_0Š“K)^џџџџrU€€€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ЙT”{–жœ„  ф џџџџџџџџџџџџџџџџџџџџџџЩLVAL <џџџџџџџџџџџџџџџџџџџџџџщƒџџџџџџџџџџџџџџБ"СЩ FTP FTP ModuleWinInetяРF=C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLLVBA џџџџ )Б( ЩџJ™_ЏNЊ? 3C:\Program Files\Microsoft Office\Office\MSACC8.OLBAccess џџџџAБ8^РF=C:\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLLDAOFTP_Put !џџџџIбH  P>4, ,4 0InternetFindNextFile wininet.dll InternetFindNextFileA  1XFtpFindFirstFile FtpFindFirstFileA  p FtpGetFile FtpGetFileA  Йˆ FtpPutFile FtpPutFileA  a HttpSendRequestFtpSetCurrentDirectory FtpSetCurrentDirectoryA  IИ InternetOpen InternetOpenA   аInternetConnect InternetConnectA  Щ шInternetGetLastResponseInfo InternetGetLastResponseInfoA  Ё HttpOpenRequest HttpOpenRequestA  y  HttpSendRequestA   0 HttpQueryInfo HttpQueryInfoA  б HInternetReadFile InternetReadFile  ‘ `InternetWriteFile InternetWriteFile  Yx FtpOpenFile FtpOpenFileA   FtpDeleteFile FtpDeleteFileATesto  ЩЈInternetSetOption InternetSetOptionA  LVAL =ЁРInternetSetOptionStrInternetCloseHandle InternetCloseHandle  ЁиInternetQueryOption InternetQueryOptionA  i№HttpAddRequestHeaders HttpAddRequestHeadersA  A FTP_GetMyCloseOpenSessionAndConnectErrorOut  c:\MnMs\ VBA332.DLL щџџџџT h Enter file name to get:  //./app/etechnology/shared/automated/pdfftp/sbs/ щџџџџj € \ щџџџџ­ ˜ИfФЄŸIЛxЊ8<Л 3.129.144.112 Remote change directory failed. FtpPutFile щџџџџS А FTP Put successful!  should be there. Not in session щџџџџ… Ш File already exists Change directory. FtpGetFile FTP Get worked!  pdfftp pdfftp!ge vb wininet InternetOpen Internet Open OK InternetConnect Active Session:    hOpen: щџџџџ_ р Extd Err:     Err:  Close Connection and Session? Util2001.mda /users.rcn.com/bmartling/ ftp.rcn.com bmartling bog4Keni DEFAULT.HTM RemoteDir: File not there. States.mdb Done. ShowUsers.zip Form_frmFTP‘ќйMЕ•жœƒ“ќйMЕ•жœƒs0]ёЎ•жœƒ’ќйMЕ•жœƒ@CžМ7№Э‡Њ? txtLocalPathtxtPWDћм31ЯЭ‡Њ?FormSCžМ7№Э‡Њ?Detail txtServertxtUIDECžМ7№Э‡Њ? cmdFTP_Get cmdFTP_Put txtFileNamecmdFTP_Get_ClickcmdFTP_Put_Click Form_Load `CloseConnectionFщ;|фЭ‡Њ? Session not active. Your user name here Your password here ./bmartling/ #ErrILVALU‰ FTP ModulenT €џ_EvaluateйbActiveSessionЖ€hOpenЄ3 hConnectionU‹dwType‰ЋTestodFileNamejУ LocalPathŒэInputBoxЯ FTP_GetnAFTP_PutпsLocalDir(—bRet\ RemoteDirдюRight OpenSessionAndConnectфxFtpSetCurrentDirectory’ErroŠ LastDllErrorErrorOut0‡Exidor’  FtpPutFileеMsgBox—RMyCloseВ&INTERNET_FLAG_RELOADx8 FTPGetFileY4InternetCloseHandle€іServerсЧUIDЄоPwdШХPassive­ŽnFlag*– scUserAgentŒYINTERNET_OPEN_TYPE_DIRECT & vbNullStringЎТ InternetOpenЗ€or in Internet Connect (hOpen): –ќйMЕ•жœƒ™ќйMЕ•жœƒ˜ќйMЕ•жœƒ\__SRP_1.rU€€€€~~~~w џџџџџџџџџџџџџџџџџџџџџџџџhFind lpvFindData hFtpSessionlpszSearchFilelpFindFileDatadwFlags dwContentlpszRemoteFile lpszNewFile fFailIfExistsdwFlagsAndAttributes dwContext lpszLocalFile lpszDirectorysAgent lAccessType sProxyName sProxyBypasslFlagshInternetSession sServerName nServerPort sUsername sPasswordlServicelContext lpdwError lpszBufferlpdwBufferLength hHttpSessionsVerb sObjectNamesVersionsReferer something hHttpRequestsHeaderslHeadersLength sOptionallOptionalLength lInfoLevelsBuffer lBufferLengthlIndexhFilelNumBytesToReadlNumberOfBytesReadlNumberOfBytesToRead sFileNamelAccess lpszFileName hInternetlOptionhInet lModifiersFileNameLocalDirdErrorszCallFunctionServerUIDPwd Щq# Щй# Щ!$( Щ™$8`І gruo,guogws€€€џџс"gwsordxmf€€€џџљ"ov}vda€€џџЌ"{jpjpfw€€€џџі"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xvfudfgjpfdD3073-95AE-11D6-9C83-000000000000}ђ.="*\Rffff*63d2f0564п ˜Рўџџџџџџџџџ(џџџџџџџџџџџџџџ$џџџџШDдˆ`џџџџџџџџџџџџџJџџџџџџџџH”= $ƒўџџџџџџџЈџџџџџџџџџџџџџџџџџџ $‚ тџџџџўџџџиџџўџџџџџџџџџџџ $ƒўџџџџџџџџџџџџџџџџџџџџџ $Dжџџџџ`џџџџџџџџаlџkџџџџџџџџP ”џџџџџџџџ8џџџџƒўџџџџџџџxџџџџџџџџџџџџџџџџџџ‚ тџџџџўџџџАџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџрџџџџџџџџџџџџџџџџџџ $ $ $ƒўџџџџџџџ џџџџџџџџџџџџџџџџџџ $‚ ШџџџџўџџџPџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџ€џџџџџџџџџџџџџџџџџџ $Dк`џџџџџџџџџџџџџJџџџџџџџџL”: $џџџџшџџџџ8ˆџџџџџџџџƒўџџџџџџџшџџџџџџџџџџџџџџџџџџ‚ Шџџџџўџџџ№џџўџџџџџџџџџџџџџџџƒўџџџџџџџШџџџџџџџџџџџџџџџџџџџџџџ8ˆџџџџџџџџƒўџџџџџџџЈџџџџџџџџџџџџџџџџџџ $‚ Шџџџџўџџџиџџўџџџџџџџџџџџџџџџ $ƒўџџџџџџџџџџџџџџџџџџџџџџџџџ $џџџџ8ˆџџџџƒўџџџџџџџPџџџџџџџџџџџџџџ џџ $‚ Шџџџџўџџџˆџџўџџџџџџџџџџџџџџџ( $ $ џџџџhƒўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8.ётo`QBЯРБЂ“ €qbярбТO@1" ‘‚sётг`QBЯРБ>/ ­ž фџ ф ф  T0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@AпV#jKпV#jKпV#jKпV#o   €џџ  €џџ0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@AпV#jKпV#jKпV#jKпV#o  €џџ  €џџ  €џџ0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@AпV#jKпV#jKпV#jKпV#o  €џџ €џџ €џџ0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@AпV#jKпV#jKпV#jKпV#o €џџ € € 0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@AпV#jKпV#jKпV#jKпV#o   џџ џџ0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@AпV#jKпV#jKпV#jKпV#o џџ ў €џџ €џџ €џџ0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@AпV#jKпV#jKпV#jKпV#o €џџ €џџ €џџ €џџ0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@AпV#jKпV#jKпV#jKпV#o €џџ €џџ €џџ €џџ0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@AпV#jKпV#jKпV#jKпV#o €џџ џџ џџ0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@AпV#jKпV#jKпV#jKпV#o  ў €џџ €џџ €џџ0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@AпV#jKпV#jKпV#jKпV#o €џџ €џџ €џџ €џџ0%gк/BљЗ(л$_Aы—} K›ŸUеnк7їжт…iщъЬnb?ђпV#jKпV#jKЌ‚ СxГЛ6i\§Б@AпV#jKпV#jKпV#jKпV#o €џџ  цLVALђ @€ @€ @€@@@@@@@@@ @@@@@@@@@@@@@@@@ @ @ @ ъаџџџџZ$ЄFъјџџџџZ$ЄPъ џџZ$ЄЛъ џџџџZ$Є8ъ8 џџZ$І ъ` џџZ$ІъHџџџџZ$Ї€ъˆ МZ$ЄъpџџџџZ$ЄъА џџЇ Z$Єъи џџџџZ$Єъ˜џџџџZ$ЄъџџџџZ$Є+ъР[мZ$Є,ъ(џџи Type of service to access.џџџџZ$ЄъPdиZ$ЄъшHZ$ЄъxАи Opens an HTTP request handle.џџџџžР(и; Brings the data across the wire even if it locally cached.џџџџZ$Ї€ъџџZ$Ї@ъ8Z$Ї ъѓZ$Ї€ъ`џџZ$Ї@ъ(џџи0 Sends the specified request to the HTTP server.џџž x((џџџџи/ Queries for information about an HTTP request.žXџџџџи: The possible values for the lInfoLevel parameter include:Z$ЄъPџџџџZ$ЄъˆџџZ$Є ъ8Z$Є ъАџџZ$Єъ`Z$ЄъˆџџZ$ЄъиЂиZ$ЄъАџџZ$Єъю1Z$Єъи џџZ$Єъ^JZ$Є%ъ(џџZ$Є'ъ(Z$Є+ъPџџZ$Є-ъP(хJZ$Є‘ъxјZ$ЄЪОџџџџџџџџџџџџџџџџџџџџfrmFTPFTP Module9'USџџџџLVALж‘&     џ he fileЎFile already existsA@:џџџџ0 lџџ` ZъшъhЎc:\MnMs\'  ђ•h $Ў\' $џџџџш џџџџhџџИ   $ Џ > Є$@'&џџџџР  A@ џџџџр џџџџ( иIf bRet = False Then: $“Рџџџџ` џџџџX ЎFTP Put successful! Ў should be there.A@:џџџџ8 и MsgBox "Internet Connect OK"џџџџH џџџџ` иFTP_Put FileName$, LocalPath$Ў/users.rcn.com/bmartling/' (иPwd$ = "pdfftp!ge"и*Server$ = "3.129.144.112" ' GE ftp serverЎ ftp.rcn.com' Dи RCN serverџџџџј и6bRet = FtpSetCurrentDirectory(hConnection, RemoteDir$)и2 ErrorOut Err.LastDllError, "Change directory."ЎFile already existsA@:hџџ ›Р ЎFile not there.A@:џџџџј и  FTP_TRANSFER_TYPE_ASCIIџџџџА и  FTP_TRANSFER_TYPE_BINARYиFileNaPQueryАA" _ (ByVal h@ As L ong, 0lВ,Ref sBufferZAny XlLeng4thI)^ger ' Returns t€he versЙnumbOof WО. Public Const INTERNET_OPTIO@N_VERS 0= 40-€taFi–-8DLL€