vba调用Winscp不能上传或下载文件，路径不能掺杂空格和中文

伶俐的毛豆

从ftp下载文件到本地，或者上传文件到ftp，本人使用winscp.com执行批处理命令，发现本地文件名，本地路径，远端目录，远端文件名都不能包含中文字符，也不能包含空格，这是什么原因呢（不带空格字符的英文数字组合路径都能成功，不带空格字符的英文数字组合组合命名文件都能成功）

无论是本地端，还是远端，只要出现了中文字符，或者出先了空格字符，就一定失败

以下是我的代码：

1. Sub TEST()
   
2.     Dim env_addr, env_user, env_passwd, locaftp, ftpfile
   
3.     locaftp = "D:\ftp"
   
4.     ftpfile = "/upload/NVDHC02.xls"
   
5.     strExePath = "D:\ftp\config.bat"
   
6.    
   
7.     '糶dos
   
8.     Open strExePath For Output As #1
   
9.         Print #1, "("
   
10.         Print #1, "echo open zjj:123456@10.154.248.95:22"
    
11.         Print #1, "echo lcd " & locaftp
    
12.         Print #1, "echo bin"
    
13.         Print #1, "echo get " & ftpfile
    
14.         Print #1, ") | ""C:\Users\G4987120\AppData\Local\Programs\WinSCP\WinSCP.com"""
    
15.     Close #1
    
16.    
    
17.     '磅︽dos
    
18.     Set wsh = VBA.CreateObject("WScript.Shell")
    
19.     wsh.Run (strExePath)
    
20.    
    
21. End Sub

复制代码

但是是用图形化界面下载和上传又可以，我使用了以下两种图形化界面，一种是FileZilla软件，另一种是WinSCP软件，都是可以的，不会出现上述情况：






请大家帮我看看，问题究竟出现在哪.

zpy2

我这里andftp也不支持中文。你服务端是linux吗？是不是系统是utf-8字符集？

伶俐的毛豆

zpy2 发表于 2024-7-30 06:37
我这里andftp也不支持中文。你服务端是linux吗？是不是系统是utf-8字符集？

是的，服务端是linux，utf-8

zpy2

伶俐的毛豆 发表于 2024-7-30 08:05
是的，服务端是linux，utf-8

那需要把本地文件名修改为 utf-8试试

伶俐的毛豆

zpy2 发表于 2024-7-30 08:48
那需要把本地文件名修改为 utf-8试试

具体怎么转码呢，能帮忙写个例子吗

zpy2

伶俐的毛豆 发表于 2024-7-30 10:52
具体怎么转码呢，能帮忙写个例子吗

https://club.excelhome.net/forum.php?mod=viewthread&tid=1653986&page=0&mobile=2&_dsign=e14d066f

伶俐的毛豆

zpy2 发表于 2024-7-30 11:51
https://club.excelhome.net/forum.php?mod=viewthread&tid=1653986&page=0&mobile=2&_dsign=e14d066f

彻底混圈了，不知道咋弄了

zpy2

伶俐的毛豆 发表于 2024-7-30 16:12
彻底混圈了，不知道咋弄了

WScript.Shell

这个shell不知道是不是cmd环境执行有限制。

你非要vba方式吗？
其他语言不行吗？

lss001

伶俐的毛豆 发表于 2024-7-30 16:12
彻底混圈了，不知道咋弄了

Public Function URLEncode(strInput As String) As String
'**********************
'中文转码示例: Debug.Print URLEncode("中文")
'**********************
Dim strOutput As String
Dim intAscii As Integer
Dim I As Integer
Dim strTemp As String

For I = 1 To Len(strInput)
intAscii = Asc(Mid(strInput, I, 1))
If ((intAscii < 58) And (intAscii > 47)) Or _
((intAscii < 91) And (intAscii > 64)) Or _
((intAscii < 123) And (intAscii > 96)) _
Then
strOutput = strOutput & Chr$(intAscii)
Else
strTemp = Trim$(Hex$(intAscii))
strOutput = strOutput & "%" & Left(strTemp, 2) & "%" & Right(strTemp, 2)
End If
Next
URLEncode = strOutput
End Function

fxl447098457

ftp论坛应该有相关库吧,比操作命令行更可控。