VB程序生成的文件FTP时有有关问题

VB程序生成的文件FTP时有问题
VB程序按日期生成文件夹，日期文件夹里再生成50-70个文件夹，代表50-70个商户，每个文件夹里有不同的文件，然后用For Each对日期文件夹进行遍历，用FTP上传到WEB系统，但有时会少一到两个文件夹，有时不少，这个不确定，是什么原因导致没有上传，是For Each没有遍历出来吗？

以下是代码：

    strHostIP = "192.168.0.0"  '   

    strUser = "web"

    strPwd = "web"

    

    strSettleDate = Mid(gStrSettleDate, 1, 4) & Mid(gStrSettleDate, 6, 2) & Right(gStrSettleDate, 2)  '日期文件夹

    strRptPath = gSettReportPath & strSettleDate  '路径

    If fs.FolderExists(strRptPath) = False Then

        strMessage = "无法上传报表到web管理系统指定目录！找不到存放报表的路径！请先确认日期是否正确，报表清算日期为" & gStrSettleDate

        MsgBox strMessage, vbOKOnly, "Command_create_table_Click"

        Exit Function

    End If


    Set oFiles = fs.GetFolder(strRptPath).SubFolders  '日期文件夹下的子文件夹

    

    For Each ofolder In oFiles


        If ofolder.name <> "" Then

            ftpFile strHostIP, strUser, strPwd, strRptPath & "\" & ofolder.name, "/" & strSettleDate & "/" & ofolder.name, False

            For i = 0 To 300

                Delay1s

            Next

        End If

    Next

    

    ftpReport = True

------解决方案--------------------
没有看到对 ftpFile 传输状态的判断，你怎么保证肯定传输成功了？