voila j'aimerai creer un repertoire sur un serveur FTP.
savez vous comment faire
JJ
voila j'aimerai creer un repertoire sur un serveur FTP.
savez vous comment faire
JJ
c bon
et voila ca me cré le repertoire mag3
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 Dim serveurCible As String Dim identifiant As String Dim motDePasse As String serveurCible = "ftp://127.0.0.1/mag3/" motDePasse = "polo" identifiant = "polo" Dim monResponseStream As Stream = Nothing Dim monStreamReader As StreamReader = Nothing Dim monResultat As Array = Nothing ' Instanciation de deux Uri qui vont contenir les chemins source et destination Dim monUriServeur As New System.Uri(serveurCible) '' Vérification de la validité de l'Uri du fichier sur le serveur FTP 'If Not (monUriServeur.Scheme = Uri.UriSchemeFtp) Then ' MessageBox.Show("L'Uri du serveur FTP n'est pas valide", _ ' "Une erreur est surevnue", _ ' MessageBoxButtons.OK, MessageBoxIcon.Warning) 'End If ' Création de la requête de récupération de la liste des fichiers Dim maRequeteListe As FtpWebRequest = CType(WebRequest.Create(monUriServeur), FtpWebRequest) maRequeteListe.Method = WebRequestMethods.Ftp.MakeDirectory ' Vérification de la présence des identifiants d'un compte, si aucun alors ' la connexion se fait en mode anonyme If Not identifiant.Length = 0 Then Dim monCompteFtp As New NetworkCredential(identifiant, motDePasse) maRequeteListe.Credentials = monCompteFtp End If
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager