三百分：求把本地c:\myDate 目录下的所有子目录和文件FTP上传到FTP服务器代码

Question

如题：我有一种思路，就是历遍本地该目录下的所有子目录和文件，但就是不知道怎么写。谢谢各位大侠不甚赐教。回答完毕，再在其他贴接分

Answer 1

我只能提供思路，程序可能搞起来比较繁写个递归程序先生成所有文件队列然后用Inet控件把队列文件依次上传到FTP服务器

Answer 2

'闲着无事替你写了一下
'引用Microsoft Script Runtime类
'加载控件Microsoft Internet Transfer ControlPrivate Function GetFiles(ByVal sPath As String) As String
    Dim objFso As New FileSystemObject
    Dim objFile As File
    Dim objFolder As Folder
    Dim sFiles As String
    For Each objFile In objFso.GetFolder(sPath).Files
        GetFiles = GetFiles & objFile.Path & ";"
    Next
    For Each objFolder In objFso.GetFolder(sPath).SubFolders
        GetFiles = GetFiles & GetFiles(objFolder.Path)
    Next
End Function
Private Sub TranFile(sFilePath As String)
    Inet1.Execute "ftp://username:password@hostname", "PUT " & sFilePath
    right1 = Inet1.StillExecuting
    Do While right1
       right1 = Inet1.StillExecuting
       DoEvents
    Loop
End Sub
Private Sub Command1_Click()
    Dim sFiles() As String
    sFiles = Split(GetFiles("C:\Documents and Settings"), ";")
    For i = 0 To UBound(sFiles)
        TranFile (sFiles(i))
    Next i
End Sub'具体再根据你自己需要修改

Answer 3

提醒一下,Inet控件协议选择FTP

Answer 4

好像不对啊，上传不了，不能在ftp端创建目录？