ExcelHome技术论坛»论坛 › Excel 技术交流与问答 › Excel VBA程序开发 › 请教一下FTP中文文件夹或文件名乱码的问题

EH技术汇-专业的职场技能充电站	妙哉！函数段子手趣味讲函数	Excel服务器-会Excel,做管理系统	Excel Home精品图文教程库
HR薪酬管理数字化实战	Excel 2021函数公式学习大典	Excel数据透视表实战秘技	打造核心竞争力的职场宝典
300集Office 2010微视频教程	数据工作者的案头书	免费直播课集锦	ExcelHome出品 - VBA代码宝免费下载
	用ChatGPT与VBA一键搞定Excel	WPS表格从入门到精通	Excel VBA经典代码实践指南

查看: 1590|回复: 0

[求助] 请教一下FTP中文文件夹或文件名乱码的问题

[复制链接]

hai167

TA的精华主题

TA的得分主题

发表于 2016-9-21 13:45 | 显示全部楼层 |阅读模式

[广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★

根据前辈几个程序，想解决ftp中文乱码的问题，试了很多方法搞不定，求助一下高手。

例如根目录下有个叫“测试”的文件夹，想往这个文件夹下面上传或下载文件

Sub UploadFile()
Dim strRemoteFile As String
Dim strLocalFile As String
Set cF = New cFTP
cF.SetModePassive
strLocalFile = "C:\VCD1\VCD_PLAY.exe" '这里放你想上传导FTP的文件名
strRemoteFile = "VCD_PLAY.exe"             '这是只是在根目录上上传，如果加上测试或者其它中文的文件夹名称不行
If cF.OpenConnection("127.0.0.1", "xfwen", "abc") = False Then
      GoTo errhandle
End If
If cF.FTPUploadFile(strLocalFile, strRemoteFile) = False Then
      GoTo errhandle
End If
cF.CloseConnection
Exit Sub
errhandle:
MsgBox cF.GetLastErrorMessage
cF.CloseConnection
End Sub

乱码.jpg