FTPのカレントディレクトリ変更について (ID:118559)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 はじめまして。 今、VB6.0にてWinInetを使用してFTPプログラムを初めて作成しているのですが FTPのカレントディレクトリ変更がうまくいきません。 FTPサーバのC:\FTPtestをFTPサーバディレクトリに設定しています。 この１階層下の「C:\FTPtest\data」ディレクトリ内のデータを GETしたいのですがうまくいきません。 事象としては「FtpSetCurrentDirectory」関数後に Err.LastDllErrorプロパティを用いると 12003(パスなし？)が表示されてしまいます。 下記にソースを記述致しますのでFTPに詳しい方 是非教えて頂けないでしょうか。宜しくお願い致します。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 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& ' '===================================================================== 'ＡＰＩ（WinInet）定義 '===================================================================== '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)サービスに接続する 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 'カレントディレクトリを変更 Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" _ Alias "FtpSetCurrentDirectoryA" _ (ByVal hFtpSession As Long, ByRef lpszDirectory As Byte) As Long 'ファイルをローカルディスクにコピー 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 で作成したハンドルをクローズ 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 '戻り値 Dim strFTPDir As String 'FTP Serverの変更後CurrentDirectory Dim strLclDir As String 'DownLoad したファイルを保存する Directory Dim bytFtpBuff() As Byte 'FTP Server 内の Download するファイル名 Dim bytLclBuff() As Byte 'Download したファイルを保存するファイル名 Dim objFileSys As Object On Error GoTo FTPDATAGETINI_ERR strFTPDir = msFtpDir & "\data" Set objFileSys = CreateObject("Scripting.FileSystemObject") 'InternetOpen (Handle を取得) インターネットへの接続します lngInethnd = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _ vbNullString, vbNullString, 0) 'InternetConnect (上記で取得した Handle で FTP Server に Connect) lngFtphnd = InternetConnect(lngInethnd, msFtpSvr, INTERNET_DEFAULT_FTP_PORT, _ msFtpUid, msFtpPwd, INTERNET_SERVICE_FTP, 0, 0) 'FTP Server の取得ファイルが存在する Directory bytFtpBuff = StrConv((strFTPDir & vbNullChar), vbFromUnicode) ' 'FTP Server の CurrentDirectory を変更 lngRet = FtpSetCurrentDirectory(lngFtphnd, bytFtpBuff(0)) MsgBox Err.LastDllError ← 12003(パスなし？)が表示される。 'FTP Server から取得するファイルの名前 bytFtpBuff = StrConv((msFtpFilNm & vbNullChar), vbFromUnicode) 'DownLoad 先をフルパスで指定 strLclDir = msReciveDir & "\" & msRecFilNm bytLclBuff = StrConv((strLclDir & vbNullChar), vbFromUnicode) 'ローカルに、すでに同一ファイル名が存在する場合は削除 If objFileSys.FileExists(strLclDir) Then Kill strLclDir End If 'DownLoad (ASCII-MODEの場合＆キャッシュを使わずサーバからダウンロードを強制) lngRet = FtpGetFile(lngFtphnd, bytFtpBuff(0), bytLclBuff(0), 1, FILE_ATTRIBUTE_NORMAL, _ FTP_TRANSFER_TYPE_ASCII Or INTERNET_FLAG_RELOAD, 0) 'オブジェクトの解放 Set objFileSys = Nothing Exit Function FTPDATAGETINI_ERR: 'InternetConnect がされた後なのか判断 If lngFtphnd <> 0 Then 'Internet Handle Close 処理 lngRet = InternetCloseHandle(lngFtphnd) End If End End Function