返回列表下一主題上一主題發帖

[發問] 如何列出FTP的檔案清單問題請益

child

中學生 Rank: 2

帖子: 38
主題: 20
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: TAIWAN
註冊時間: 2010-5-10
最後登錄: 2019-2-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-3-18 19:03 | 只看該作者

[發問] 如何列出FTP的檔案清單問題請益

目前測試使用FileSearch在FTP目錄下無法列出清單，請益程式碼如何修改或是否有其它方式可以列出FTP的檔案清單，很謝謝大家的幫忙^__^

Sub TEST()
Dim fs As Object, i%, k%
Set fs = CreateObject("Scripting.FileSystemObject")
With Application.FileSearch
.NewSearch
.LookIn = "ftp://72.8.3.1/TEST/"
.MatchTextExactly = False
.FileType = msoFileTypeAllFiles
.Filename = "*.jpg"
.SearchSubFolders = True

If .Execute > 0 Then
      For i = 1 To .FoundFiles.Count
         Worksheets("TEST").Cells(i, 1) = .FoundFiles(i)
         Worksheets("TEST").Cells(i, 2) = fs.GetFile(.FoundFiles(i)).DateLastModified
      Next i
End If

End With

End Sub