在FTP中创建目录

我使用下面的代码创建一个目录。 问题是我没有得到一个错误,但我也没有找到我刚刚创建的目录。

那么,我在这里做错了什么?我该休息一下吗?

 Public Function CreateDirectory(ByVal Dir As String) As Boolean
        Dim myftprequest As Net.FtpWebRequest = CType(FtpWebRequest.Create(FTPSite + Dir), FtpWebRequest)
        myftprequest.Credentials = New NetworkCredential(UserName, Password)
        myftprequest.Method = WebRequestMethods.Ftp.MakeDirectory
        Return True
    End Function