FtpPutFile函数执行成功，但只上传了0字节的文件，昨晚还可以上传文件的，代码没改动过，什么回事？

ftpO是一个ftp操作集合的类

测试程序
Dim ftpX As New ftpO
ftpX.Connect "58.61.153.6", 21, "[email protected]", "111111"
MsgBox ftpX.IsConnected
ftpX.PutFile "C:\ex111011.rar", "WebLog/ex111011.rar"

PutFile函数成功执行，而且在服务器端找到"WebLog/ex111011.rar"文件，但文件无数据为0字节，昨晚测试还是正常可以上传文件的，今天就不行了，代码没动过，什么回事？

PutFile的代码：

Public Function PutFile&(ByVal LocalFile$, _
  ByVal ToHostFile$, _
  Optional tt As FileTransferType = fttUnknown)
  On Local Error GoTo Handler
  Dim ReturnVal&
  Dim Pos&
  Dim ErrMsg$
  PutFile& = FAILURE&
  'If not connected, raise an error
  If m_hSession& = NO_CONNECTION& Then
  Err.Raise ERR_NOT_CONNECTED_TO_SITE, "clsFTP:PutFile", ERR_NO_CONNECTION$
  End If
  ReturnVal& = FtpPutFile(m_hSession&, LocalFile$, _
  ToHostFile$, tt, 0)
  If ReturnVal& = FAILURE& Then
  ErrMsg$ = Replace(ERR_DOWNLOAD$, "%s", ToHostFile$)
  ErrMsg$ = ErrMsg$ & vbCrLf & GetINETErrorMsg(Err.LastDllError)
  Err.Raise ERR_CANNOT_RENAME, "clsFTP:PutFile", ErrMsg$
  End If
  PutFile& = SUCCESS&
ExitProc:
  Exit Function
Handler:
  PutFile& = Err.Number
  Resume ExitProc
End Function

原来是路径问题，"WebLog/ex111011.rar改成"/WebLog/ex111011.rar 就行了