前两次笔记中我们介绍了ftp上传和下载的方法，本次将介绍ftp创建目录的方法

     Const Str_FtpServer As String = "ftp://ftp.lob.cn"

    Private Str_Username As String = "lob"
    Private Str_Password As String = "xxxxxxxx"

 Private Sub CreateFolder(ByVal FolderName As String)

        Try
            Dim Str_Folder As String = Str_FtpServer & "/" & FolderName

            Dim ftpReq As FtpWebRequest = WebRequest.Create(Str_Folder)
            ftpReq.Method = WebRequestMethods.Ftp.MakeDirectory
            ftpReq.Credentials = New NetworkCredential(Str_Username , Str_Password )
            Dim ftpResp As FtpWebResponse = ftpReq.GetResponse
            ftpResp.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

记得在ftp服务器上要允许此用户创建目录的权限 ：）

下次的笔记将做关于VB.Net实现ftp编程的方法做个分类说明