Creare cartella su un server FTP in VB

[KillerPenguin]

Salve, era un po' di tempo che non facevo richieste (Comincio a cavarmela da solo)

Comunque, sono un po' di giorni che sto googlando ma ancora non sono riuscito a venirne fuori. Ho la necessità di creare una cartella in un server FTP in VB 2010. Se non è possibile crearla direttamente sul server potreste indicarmi come caricarne una creata in locale?

Conto sul vostro sapere

[Andy94]

In questa pagina (Stackoverflow, la manna per noi programmatori in qualunque linguaggio) si fa questo esempio.
http://stackoverflow.com/questions/9031 ... ftp-server

Vedi un po'.

[KillerPenguin]

Perdonami ma non ci ho capito niente. qual è la libreria da importare?

[Andy94]

La documentazione MSDN dice System.Net.

Dentro lì ci sono eventuali sottogruppi.

[KillerPenguin]

ho importato le librerie System.net e ho dato questo codice

Codice: Seleziona tutto

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sFilePath As String = "ftp://sito.altervista.org/cartella da creare"
        Dim ftpResponse1 As FtpWebResponse
        Dim ftpRequest1 As FtpWebRequest
        Dim IsExists1 As Boolean = True
        ftpRequest1 = CType(FtpWebRequest.Create(sFilePath), FtpWebRequest)
        ftpRequest1.UseBinary = True
        ftpRequest1.Credentials = New NetworkCredential("user", "password")
        ftpRequest1.UsePassive = True
        ftpRequest1.Method = WebRequestMethods.Ftp.MakeDirectory
       
    End Sub

non mi viene dato alcun tipo di errore però la cartella non viene creata

[KillerPenguin]

Avevo sbagliato la risposta comunque ho risolto così

Codice: Seleziona tutto

Dim request As Net.FtpWebRequest = CType(FtpWebRequest.Create("ftp://sito/cartella da creare/"), FtpWebRequest)
        request.Credentials = New NetworkCredential("user", "password")
        request.Method = WebRequestMethods.Ftp.MakeDirectory

            Using response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
                ' Folder created
            End Using

Un sentito grazie a chi mi ha aiutato