vba 讀取 ftp 裡面的檔案清單 - Excel程式區

[發問] vba 讀取 ftp 裡面的檔案清單

　暱稱: 南宮飄雪

3^# 跳轉到 »

發表於 2020-11-5 23:32 | 只看該作者

本帖最後由 Joforn 於 2020-11-5 23:33 編輯

Private Function FTPFolder(ByVal Url As String, _
Optional ByVal UserName As String, _
Optional ByVal PassWord As String, _
Optional ByVal Port As Integer) As Object
Dim objShell As Object
If Len(Url) Then
If Len(UserName) Then Url = UserName & ":" & PassWord & "@" & Url
If Port > 0 Then Url = Url & ":" & Port
Set objShell = CreateObject("Shell.Application")
Set FTPFolder = objShell.Namespace("FTP://" & Url)
End If
End Function
Sub Test()
Dim objFolder As Object
Dim objItem As Object
Set objFolder = FTPFolder("0.0.0.0", "username", "password")
If Not (objFolder Is Nothing) Then
For Each objItem In objFolder.Items
Debug.Print "Name=""" & objItem.Name & """ Size=" & objFolder.GetDetailsOf(objItem, 1) & " ModifyDate=" & objFolder.GetDetailsOf(objItem, 3)
Next
End If
End Sub

複製代碼

世界那麼大，可我想去哪？

2^#

發表於 2020-11-4 16:18 | 只看該作者

本帖最後由 cody 於 2020-11-4 16:27 編輯

回復 1# warhead

用 windows 內建 ftp.exe 讀取 Script 的方式
一般是將 ftp comment 做成文字檔, 再用 ftp.exe 去讀取執行
將結果存成文字檔後, 再讀入excel

靜思自在 : 小事不做、大事難成。