ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

FTP 2004/12/28(ｿｽｿｽ) 12:11:48

ｿｽﾍゑｿｽｿｽﾟまゑｿｽｿｽﾄ。
ｿｽｿｽｿｽAVB6.0ｿｽﾉゑｿｽWinInetｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽFTPｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟて作成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
FTPｿｽﾌカｿｽｿｽｿｽｿｽｿｽgｿｽfｿｽBｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

FTPｿｽTｿｽ[ｿｽoｿｽｿｽC:¥FTPtestｿｽｿｽFTPｿｽTｿｽ[ｿｽoｿｽfｿｽBｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽﾉ設定しｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ１ｿｽKｿｽwｿｽｿｽｿｽﾌ「C:¥FTPtest¥dataｿｽvｿｽfｿｽBｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽ
GETｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽｿｽｿｽﾛとゑｿｽｿｽﾄは「FtpSetCurrentDirectoryｿｽvｿｽﾖ撰ｿｽｿｽｿｽｿｽ
Err.LastDllErrorｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽpｿｽｿｽｿｽｿｽｿｽ
12003(ｿｽpｿｽXｿｽﾈゑｿｽｿｽH)ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽLｿｽﾉソｿｽ[ｿｽXｿｽｿｽLｿｽqｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽﾌゑｿｽFTPｿｽﾉ詳ゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ教ゑｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
Private Const msFtpSvr = "11.111.11.11"      'FTP Server IP
Private Const msFtpDir = "C:¥FTPtest"        'FTP Server Dir
Private Const msFtpUid = "abcdefg"           'FTP Login UserID
Private Const msFtpPwd = "12345"             'FTP Login Password
Private Const msReciveDir = "E:¥APP¥data"    'FTP Recive Server Dir
Private Const msFtpFilNm = TENSODATA.txt     'FTP Target FileName
Private Const msRecFilNm = GETDATA.txt       'FTP Recive FileName

'AccessType
Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0&     
Private Const INTERNET_OPEN_TYPE_DIRECT = 1&          
Private Const INTERNET_OPEN_TYPE_PROXY = 3&           

'File Attribute
Private Const FILE_ATTRIBUTE_READONLY = &H1&
Private Const FILE_ATTRIBUTE_HIDDEN = &H2&
Private Const FILE_ATTRIBUTE_SYSTEM = &H4&
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10&
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20&
Private Const FILE_ATTRIBUTE_NORMAL = &H80&
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100&
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800&
Private Const FILE_ATTRIBUTE_OFFLINE = &H1000&

'FTP TransferType
Private Const FTP_TRANSFER_TYPE_ASCII = &H1&
Private Const FTP_TRANSFER_TYPE_BINARY = &H2&

'Cache Flags
Private Const INTERNET_FLAG_RELOAD = &H80000000      
Private Const INTERNET_FLAG_DONT_CACHE = &H4000000   
Private Const INTERNET_FLAG_RESYNCHRONIZE = &H800     
Private Const INTERNET_FLAG_NEED_FILE = &H10        
Private Const INTERNET_FLAG_HYPERLINK = &H400         

'ConnectServerPort
Private Const INTERNET_INVALID_PORT_NUMBER = 0        
Private Const INTERNET_DEFAULT_FTP_PORT = 21          
Private Const INTERNET_DEFAULT_GOPHER_PORT = 70       
Private Const INTERNET_DEFAULT_HTTP_PORT = 80         
Private Const INTERNET_DEFAULT_HTTPS_PORT = 443       
Private Const INTERNET_DEFAULT_SOCKS_PORT = 1080      

'ConnectService
Private Const INTERNET_SERVICE_FTP = 1&               
Private Const INTERNET_SERVICE_GOPHER = 2&            
Private Const INTERNET_SERVICE_HTTP = 3&              '

'=====================================================================
'ｿｽ`ｿｽoｿｽhｿｽiWinInetｿｽjｿｽｿｽ`
'=====================================================================

'WinInet ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
Private Declare Function InternetOpen Lib "wininet.dll" _
        Alias "InternetOpenA" _
        (ByVal lpszAgent As String, ByVal dwAccessType As Long, _
        ByVal lpszProxyName As String, ByVal lpszProxyBypass As String, _
        ByVal dwFlags As Long) As Long

'(FTP, HTTP, Gopher)ｿｽTｿｽ[ｿｽrｿｽXｿｽﾉ接托ｿｽｿｽｿｽｿｽｿｽ
Private Declare Function InternetConnect Lib "wininet.dll" _
        Alias "InternetConnectA" _
        (ByVal hInternetSession As Long, ByVal lpszServerName As String, _
        ByVal nServerPort As Integer, ByVal lpszUsername As String, _
        ByVal lpszPassword As String, ByVal dwService As Long, _
        ByVal dwFlags As Long, ByVal dwContext As Long) As Long

'ｿｽJｿｽｿｽｿｽｿｽｿｽgｿｽfｿｽBｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽｿｽﾏ更
Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" _
        Alias "FtpSetCurrentDirectoryA" _
        (ByVal hFtpSession As Long, ByRef lpszDirectory As Byte) As Long

'ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽJｿｽｿｽｿｽfｿｽBｿｽXｿｽNｿｽﾉコｿｽsｿｽ[
Private Declare Function FtpGetFile Lib "wininet.dll" _
        Alias "FtpGetFileA" _
        (ByVal hFtpSession As Long, ByRef lpszRemoteFile As Byte, _
        ByRef lpszNewFile As Byte, ByVal fFailIfExists As Long, _
        ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
        ByVal dwContext As Long) As Long

'WinInet ｿｽﾅ作成ｿｽｿｽｿｽｿｽｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽNｿｽｿｽｿｽ[ｿｽY
Private Declare Function InternetCloseHandle Lib "wininet.dll" _
        (ByVal hInternet As Long) As Long

'=====================================================================

Public Function FtpImgGet()

    Dim lngInethnd   As Long    'InterNet Open Handle
    Dim lngFtphnd    As Long    'InterNet Connect Handle
    Dim lngRet       As Long    'ｿｽﾟゑｿｽl
    Dim strFTPDir    As String  'FTP Serverｿｽﾌ変更ｿｽｿｽCurrentDirectory
    Dim strLclDir    As String  'DownLoad ｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽ Directory
    Dim bytFtpBuff() As Byte    'FTP Server ｿｽｿｽｿｽ Download ｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ
    Dim bytLclBuff() As Byte    'Download ｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ
    
    Dim objFileSys   As Object  

    On Error GoTo FTPDATAGETINI_ERR

    strFTPDir = msFtpDir & "¥data"

    Set objFileSys = CreateObject("Scripting.FileSystemObject")


    'InternetOpen (Handle ｿｽｿｽ謫ｾ)  ｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽlｿｽbｿｽgｿｽﾖの接托ｿｽｿｽｿｽｿｽﾜゑｿｽ
    lngInethnd = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _
                                            vbNullString, vbNullString, 0)
                                            
    'InternetConnect (ｿｽｿｽLｿｽﾅ取得ｿｽｿｽｿｽｿｽ Handle ｿｽｿｽ FTP Server ｿｽｿｽ Connect)
    lngFtphnd = InternetConnect(lngInethnd, msFtpSvr, INTERNET_DEFAULT_FTP_PORT, _
                                            msFtpUid, msFtpPwd, INTERNET_SERVICE_FTP, 0, 0)

    'FTP Server ｿｽﾌ取得ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ Directory
     bytFtpBuff = StrConv((strFTPDir & vbNullChar), vbFromUnicode)

'    'FTP Server ｿｽｿｽ CurrentDirectory ｿｽｿｽﾏ更
    lngRet = FtpSetCurrentDirectory(lngFtphnd, bytFtpBuff(0))

MsgBox Err.LastDllErrorｿｽ@ｿｽｿｽｿｽ@12003(ｿｽpｿｽXｿｽﾈゑｿｽｿｽH)ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

    'FTP Server ｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ厄ｿｽｿｽO
    bytFtpBuff = StrConv((msFtpFilNm & vbNullChar), vbFromUnicode)


    'DownLoad ｿｽｿｽｿｽtｿｽｿｽｿｽpｿｽXｿｽﾅ指ｿｽｿｽ
    strLclDir = msReciveDir & "¥" & msRecFilNm
    bytLclBuff = StrConv((strLclDir & vbNullChar), vbFromUnicode)


    'ｿｽｿｽｿｽ[ｿｽJｿｽｿｽｿｽﾉ、ｿｽｿｽｿｽﾅに難ｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ鼾ｿｽﾍ削除
    If objFileSys.FileExists(strLclDir) Then
        Kill strLclDir
    End If


    'DownLoad (ASCII-MODEｿｽﾌ場合ｿｽｿｽｿｽLｿｽｿｽｿｽbｿｽVｿｽｿｽｿｽｿｽgｿｽずｿｽTｿｽ[ｿｽoｿｽｿｽｿｽｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽ)
    lngRet = FtpGetFile(lngFtphnd, bytFtpBuff(0), bytLclBuff(0), 1, FILE_ATTRIBUTE_NORMAL, _
                                                  FTP_TRANSFER_TYPE_ASCII Or INTERNET_FLAG_RELOAD, 0)

    'ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌ会ｿｽｿｽ
    Set objFileSys = Nothing

    Exit Function


FTPDATAGETINI_ERR:

    'InternetConnect ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽﾈのゑｿｽｿｽｿｽｿｽf
    If lngFtphnd <> 0 Then
        'Internet Handle Close ｿｽｿｽｿｽｿｽ
        lngRet = InternetCloseHandle(lngFtphnd)
    End If

    End

End Function

ｿｽﾐゑｿｽ 2004/12/28(ｿｽｿｽ) 12:30:47

ftpｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽFFFTPｿｽﾌ様ｿｽﾈツｿｽ[ｿｽｿｽｿｽﾅ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆどゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽAｿｽNｿｽZｿｽXｿｽｿｽｿｽﾝ抵ｿｽﾍ托ｿｽｿｽvｿｽﾅゑｿｽｿｽｿｽｿｽH
ftpｿｽTｿｽ[ｿｽoｿｽﾌ設抵ｿｽﾍ托ｿｽｿｽvｿｽﾅゑｿｽｿｽｿｽｿｽH

FTP 2004/12/28(ｿｽｿｽ) 12:48:09

ｿｽｿｽｿｽXｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

>ftpｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽFFFTPｿｽﾌ様ｿｽﾈツｿｽ[ｿｽｿｽｿｽﾅ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆどゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽH
>ｿｽAｿｽNｿｽZｿｽXｿｽｿｽｿｽﾝ抵ｿｽﾍ托ｿｽｿｽvｿｽﾅゑｿｽｿｽｿｽｿｽH
>ftpｿｽTｿｽ[ｿｽoｿｽﾌ設抵ｿｽﾍ托ｿｽｿｽvｿｽﾅゑｿｽｿｽｿｽｿｽH

ｿｽｿｽｿｽﾝ抵ｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ厄ｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽﾝ定しｿｽﾄゑｿｽｿｽｿｽfｿｽBｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽﾌ場合GETｿｽoｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽ@GETｿｽｿｽｿｽﾄゑｿｽｿｽｿｽfｿｽBｿｽｿｽｿｽNｿｽgｿｽｿｽｿｽﾌ変更ｿｽｿｽｿｽｿｽ閧ｭｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2004/12/28(ｿｽｿｽ) 12:55:22

ｿｽTｿｽ[ｿｽoｿｽﾌ設抵ｿｽﾉゑｿｽｿｽｿｽﾄは、ｿｽﾚ托ｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@ftp://server/
ｿｽﾅはなゑｿｽｿｽA
ｿｽ@ｿｽ@ftp://server/ｿｽｿｽｿｽ[ｿｽUｿｽtｿｽHｿｽｿｽｿｽ_/
ｿｽﾉ接托ｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

> 12003(ｿｽpｿｽXｿｽﾈゑｿｽｿｽH)ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽgｿｽﾅ設定しｿｽﾄゑｿｽｿｽｿｽTｿｽ[ｿｽoｿｽﾅゑｿｽｿｽｿｽﾎ、APIｿｽﾉゑｿｽｿｽﾊ信ｿｽｿｽﾉ、
ｿｽTｿｽ[ｿｽoｿｽｿｽｿｽﾌアｿｽNｿｽZｿｽXｿｽｿｽｿｽOｿｽｿｽmｿｽFｿｽｿｽｿｽｿｽﾄみては如ｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB

ｿｽﾋゑｿｽ 2004/12/28(ｿｽｿｽ) 12:56:33

lngRet = FtpSetCurrentDirectory(lngFtphnd, bytFtpBuff(0))
ｿｽｿｽPｿｽｿｽ
lngRet = FtpSetCurrentDirectory(lngFtphnd,strFTPDir)
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽB

FTP 2004/12/28(ｿｽｿｽ) 13:12:22

ｿｽｿｽｿｽXｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

>ftp://server/ｿｽｿｽｿｽ[ｿｽUｿｽtｿｽHｿｽｿｽｿｽ_/
>ｿｽﾉ接托ｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾓゑｿｽｿｽﾄみてみまゑｿｽｿｽB
>> 12003(ｿｽpｿｽXｿｽﾈゑｿｽｿｽH)ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
>ｿｽｿｽｿｽgｿｽﾅ設定しｿｽﾄゑｿｽｿｽｿｽTｿｽ[ｿｽoｿｽﾅゑｿｽｿｽｿｽﾎ、APIｿｽﾉゑｿｽｿｽﾊ信ｿｽｿｽﾉ、
>ｿｽTｿｽ[ｿｽoｿｽｿｽｿｽﾌアｿｽNｿｽZｿｽXｿｽｿｽｿｽOｿｽｿｽmｿｽFｿｽｿｽｿｽｿｽﾄみては如ｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽAｿｽNｿｽZｿｽXｿｽｿｽｿｽOｿｽｿｽｿｽﾄどゑｿｽｿｽｿｽｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽHｿｽiｿｽﾇ暦ｿｽｿｽcｿｽ[ｿｽｿｽｿｽHｿｽj
ｿｽ@ｿｽｿｽｿｽｿｽIｿｽﾈ趣ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

>lngRet = FtpSetCurrentDirectory(lngFtphnd,strFTPDir)
>ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌようｿｽﾉゑｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊでゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2004/12/28(ｿｽｿｽ) 14:51:55

> ｿｽｿｽｿｽAｿｽNｿｽZｿｽXｿｽｿｽｿｽOｿｽｿｽｿｽﾄどゑｿｽｿｽｿｽｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽHｿｽiｿｽﾇ暦ｿｽｿｽcｿｽ[ｿｽｿｽｿｽHｿｽj
IISｿｽﾈゑｿｽAｿｽuｿｽﾇ暦ｿｽｿｽcｿｽ[ｿｽｿｽｿｽvｿｽｿｽｿｽｿｽftpｿｽTｿｽCｿｽgｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽJｿｽｿｽｿｽA
ｿｽｿｽｿｽOｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽﾉて指ｿｽ閧ｳｿｽ黷ｽｿｽpｿｽXｿｽﾉ、ｿｽeｿｽLｿｽXｿｽgｿｽ`ｿｽｿｽｿｽｿｽ
*.log ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾆは、ｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾆ鯉ｿｽｿｽｿｽ APIｿｽﾉゑｿｽｿｽFTP ｿｽﾌ場合ｿｽﾆ、
ｿｽｿｽｿｽﾒ難ｿｽｿｽしｿｽﾄゑｿｽｿｽｿｽｿｽ(ｿｽcｿｽ[ｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽFTP)ｿｽﾌ場合ｿｽﾆで、
ｿｽTｿｽ[ｿｽoｿｽｿｽｿｽﾌアｿｽNｿｽZｿｽXｿｽｿｽｿｽOｿｽｿｽｿｽrｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽﾉなるかｿｽﾆ。


ｿｽﾅ、ｿｽｿｽｿｽﾉ指ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
> Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" _
>      Alias "FtpSetCurrentDirectoryA" _
>      (ByVal hFtpSession As Long, ByRef lpszDirectory As Byte) As Long
ｿｽｿｽｿｽﾌ宣言ｿｽﾍ、ｿｽ`Aｿｽnｿｽﾖ撰ｿｽｿｽﾌ呼び出ｿｽｿｽｿｽﾈので、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ByVal lpszDirectory As String ｿｽﾌ包ｿｽｿｽｿｽｿｽﾈ単ｿｽﾅゑｿｽｿｽ蛯､ｿｽB
(ByVal As String ｿｽﾉゑｿｽｿｽｿｽｿｽ鼾ｿｽﾍ、StrConvｿｽｿｽsｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽ)

ｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽAWｿｽnｿｽﾖ撰ｿｽｿｽﾅゑｿｽｿｽｿｽ鼾ｿｽﾍ、ｿｽ骭ｾｿｽｿｽ ByRef As Byte ｿｽﾉゑｿｽｿｽﾄ、
ｿｽoｿｽCｿｽgｿｽzｿｽｿｽﾌ先頭ｿｽvｿｽfｿｽｿｽQｿｽﾆ渡ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾌ場合ｿｽｿｽAStrConv ｿｽｿｽgｿｽｿｽｿｽKｿｽvｿｽﾍ厄ｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

FTP 2004/12/28(ｿｽｿｽ) 16:03:53

ｿｽAｿｽNｿｽZｿｽXｿｽｿｽｿｽOｿｽﾌ鯉ｿｽｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽmｿｽFｿｽｿｽｿｽﾄみまゑｿｽｿｽB


Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" _
     Alias "FtpSetCurrentDirectoryA" _
     (ByVal hFtpSession As Long, ByRef lpszDirectory As String) As Long
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽE
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽE
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽE
'StrConvｿｽｿｽgｿｽpｿｽｿｽｿｽﾈゑｿｽ
lngRet = FtpSetCurrentDirectory(lngFtphnd,strFTPDir)

ｿｽｿｽｿｽﾄゑｿｽｿｽﾆでゑｿｽｿｽｿｽﾋ！ｿｽH
ｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽu12003(ｿｽpｿｽXｿｽﾈゑｿｽｿｽH)ｿｽvｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽ]ｿｽkｿｽﾅゑｿｽｿｽｿｽｿｽAWｿｽnｿｽﾖ撰ｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

FTP 2004/12/28(ｿｽｿｽ) 16:23:52

ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾇみ暦ｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" _
     Alias "FtpSetCurrentDirectoryA" _
     (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Long
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽE
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽE
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽE
'StrConvｿｽｿｽgｿｽpｿｽｿｽｿｽﾈゑｿｽ
lngRet = FtpSetCurrentDirectory(lngFtphnd,strFTPDir)

ｿｽﾅ取得ｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽXｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ黷ｽｿｽFｿｽlｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2004/12/28(ｿｽｿｽ) 17:19:44

> ｿｽ]ｿｽkｿｽﾅゑｿｽｿｽｿｽｿｽAWｿｽnｿｽﾖ撰ｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽ轤ｵｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽﾅは撰ｿｽｿｽｿｽsｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ。

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAPIｿｽﾌ托ｿｽｿｽｿｽｿｽﾍ、
ｿｽ@ANSIｿｽｿｽｿｽｿｽｿｽｿｽ(ｿｽVｿｽXｿｽeｿｽｿｽｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽh/Shift_JIS)ｿｽｿｽgｿｽｿｽｿｽoｿｽ[ｿｽWｿｽｿｽｿｽｿｽ
ｿｽ@Wideｿｽｿｽｿｽｿｽｿｽｿｽ(Unicode)ｿｽｿｽgｿｽｿｽｿｽoｿｽ[ｿｽWｿｽｿｽｿｽｿｽ
ｿｽｿｽ2ｿｽｿｽﾞゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。
ｿｽOｿｽﾒは関撰ｿｽｿｽｿｽｿｽﾌ最後がAｿｽﾅ終ｿｽｿｽｿｽAｿｽｿｽﾒゑｿｽWｿｽﾅ終ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽﾄ搾ｿｽｿｽｿｽﾌ場合ｿｽAｿｽwAlias "FtpSetCurrentDirectoryA"ｿｽx
ｿｽﾆゑｿｽｿｽｿｽｿｽuｿｽﾅ後がAｿｽﾅ終ｿｽｿｽｿｽﾖ撰ｿｽｿｽvｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌで、
ｿｽｿｽｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBm(_ _)m
Wｿｽnｿｽﾍ、ｿｽwAlias "FtpSetCurrentDirectoryW"ｿｽxｿｽﾅゑｿｽｿｽB

Created by board of various Programming Library.