InetコントロールでＦＴＰサーバのファイル一覧表の取得 (ID:101369)

名前

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

本文

ｗｉｎＸＰ、VB6.0でやってます。
アクセスするサーバーは、ftp.geocities.jpです。

リモートホストに接続できません。。という結果です。

サンプルを、ｆｔｐのアドレス欄だけ変えて、、そのままコピーしてやってますが、うまくいきません。
どうか、ご指導よろしくお願いします。

Option Explicit

Private Sub Command1_Click()
    '処理が終了するまでコマンドボタンを無効化
    Command1.Enabled = False
    With Inet1
        'URLを指定
        .URL = "ftp://ftp.geocities.jp/"
        '開いたURLのファイルとディレクトリの一覧を要求
        .Execute , "DIR"
    End With
    'コマンドボタンを有効化
    Command1.Enabled = True
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim vntGetData As Variant
    Dim strSplit() As String
    Dim lngBufSize As Long
    Dim lngCounter As Long
    
    'リストボックスをクリア
     List1.Clear
    'Excuteメソッドによる処理要求が完了したら、
    If State = icResponseCompleted Then
        '1回で取得するデータサイズを指定
        lngBufSize = 1024
        Do
            'サーバから返されたデータを取得
            vntGetData = Inet1.GetChunk(lngBufSize, icString)
            '戻り値が長さ0の文字列だったらループを抜ける
            If Len(vntGetData) = 0 Then Exit Do
            '取得したデータを元に配列を作成
            strSplit = Split(vntGetData, vbNewLine)
            '配列の各要素を調べる
            For lngCounter = 0 To UBound(strSplit)
                '長さ0の配列要素を除く
                If Len(strSplit(lngCounter)) <> 0 Then
                    'リストボックスへ追加
                    List1.AddItem strSplit(lngCounter)
                End If
            Next
        Loop
    End If
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る