ftp vb 递归法删除文件夹及其中的文件
发布网友
发布时间：2024-10-23 23:43
共1个回答
热心网友
时间：2024-11-02 23:15
Public Sub GetDirDel(str As String)
Dim a As String
a = GetCurrentDirectoryContent(str)
Dim b() As String
b = Split(a, " ")
For i = 0 To UBound(b)
If Mid(b(i), Len(b(i)) - 2, 2) = "/." Then
Call GetDirDel(Mid(b(i), 1, Len(b(i)) - 2))
Else
Call ftpdeletefile(b(i))
End If
Next
Call ftpremovedirectory(str)
End Sub
未测试。可参考下。
