vb6.0 使用Inet1.Execute 将文件上传至远程服务器192.168.43.53，上传后文件名不改变

在 Visual Basic 6.0 中，Inet1.Execute 函数主要用于利用系统内置的 FTP 协议功能来执行 FTP 操作，包括上传文件。如果你想要使用 `Inet1.Execute` 将文件上传到远程服务器 192.168.43.53 并保持原始文件名不变，你需要构造一个合适的 FTP PUT 命令。下面是一个示例：

Dim objFSO ' 引入 FileSystemObject 对象
Set objFSO = CreateObject("Scripting.FileSystemObject") ' 创建 FileSystemObject 对象

' 定义本地文件路径
Dim localFilePath As String
localFilePath = "C:\your\file.ext"

' 构造 FTP PUT 命令
Dim cmdString As String
cmdString = "ftp -n ""ftp://192.168.43.53"" <<binary>> put """ & localFilePath & """ uploadedfilename.ext" ' 注意这里的 "uploadedfilename.ext" 应替换为你希望服务器上文件的实际名称

' 执行 FTP 命令
objInet1.Exec(cmdString) ' objInet1 是已连接到 FTP 服务器的对象

' 关闭 FileSystemObject 对象
Set objFSO = Nothing

在这个例子中，`-n` 参数表示非交互模式，`<<binary>>` 表示二进制传输，确保文件以原样上传。`exec` 方法会尝试执行这个 FTP 命令。请注意，你需要先连接到服务器 (`objInet1.Connect`)，然后执行上述操作。