vb6.0 开发一个FTP文件上传程序，有地址、用户名、密码、文件夹输入栏，有连接按钮、开始上传按钮，上传按钮后将文件夹内txt文件上传至ftp服务器指定文件夹

在VB6.0中创建一个FTP文件上传程序，你可以按照以下步骤来设计：

1. **设置界面**:
- 使用Form Designer 创建一个新的Windows应用程序。
- 添加四个基本控件：两个TextBox (分别用于输入FTP地址、用户名、密码)，一个ComboBox 或 TextBox (用于选择或输入文件夹路径) 和两个Button (连接和上传按钮)。

2. **添加引用**:
- 打开VBA编辑器，确保已经包含了Microsoft Internet Controls (midl32.ocx) 和 Microsoft Scripting Runtime (msxml2.dll) 的引用。因为VB6的FTP功能主要依赖这两个控件库。

3. **编写事件处理程序**:
- 对于"连接"按钮，编写Click事件，使用FTP Control（如MSHTTP.3）连接到FTP服务器。例如：

     Private Sub Command1_Click()
       On Error GoTo ErrorHandler
       Dim objFtp As MSHTTP.FTP
       Set objFtp = New MSHTTP.FTP
       objFtp.Host = Text1.Text ' FTP 地址
       objFtp.UserName = Text2.Text ' 用户名
       objFtp.Password = Text3.Text ' 密码
       If Not objFtp.Connect Then
         MsgBox "无法连接到FTP服务器", vbCritical
         Exit Sub
       End If
     ExitHandler:
       Exit Sub
     ErrorHandler:
       Resume ExitHandler
     End Sub

4. **文件夹选择及上传函数**:
- 对于"上传"按钮，编写另一个Click事件，获取选定文件夹内的txt文件，并逐个上传到FTP服务器指定目录。例如：

     Private Sub Command2_Click()
       On Error GoTo ErrorHandler
       Dim objFtp As MSHTTP.FTP
       Dim objFolder As String
       objFolder = ComboBox1.Value ' 文件夹路径
       
       For Each file In Dir(objFolder & "\*.txt")
         If Not objFtp.FileExists(file) Then
           objFtp.putfile objFolder & "\" & file, "/" & file ' 上传文件到服务器根目录
         End If
       Next file

       MsgBox "上传完成", vbInformation
     ExitHandler:
       Exit Sub
     ErrorHandler:
       Resume ExitHandler
     End Sub

5. **错误处理**:
确保在整个过程中处理可能出现的网络异常或其他错误。