VB6中MSINET.OCX控件FTP下载仅部分Win10系统可用求助

• 检查本地路径的权限与格式

  • 确保LoclFilNm使用绝对路径（比如C:\Users\你的用户名\Documents\test.txt），避免相对路径在不同系统环境下解析异常
  • 目标文件夹必须有写入权限，别直接写到C盘根目录这类受UAC保护的路径，优先选择用户文档、桌面等目录
  • 路径中不要包含中文、空格或特殊字符，防止编码解析错误

• 添加错误捕获，明确问题原因
  MSINET控件的StateChanged事件能返回操作的状态和错误信息，给你的控件添加这个事件处理：

  Private Sub Inet1_StateChanged(ByVal State As Integer)
      Select Case State
          Case icError ' 状态码11：操作出错
              MsgBox "FTP错误详情：" & Inet1.ResponseInfo & vbCrLf & "错误码：" & Inet1.ResponseCode
          Case icResponseCompleted ' 状态码12：操作完成
              MsgBox "文件下载完成"
      End Select
  End Sub
  

  运行程序后，就能看到下载失败时的具体错误，比如服务器权限限制、本地路径无效等

• 切换FTP被动模式
  部分系统的网络配置会阻止FTP主动模式的连接，尝试开启被动模式：

  ' 先设置服务器地址和协议
  Inet1.URL = "ftp://你的FTP服务器地址"
  Inet1.Protocol = icFTP
  ' 开启被动模式
  Inet1.Execute , "PASV"
  Do Until Inet1.StillExecuting = False
      DoEvents
  Loop
  ' 执行下载命令
  Inet1.Execute , "GET " & FtpFile & " " & LoclFilNm
  Do Until Inet1.StillExecuting = False
      DoEvents
  Loop
  

• 排查权限与控件版本

  • 用管理员权限运行你的VB6程序，避免UAC权限限制导致无法写入本地文件
  • 对比正常系统和异常系统中msinet.ocx的版本号（右键OCX文件→属性→详细信息），确保版本一致，若不一致重新注册对应版本的控件

• 用命令行FTP验证
  打开CMD，手动执行FTP命令测试：

  ftp 你的FTP服务器地址
  ' 输入用户名和密码
  get 远程文件名 本地绝对路径文件名
  

  如果命令行也无法下载，说明是FTP服务器或网络配置问题；如果命令行能下载，再聚焦VB6控件的配置问题

内容的提问来源于stack exchange，提问作者Sajini P