日期:2014-05-20  浏览次数:20734 次

关于利用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/