| 
             
              ソス@ソスソスwininetソスソスgソスpソスソスソスソスFTPソスノてフソス@ソスCソスソスソスソス_ソスEソスソスソスソスソス[ソスhソスソスソスソスノは?
             
           | 
        
 ソスgソスbソスvソスyソス[ソスWソスソス
        ソスEC/C++
        ソスEDelphi
        ソスEVisual BasicソスソスソスSソスソス
        ソス@(VB2-VB6ソスソス.NETソスソスソスp)
        ソスEVisual Basic(VB2-VB6)
        ソスEVisual Basic .NET
        ソスEVisual C++
ソスEpapy's softwarelibrary
ソスヘゑソスソス゚まゑソスソスト、ソスソスソスツゑソスQソスlソスノゑソスソスソスソストゑソスソスソスソスソスソスソスソストゑソスソスワゑソスソスB
        ソスソスソスン、wininetソスソスFtpGetFileソスソスgソスpソスソスソストサソス[ソスoソスソスソスtソス@ソスCソスソスソスソス_ソスEソスソスソスソスソス[ソスhソスソスソス謔、ソスニゑソスソストゑソスソスソスフでゑソスソスソスソスA
        FtpPutFileソスヘゑソスソスワゑソスソスソスソスソスソスフでゑソスソスソスソスAFtpGetFileソスフ包ソスソスヘゑソスソスワゑソスソスソスソスソスソスワゑソスソスソスB
        Putソスヘでゑソスソストゑソスソスソスフで、ソスソスソスソスソスソスFtpGetFileソスノゑソスソスソスフでゑソスソス蛯、ソスソスソスA
        ソスソスソス_ソスソスソス謔ュソスかソスソスワゑソスソスソスB
        ソスヌゑソスソス直ゑソスソスホゑソスソスソスソスフゑソスソスAソスソスソスソスソスソスソス閧「ソスワゑソスソスB
        ソスツ具ソスソスソスWinXPソスソスVB.NETソスナゑソスソスB
        ソスソスしソスソスソスソスソス閧「ソスソスソスワゑソスソスB
        
        
        ***** ソスネ会ソスソスRソス[ソスh *****
        
        Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" ( _
                    ByVal hFtpSession As Integer, _
                    ByVal lpszRemoteFile As String, _
                    ByRef lpszNewFile As String, _
                    ByVal fFailIfExists As Boolean, _
                    ByVal dwFlagsAndAttributes As Integer, _
                    ByVal dwFlags As Integer, _
                    ByVal dwContext As Integer) As Boolean
                    
        
        ======= ソスネ会ソスソスソスソスCソスソスソスソスソスソス ===========
                    
        Dim hOpen As Integer
        Dim hFtpSession As Integer
        Const INTERNET_FLAG_RELOAD As Integer = &H80000000
        Const INTERNET_FLAG_TRANSFER_BINARY As Short = &H2S
        Const INTERNET_NO_CALLBACK As Short = 0
                
        hOpen = InternetOpen("vb wininet", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
        hFtpSession = InternetConnect(hOpen, "FtpServer", INTERNET_INVALID_PORT_NUMBER, _
        "FtpUser", "FtpPass", INTERNET_SERVICE_FTP, nFlag, 0)
        
        FtpGetFile(hFtpSession, "/xxx/xxxx/yyyy.ini", "c:¥yyyy.ini", True, 0, _
        INTERNET_FLAG_TRANSFER_BINARY Or INTERNET_FLAG_RELOAD, INTERNET_NO_CALLBACK)
ソスソス閧ソスソスソスソスソス@err.LastDllErrorソスソスInternetGetLastResponseInfoソスソス
        ソスGソスソスソス[ソスフ鯉ソスソスソスソス分析ゑソスソス驍アソスニゑソスソス謖茨ソスナゑソスソスB
ソスヒゑソスlソスAソスソスソス答ゑソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
        InternetGetLastResponseInfoソスネのでゑソスソスソスソスAソスgソスソスソスソスソスソスソスソスソスソスソスフゑソスソスソスソス謫セソスナゑソスソスワゑソスソスソスナゑソスソスソスソスB
        ソスソスソスLソスフようソスネ奇ソスソスソスソスナ使ソスpソスソスソストゑソスソスソスフでゑソスソスソスソスAソスソスソスソスソスノ厄ソス閧ェソスソスソスソスフでゑソスソス蛯、ソスソスソスH
        
        Dim strBuffer As String
        Dim intLength As Integer
        
        InternetGetLastResponseInfo(Err.LastDllError, vbNullString, intLength)
        strBuffer = New String(Chr(0), intLength + 1)
        InternetGetLastResponseInfo(Err.LastDllEroor, strBuffer, intLength)
        MsgBox(strBuffer)
        
        InternetGetLastResponseInfoソスソスgソスpソスソスソスソスOソスソスErr.LastDllErrorソスソス"123"ソスナ、
        strBufferソスフ値ソスソス""ソスナゑソスソスソスソスB
ソス謔ク
        >Err.LastDllErrorソスソス"123"
        ソスGソスソスソス[ソスフ番搾ソスソスソスソスソスソスナは会ソスソスフエソスソスソス[ソスソスソスソスソスソスソスソスソスソスソスソスソスかソスソスワゑソスソスソスソスヒ。
        FormatMessageソスナエソスソスソス[ソスソスソスbソスZソス[ソスWソスソス謫セソスソスソスワゑソスソスB
        ソスソスソスネみゑソスFormatMessageソス謫セソスソスソスソスソスソスソスソス123ソスソス
        ソスuソスtソス@ソスCソスソスソスソスソスAソスfソスBソスソスソスNソスgソスソスソスソスソスAソスワゑソスソスヘボソスソスソスソスソス[ソスソス ソスソスソスxソスソスソスフ構ソスソスソスソスソスヤ茨ソスソスソストゑソスソスワゑソスソスBソスv
        ソスナゑソスソスB
        ソスSソスソスソスソスソスソスヘ?
        
        >InternetGetLastResponseInfoソスネのでゑソスソスソスソスAソスgソスソスソスソスソスソスソスソスソスソスソスフゑソスソスソスソス謫セソスナゑソスソスワゑソスソスソスナゑソスソスソスソスB
        WinInetソスフエソスソスソス[ソスヘ 12000ソスネ擾ソスナゑソスソスAソスソスソスネわちWinInetソスフエソスソスソス[ソスナは厄ソスソスソスソスソスソスソスナは。
InternetGetLastResponseInfoソスヘ、ソスソスソスソスソスソスソスソスソスソスソスニゑソスソスソスソスソスソスフでゑソスソスヒ。
        FormatMessageソスAソスソスソスソスソスソスナゑソスmソスFソスvソスソスソスワゑソスソスソスソスB
        ソスtソス@ソスCソスソスソスソスソスAソスfソスBソスソスソスNソスgソスソスソスソスソスAソスワゑソスソスヘボソスソスソスソスソス[ソスソス ソスソスソスxソスソスソスフ構ソスソスソスソスソスヤ茨ソスソスソストゑソスソスソスニゑソスソスソスソスソスソスニは、
        ソスvソスソスソスOソスソスソスソスソスソスフ厄ソスソスナはなゑソスソスA
        FtpGetFileソスノ渡ソスソスソストゑソスソスソスソスQソスCソスソスRソスソスソスソスソスフ値ソスソスソスヤ茨ソスソスソストゑソスソスソスソスソスト趣ソスソスナゑソスソスソスソスヒ?
        ソスソスソスソスヘ会ソスソスxソスソスmソスFソスソスソスト間茨ソスソスソストはゑソスソスネゑソスソス謔、ソスネのでゑソスソスソスソスEソスEソスE
        ソスiソスソスソスXソスソスVB6ソスナ作成ソスソスソス黷スソスソスフゑソスVB.NETソスノアソスbソスvソスOソスソスソス[ソスhソスソスソスソスソスソスフなので、
        ソスソスソスソスソスフ値ソスノ厄ソスソスヘ厄ソスソスソスソスニ思ソスソスソスワゑソスソスj
FtpFindFirstFileソスナ「"/xxx/xxxx/yyyy.ini"ソスvソスソスソスソスソスツゑソスソス驍ゥソスヌゑソスソスソスソスソスソスラてみゑソスソス轤「ソスソスソスソスソスナゑソスソスソスソスH
        
        >FtpGetFile(hFtpSession, "/xxx/xxxx/yyyy.ini", "c:¥yyyy.ini",False, 0, _
                INTERNET_FLAG_TRANSFER_BINARY Or INTERNET_FLAG_RELOAD, INTERNET_NO_CALLBACK)
        
        iniソスtソス@ソスCソスソスソスソスソスソスbinaryソスソスソスソスソスソスソスAソスソスソスソスニ「INTERNET_FLAG_RELOADソスvFTPソスナキソスソスソスbソスVソスソスソスソスソスソスヌみ搾ソスソスワゑソスソス
        ソスソスソスニはゑソスソスソスソスソスソスソスソスソスソスB
        5ソスヤ目の茨ソスソスソスソスソス  ByVal dwFlagsAndAttributes As Integerソス@ソスフ0ソスソスソスト会ソスソスソスソスソスソスソスソスB
        
        ソスヌゑソスソスかソスソスネゑソスソスソスソスヌ、ソスソス閧ソスソスソスソスソスソスこゑソスナゑソスソスソストみようソスB
        FtpGetFile(hFtpSession, "/xxx/xxxx/yyyy.ini", "c:¥yyyy.ini",False, 32, 1, 0)
FtpFindFirstFileソスナ確ソスFソスソスソスト、ソスソスソスソスソスソスフ包ソスソスヘ托ソスソスvソスナゑソスソスソスソスB
        
        iniソスtソス@ソスCソスソスソスソスASCIIソスナゑソスソスヒ。ソスニゑソスソスソスソスソスソスソスヤ違いソスソスソス轤ッソスHソスiソスソス
        VB6ソスフソソス[ソスXソスソスソスソスソスソスソスソスソスソスルゑソスソスソスソスヌゑソスソスソスソスソスソスナゑソスソスヒ・ソスEソスE
        
        FtpGetFile(hFtpSession, "/xxx/xxxx/yyyy.ini", "c:¥yyyy.ini",False, 32, 1, 0)
        ソスナゑソスソスソストみてゑソスAソスソスヘゑソスハ目でゑソスソスソスソスB
        ソスソスソスソスソスGソスソスソス[ソスソスソスbソスZソス[ソスWソスソスソスoソスワゑソスソスB
FtpSetCurrentDirectoryソスソスGetソスソスソスソスpソスXソスノ移難ソスソスソスソスト、ソスtソス@ソスCソスソスソスwソス閧セソスソスソスソス
        Getソスソスソストみて会ソスソスソスソスソスソスB
        ソスNソスソスソスCソスAソスソスソスgソスフ包ソスソスソスtソスHソスソスソス_ソス[ソスノ移難ソスソスソスソスト、ソスtソス@ソスCソスソスソスソスソスソスソスソスソスwソスソスナ。
ソスTソス[ソスoソスソスLinaxソスソスソス{ソスソスナゑソスソスソスwininet.dllソスフ関撰ソスソスBソスソス
        ソス動ソスしソストまゑソスソスソスソスB
        ソスpソスソスナゑソスソスニ包ソスソスCソスネゑソスナゑソスソスソスソスヌ。
        ソスソスソスソスソスftpソスRソス}ソスソスソスhソスソスvソスソスソスOソスソスソスソスソスナ組ソスン暦ソスソストゑソス
        ソスoソスbソス`ソスtソス@ソスCソスソスソスノ擾ソスソスソスソスソスナ起ソスソスソスソスソスソスホ・ソスEソスEソスE
        ソスソスソスネり原ソスnソスIソスナゑソスソスソスソスEソスEソスE
        
        ソス]ソスvソスネ擾ソスだゑソスソスソスソス轤キソスソスソスワゑソスソスソスB
>ソスヒゑソスl
        ソスソスヘゑソスハ目でゑソスソスソスソスB
        ソスニりあソスソスソスソスソスAソスかソスソスネゑソスAPIソスソスソスソスjavaソスソスFTPソスハ信ソスソスソスソスvソスソスソスOソスソスソスソスソスソス
        ソスネ前ソスソスソスソスソスソスソスソスソスソスソスソスソスフで、ソスソスソスソス流用ソスソスソス驍ゥソスA
        Socketソスソスgソスソスソスソスソスソスソス@ソスナ作成ソスソスソスソスソス轤、ソスワゑソスソスソスソスソスソスソスソスフで、ソスヌゑソスソス轤ゥソスナゑソスうソスソスソスニ思ソスソスソスワゑソスソスB
        
        >ソスナソスソスソスソスソスソスソスソスl
        ソス答ゑソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
        ソスTソス[ソスoソスソスAIXソスナ、ソスソスソスワゑソスVB6ソスナ作成ソスソスソスソスwininet.dllソスフ関撰ソスソスソスソスソスソスソスソストまゑソスソスフで、
        ソスソスソスソスノ関ゑソスソストは厄ソスソスネゑソスソスニ思ソスソスソスワゑソスソスB
        
        ソスソスソスソスソストゑソスソスソスソスソスソスソスソスソスソスソスソスXソスAソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスソスソスB
ソスソスソスソスソスフ宣言ソスソスソスヤ茨ソスソスソストゑソスソスワゑソスソスB
        
        Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" ( _
                    ByVal hFtpSession As Integer, _
                    ByVal lpszRemoteFile As String, _
           ByVal ソスソス ByRef lpszNewFile As String, _
                    ByVal fFailIfExists As Boolean, _
                    ByVal dwFlagsAndAttributes As Integer, _
                    ByVal dwFlags As Integer, _
                    ByVal dwContext As Integer) As Boolean
        
        ソスソスソストゑソスソスAソスソスソスソスxソスソスソスソスソスネ〜
ソスソスソスソスソスIソス@ソスソスソスソストゑソスAソスソスソスソスソスソスGソスソスソス[ソスRソス[ソスhソスヌゑソスソスソスB
        ソス骭セソスヘチソスFソスbソスNソスソスソスネゑソスソスソスソスソスソス謔、ソスネ気ソスソスソスソスソスソスB(^^;
> ソスソスソスネまゑソスソスソスソスソス
        ソスソスソスフ宣言ソスソスヤ茨ソスソスソストゑソスソスソス謔、ソスネ。 As Boolean ソスソス As Long ソスナゑソスソスヒ。
        http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200410/04100037.txt
VB.NETソスナゑソスソスソスソスソス
        >As Boolean ソスソス As Long
        ソスナは厄ソスソスソスソスA
        As Boolean ソスソス As Integer
        ソスソスソスソス
        As Boolean ソスソス As Int32
        ソスナゑソスソスソスソスB
ソスソスソスソスソスソスソスニ。ソスソスソスソスソス VB.NETソスナゑソスソスソスソスソスソスソスソスソスソスBソスソスソスソスB
        ソスtソスHソスソスソス[ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスBソスソスソスヒろさソスソス
        
        ソスソスソスソスABooleanソス^ソスナ趣ソスソスソスソスソスソスソスソスソスソスネゑソスAVB.NET ソスナゑソス
        ソス@ソスw<MarshalAs(UnmanagedType.Bool)> ByVal failIfExists As Booleanソスx
        ソスフようソスノ擾ソスソスソスソストゑソスソスソスソスソスソス OK ソスナゑソスソスソスソスヒ。(ソス゚ゑソスlソスソスソスソスl)
        
        
        # ソスソスソスソスソスソスソスソスソスホ、.NET ソスソス Booleanソス^ソスソスソスト会ソスソスoソスCソスgソスネんだろうソスB
        # http://www.microsoft.com/japan/msdn/library/ja/vblr7/html/vagrpdatatype.asp
        # ソスソスソスソスソスニ、2ソスoソスCソスgソスソスソスロゑソスソスソスソスソスヌ、Marshal.SizeOf() ソスナ抵ソスソスラゑソスソス 4 ソスソスソスヤゑソスソス黷スソスcソスcソスB