Wininet 在Excel64位获取FTP目录时出现乱码

opiona · 发表于 2022-6-2 09:31

本帖最后由 opiona 于 2022-6-2 21:30 编辑

正在整理一个WINLAND老师的FTP类在获取文件夹目录时出现问题
这行代码在WPS中没问题, 32位的Excel未测试,应该和WPS相同
但是在Excel64位中获得的是乱码

tempstr = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)

复制代码

哪位知道如何处理

代码见附件:

VBA_FTP_Wininet-20220601.rar (43.07 KB, 下载次数: 24)

补充内容 (2024-7-30 21:14):
全功能完整版见21楼

opiona · 发表于 2022-6-2 12:10

本帖最后由 opiona 于 2022-6-2 22:05 编辑

麻烦各位抽时间看看 !!

opiona · 发表于 2022-6-2 22:43

我的运行环境: WIN10+Excel2019(64位)+WPS2019

opiona · 发表于 2022-6-3 07:17

hFind = FtpFindFirstFile(hConnection, sDirectory, pData, 0, 0)
现在发现 Wininet 中 pData.cFileName 在32位和64位的EXCEL 值是不同的
所以猜想是 Wininet 在64位Excel下不能正确输出: pData.cFileName

32_正确.png

naroto · 发表于 2022-6-3 08:09

64位中的指针及句柄要把long类型改为longptr

opiona · 发表于 2022-6-3 08:11

本帖最后由 opiona 于 2022-6-3 08:12 编辑

大侠能帮忙直接改一下么

也查询到了 LongPtr LongLong 的问题,
但是不会改, API完全不会用!

opiona · 发表于 2022-6-5 20:12

感谢naeoto的帮助 64位的问题解决了
现在还差一个删除文件夹没解决
代码执行通过但是没有实际删除掉!

Public Function RemoveFTPDirectory(sDirectory As String) As Boolean
Rem 删除文件夹不成功
If (FtpRemoveDirectory(hConnection, sDirectory) = False) Then
ErrorOut Err.LastDllError, "RemoveFTPDirectory"
RemoveFTPDirectory = False
Exit Function
Else
RemoveFTPDirectory = True
End If
End Function

复制代码

opiona · 发表于 2022-6-7 22:43

本帖最后由 opiona 于 2022-6-8 07:50 编辑

感谢各位还差删除文件夹了
再有就是断点续传部分, 好像没能真正实现
先将整理好的部分和大家分享一下

FTP的上传下载, 文件和文件夹操作, 支持64位

FTP_Wininet_32_64位函数-QQ14885553.rar (82.34 KB, 下载次数: 85)

nblhj · 发表于 2022-8-25 07:37

学习，学习

nblhj · 发表于 2022-8-25 20:30

从显示信息看，文件名均少了前面4个字节。
原因是win32_find_data数据定义与64位系统编译时字节对齐规则不匹配。
解决办法是将8字节的currency类型的时间变量拆分为2个4字节的long类型变量。

		自动登录	找回密码
密码			免费注册

[求助] Wininet 在Excel64位获取FTP目录时出现乱码

评分

评分