VB中如何实现上传文件的功能?

用script脚本 直接调用 FTP 命令实现上传文件到FTP服务器。

代码如下：

'定义API函数
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFFFFFF
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Sub Command1_Click()
Dim filename As String
Dim ftp As String
Dim uname As String

      
              VB中如何实现上传文件的功能?
      vb中如何实现这样的功能？
      在flash中如何实现文件上传功能?
      求达人助 vb中如何实现像普通程序一样的 打开文件功能
      asp 如何实现带进度条的上传文件功能?
      在ASP中如何实现上传视频文件的功能呢?
      在VB中如何实现打印的功能
      vb中如何实现 查看原文件 的功能？
      如何在vb中实现∑的功能
      vb中如何实现这个功能！