关于利用API函数FtpRenameFile 的菜鸟问题
我想利用API函数FtpRenameFile 去更改远程FTP的文件名。声明如下:
Public Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" ( _
ByRef hConnect As Integer, _
ByVal lpszExisting As String, _
ByVal lpszNew As String) As Boolean
程序段:
INet = InternetOpen("FTP Control", 1, vbNullString, vbNullString, 0)
INetConn = InternetConnect(INet, Hostname, 0, Username, Password, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)
连接成功后。
If FtpRenameFile(INetConn, "msconfig.exe", "msconfig_old.exe") Then
MsgBox("更改文件名成功")
Else
MsgBox("更改文件名失败")
End If
但是每次都是弹出 ”更改文件名失败“
我怀疑是我的函数声明有问题,请高手指教。谢谢
注: 上传文件,下载文件都可以实现。
------解决方案--------------------
文件名要包含路径
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)
http://feiyun0112.cnblogs.com/