FtpFindFirstFileについて

解決

レム 2006-07-15 00:33:20 No: 132373

お世話になります。
現在FtpFindFirstFileを使用してFTPサーバにある全てのエクセルファイルを検索したいのですが、どうやら一つのエクセルファイルだけしか検索できていなくて上手くいきません。どなたかご教授お願い致します。
以下コードです。
'モジュール側
    Public Structure WIN32_FIND_DATA
        Public dwFileAttributes As Integer
        Public ftCreationTime As FILETIME
        Public ftLastAccessTime As FILETIME
        Public ftLastWriteTime As FILETIME
        Public nFileSizeHigh As Integer
        Public nFileSizeLow As Integer
        Public dwReserved0 As Integer
        Public dwReserved1 As Integer
        <VBFixedString(MAX_PATH), System.Runtime.InteropServices.MarshalAs _
        (Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=MAX_PATH)> _
        Public cFileName As String
        <VBFixedString(14), System.Runtime.InteropServices.MarshalAs _
        (System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=14)> _
        Public cAlternate As String
    End Structure
    Public Const MAX_PATH As Short = 260

'フォーム側
        Dim strWIN32(MAX_PATH) As WIN32_FIND_DATA
        Dim textA As String
        TextBox2.Text = textA

        FtpFind = FtpFindFirstFile( _
        hFTP, "*.xls", _
        strWIN32(MAX_PATH), INTERNET_FLAG_RELOAD, 0&)
        textA = strWIN32(MAX_PATH).cFileName
宜しくお願い致しますm(_ _)m

レム 2006-07-15 00:37:49 No: 132374

申し訳ありません。
開発環境は Windows2000 VB.NETです。

あん 2006-07-15 01:27:10 No: 132375

FtpFindFirstFile
これは、最初のファイルを検索する命令です。

魔界の仮面弁士 2006-07-15 01:28:46 No: 132376

> どうやら一つのエクセルファイルだけしか検索できていなくて

そりゃまぁ、 FtpFind『First』File 関数ですし……。(^^;
列挙したいなら、InternetFindNextFile を関数を呼ばないと。

> 開発環境は Windows2000 VB.NETです。
VB2005 / .NET 2.0 なら、System.Net 内に Ftp 系のクラスがありますよ。

レム 2006-07-15 01:33:03 No: 132377

あぁぁ・・・そうだったのですかー(；_；)
下らない質問しちゃって申し訳ありませんでした・・・。
InternetFindNextFileですね。勉強してきます。失礼しました！