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
[解决办法]
你怎么保证 ftp 命令行一定成功？
[解决办法]
所以说你的程序只是“假定ftp成功”，而不是“保证ftp成功”。
