FTPサーバからのファイル名の取得 (ID:120823)

名前

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

本文

With Inet
         .URL = "ftp://" & ServerIP & "/"
         .UserName = "" & FTPUser & ""
         .Password = "" & FTPPass & ""
         .Execute , "dir"
'         Do While .StillExecuting
'            DoEvents
'         Loop
         vtData = .GetChunk(1024, icString)
         Do
           n = InStr(n + 1, vtData, ".xls")
           If n = 0 Then Exit Do
           vtData2 = Mid(vtData, 1, Len(vtData) - Len((Mid(vtData, n + 3 + 1))))
           .Execute , "get " & vtData2 & " D:\TEST\" & vtData2 & ""
           Do While .StillExecuting = True
            DoEvents
           Loop
           c = Len(vtData2)
           vtData = Mid(vtData, c + 1)
           n = 0
           count1 = count1 + 1
           DoEvents
         Loop
'         Do While .StillExecuting = True
'            DoEvents
'         Loop
         .Execute , "close"
         .Execute , "bye"
     End With

これで、うまく文字列を取得できたのですが
一つ目のファイルはうまくgetできましたが、
2つ目以降getできませんでした。
入っている文字列はファイル名がきちんと格納されています。

流れはそのまま1つ目の処理と変わっていないので原因がわかりません。

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

戻る