关于上传，请大家帮忙！！！

为什么我用 Public Declare Function FtpCreateDirectory Lib "wininet.dll" Alias "FtpCreateDirectoryA" _
(ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
 这个API 在FTP服务器上建立文件夹是总是不能成功？？？具体过程如下
我在Inet1_StateChanged事件中调用MDirPublic Sub MDir(strDirName As String)    
    FtpCreateDirectory Inet1.hInternet, strDirName
end SubhFtpSession 的值我用的是Inet控件的hInternet为何不行是否需要首先返回一个控件Inet1的一个连接参数