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

opiona

nblhj 发表于 2022-8-25 20:30
从显示信息看，文件名均少了前面4个字节。
原因是win32_find_data数据定义与64位系统编译时字节对齐规则不 ...

感谢指导  此问题的解决办法见下面代码
能帮忙看看   删除文件夹 的问题么

1.         Rem 第一个文件或文件夹的名称
   
2.         #If VBA7 And Win64 Then
   
3.             StrTemp = Mid(pData.cFileName, 5, InStr(5, pData.cFileName, String(1, 0), vbBinaryCompare) - 5)
   
4.         #Else
   
5.             StrTemp = Left(pData.cFileName, InStr(1, pData.cFileName, Chr(0), vbBinaryCompare) - 1)
   
6.         #End If

复制代码

xushanxian

首先非常感谢你提供的例子。
不知道你删除文件夹的问题解决了没有。刚刚我试了下，应该是路径出问题了。
就是相对路径与绝对路径的问题。
用SetFTPDirectory设置的相对路径，此路径中如果存在文件夹（里面无文件、无子文件夹）就可删除。
用绝对路径就不要用SetFTPDirectory，不然会找不到路径。

xushanxian

Sub FTP_删除文件夹()
   
    Dim PathPC  As String
    Dim PathFTP As String
   
    PathFTP = "A/123/" & Format(Date, "yyyyMMdd")      '这里放你想从FTP下载的文件名
   
    PathFTP = "A/123/3/"
   
    Set C_FTP = New ClassFTP
    C_FTP.SetModePassive
   
    Call A_GONGGONG
    BL = C_FTP.OpenConnection(Pub_Server, Pub_User, Pub_PWD)
    If BL = True Then
'       BLA = C_FTP.SetFTPDirectory(PathFTP)
        BLA = C_FTP.SetFTPDirectory("A/123/")
    End If
    If BLA = True Then
        BL = C_FTP.RemoveFTPDirectory("3/")
    End If
   
   
   
    '     BL = C_FTP.RemoveFTPDirectory(PathFtp)
    C_FTP.CloseConnection
   
    Rem 如果出错
    If BL = False Then
        MsgBox C_FTP.GetLastErrorMessage
        MsgBox "删除失败"
    Else
        If BLA = False Then
            MsgBox "不存在"
        Else
            MsgBox "删除成功"
        End If
    End If
   
End Sub

opiona

测试未成功  在类模块中调用的下图函数
显然 他没弄明白 路径

xushanxian

Public Function RemoveFTPDirectory(ByVal StrServer As String, ByVal StrUser As String, ByVal StrPWD As String, ByVal strPathFTP As String, Optional ByVal BoolErr As Boolean = False) As Boolean
    Rem 删除FTP文件夹  不存在的也认为是被删除了
    Rem StrServer   FTP服务器地址
    Rem StrUser      登录用户名
    Rem StrPWD     用户密码
    Rem StrPathFTP  Ftp文件夹名  "A/123/"
    Rem BoolErr     是否显示出错信息, 默认=false 不显示
    Rem 代码整理:   北极狐工作室QQ: 14885553
   
    Dim BL As Boolean, BLA As Boolean
    Dim C_FTP As New ClassFTP
   
    Dim strPathFTPParent As String
   
    Set C_FTP = New ClassFTP    '//创建一个类
    C_FTP.SetModePassive
    Rem 登录FTP服务器
    BL = C_FTP.OpenConnection(StrServer:=StrServer, StrUser:=StrUser, StrPWD:=StrPWD)
    If BL = True Then
        Rem 登陆后开始判断
        
'        strPathFTPParent = Left(strPathFTP, InStrRev(strPathFTP, "/") - 1)           '如果最有边有"/"，去除最右边的"/"符
'        strPathFTPParent = Left(strPathFTPParent, InStrRev(strPathFTPParent, "/"))   '获得上级路径
        
        strPathFTPParent = Left(strPathFTP, InStrRev(strPathFTP, "/"))                '如果最右边无"/"符
        
        If strPathFTPParent <> "" Then                                          '如果当前不是根目录
            BLA = C_FTP.SetFTPDirectory(strPathFTPParent)
        
        Else
            BLA = True
        End If
        
        If BL = True Then
            Rem 登陆后开始删除
            
            strPathFTP = Replace(strPathFTP, strPathFTPParent, "")                         '当前路径中的文件夹
            
            
            BL = C_FTP.RemoveFTPDirectory(strPathFTP:=strPathFTP)
        Else
            BL = True '//不存在认为是删除了
        End If
    End If
    C_FTP.CloseConnection  '//关闭链接
   
    If Len("" & C_FTP.GetLastErrorMessage) > 0 Then  '//如果出错
        Rem  是否显示错误信息
        If BoolErr = True Then
            MsgBox "RemoveFTPDirectory出错" & vbCrLf & C_FTP.GetLastErrorMessage, vbInformation, "北极狐工作室QQ: 14885553"
        End If
    End If
   
    RemoveFTPDirectory = BL
End Function

xushanxian

我这试了可以删除文件夹

xushanxian

漏了句：On Error Resume Next ，防止根目录，路径中没有“/” 时InStrRev(strPathFTP, "/")会报错。

PathFTP = "A/123/3/中国"    ，strPathFTPParent = Left(strPathFTP, InStrRev(strPathFTP, "/"))
strPathFTPParent  = "A/123/3/"

strPathFTP = Replace(strPathFTP, strPathFTPParent, "")
PathFTP = "中国"

xushanxian

opiona

xushanxian 发表于 2024-6-22 08:53

十分感谢  测试成功

伶俐的毛豆

老朋友，能分享給我用用吗