Discussion :

[tomlev]

Que vaut fileName au moment où tu as l'erreur ?

Et est-ce que le répertoire sur le ftp contient des sous-répertoires ?

Si oui, ça va être un peu galère, parce qu'avec ListDirectory il n'y a aucune différence visible entre les fichiers et les répertoires. Il faudrait utiliser ListDirectoryDetails, qui donne un résultat plus détaillé dans ce style :

-rw-r--r--   1 developp developp   484 Apr 15 15:25 .htaccess 
drwxr-xr-x   6 developp developp  4096 Apr 20 23:23 dotnet 
-rw-r--r--   1 developp developp  2238 Jan 15  2009 favicon.ico 
drwxr-xr-x   2 developp developp  4096 Jan  4 02:11 files 
drwxr-xr-x   2 developp developp  4096 Mar 23  2009 images 
drwxr-xr-x   2 developp developp  4096 Feb 24 14:25 include 
-rw-r--r--   1 developp developp  5700 May 12 22:08 index.php 
-rw-r--r--   1 developp developp   887 Jul 28  2009 sitemap.xml 
-rw-r--r--   1 developp developp  3401 Apr 10  2009 styles.css 
lrwxrwxrwx   1 developp developp    44 Dec  7  2008 template -> /home/developpez/www/developpez-com/template 
drwxr-xr-x   5 developp developp  4096 Apr 11 23:11 test 
-rwxr-xr-x   1 developp developp  1267 Dec 31  2008 test_geoloc.php 
-rwxr-xr-x   1 developp developp   505 Mar 24  2009 test_rss.php 
-rw-r--r--   1 developp developp  1390 Mar 20  2009 testlayout.php 
drwxr-xr-x   4 developp developp  4096 Apr 15 15:29 traductions 
drwxr-xr-x   4 developp developp  4096 Apr 20 23:13 tutoriels 
-rw-r--r--   1 developp developp  3020 Mar 23  2009 xo_css.css 

Il faut ensuite analyser chaque ligne pour extraire le type (fichier/répertoire), et traiter différemment les fichiers et répertoires. Bref, c'est du boulot...

[Attila54]

alors filename vaut : "\\nas\rep1\rep2\rep3\rep4\." au moment de l'erreur
c'est le path ou je dois enregistrer le fichier downloadé a partir du FTP

le chemin complet de l'acces au ftp est en 755 au niveau permissions
le path sur le ftp est de type "ftp://ftp.ovh../www\jdownloads/repA\repB\." donc oui il contient des sous reps (ceci posé, j'ai uploadé un file a la racine du ftp et change le path pour voir ..... même erreur .....

en ce qui concerne filename, les droits d'acces total sont accordés a tout le monde

il ne devrait pas y avoir de souci d'acces a ma connaissance si ?

[Attila54]

d'après le message d'erreur, c'est pas l'acces au repertoire local qui est incriminé non ?

ce que je ne comprends pas en fait c'est que localfiname au moment de l'erreur, vaut "c:/temp/." et si j'ai bien compris la syntaxe, il devrait valoir c:/temp/le_ou_les_fichiers_a_telecharger non ?

Parce que je but in fine est bien de telecharger les fichiers ayant l'extension .xls vers le rep local

[tomlev]

alors filename vaut : "\\nas\rep1\rep2\rep3\rep4\."

Non, ça c'est localFileName a priori...
Vu le point à la fin, je suppose que fileName vaut ".", qui représente le répertoire courant. En fait certains serveurs vont renvoyer "." et ".." dans le listing, d'autres non (c'est pas très standardisé). Donc il faut que tu testes le nom pour ne pas traiter ça comme des fichiers. Ajoute ça au début du for each :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If fileName = "." OrElse fileName = ".." Then
    Continue For
End If

[Attila54]

au moment de l'erreur voici exactement ce que j'ai :
j'ai mis un path local simple C:/temp/

Baseuri vaut "ftp://ftp.cluster006.ovh.net/www/jdownloads/rep1/rep2/"
Filename vaut "."
Filenames vaut "count = 5"
Localpath vaut "c:/temp/"
Localfilename vaut "c:/temp/."

[Attila54]

aaahhhhh ca fonctionne a 99.9%
Le download se fait bien et va bien se mettre au bon endroit dans le rep local.
Seul petit hic, c'est que TOUS les fichiers sont télécharges et moi j'aimerais que seuls les .xls le soient.

C'est deja super je suis content et en même temps, j'ai appris beaucoup

me reste maintenant a deplacer les fichiers downloadés de
"ftp://ftp.cluster006.ovh.net/www/jdownloads/repA/repB/" vers "ftp://ftp.cluster006.ovh.net/www/jdownloads/repA/repD/" et la boucle sera bouclée

[tomlev]

Seul petit hic, c'est que TOUS les fichiers sont télécharges et moi j'aimerais que seuls les .xls le soient.

Bah c'est le même principe que pour exclure "." et "..", il suffit de rajouter un test sur le nom...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If Not fileName.EndsWith(".xls", StringComparison.CurrentCultureIgnoreCase) Then
    Continue For
End If

(StringComparison.CurrentCultureIgnoreCase indique de ne pas tenir compte de la casse)

[Attila54]

j'avais bien essaye de mettre un orelse filname = ".html" (vu que j'ai que des fichiers .xls ou .html dans le folder mais ca avait un peu foiré

tu m'avais dit pour faire un move des .xls d'un rep a l'autre du ftp apres le download, je devais utiliser une FtpWebRequest
mais puis je quand même utiliser la Function GetDirectoryListing et ensuite boucler sur le filemove ?

[tomlev]

mais puis je quand même utiliser la Function GetDirectoryListing et ensuite boucler sur le filemove ?

Oui, fais le dans la même boucle que le téléchargement

[Attila54]

ah ? mais dans le telechargement j'utilise un webclient non ?

[tomlev]

ah ? mais dans le telechargement j'utilise un webclient non ?

Oui, et alors ?

[Attila54]

ben alors ..... j'en sais rien en fait, je pensais qu'il fallait faire une autre sub
puisque la, comme chemin ftp, je ne dispose que de baseUri et le but est de passer les files de baseUri a baseUri2 si on peut dire
Faut dire que mon pauvre vieux cerveau de 50 ans fort de plein d'inexperience en vb.net est un peu lent a la detente

[tomlev]

ben alors ..... j'en sais rien en fait, je pensais qu'il fallait faire une autre sub

Bah tu peux faire une autre sub qui sert à déplacer un fichier, et que tu appelles à partir de la boucle (histoire de ne pas rendre la méthode principale illisible)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Shared Sub MoveFile(oldUri As String, newPath As String, credentials As ICredentials)
    Dim request = DirectCast(WebRequest.Create(oldUri), FtpWebRequest)
    If credentials IsNot Nothing Then
		request.Credentials = credentials
	End If
    request.Method = WebRequestMethods.Ftp.Rename
    request.RenameTo = newPath
    Using response As WebResponse = request.GetResponse()
    End Using
End Sub

Ensuite dans le code où il y a la boucle tu fais quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
        Dim newDirectory As String = "/www/jdownloads/repA/repD"
 
        For Each filename In fileNames
            If Not fileName.EndsWith(".xls", StringComparison.CurrentCultureIgnoreCase) Then
                Continue For
            End If
            Dim localFileName = System.IO.Path.Combine(localpath, fileName)
            Dim uri = baseUri + "/" + fileName
            wc.DownloadFile(uri, localFileName)
            Dim newPath as String = newDirectory + "/" + fileName
            MoveFile(uri, newPath)
        Next

[Attila54]

Effectivement vu sous cet angle, ca parait facile ......... et pourtant .....
je teste ca des demain
Merci encore pour ton aide

[Attila54]

alors j'ai fait ca mais je suis pas certain que ca soit bon dans l'ordre des choses

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
31
32
33
34
35
36
37
38
39
40
41
 Private Shared Sub MoveFile(ByVal oldUri As String, ByVal newPath As String, ByVal credentials As ICredentials)
        Dim request = DirectCast(WebRequest.Create(oldUri), FtpWebRequest)
        If credentials IsNot Nothing Then
            request.Credentials = credentials
        End If
        request.Method = WebRequestMethods.Ftp.Rename
        request.RenameTo = newPath
        Using response As WebResponse = request.GetResponse()
        End Using
    End Sub
    Private Sub download()
        Dim user As String = "monlogin"
        Dim password As String = "monpass"
        Dim wc As New WebClient()
        wc.Credentials = New NetworkCredential(user, password)
        Dim baseUri = "ftp://ftp.cluster006.ovh.net/www/jdownloads/repA/repB/" 'URI et chemin ou je veux aller dans le ftp
        Dim newDirectory As String = "ftp://ftp.cluster006.ovh.net/www/jdownloads/repA/repD/"
        Dim fileNames = GetDirectoryListing(baseUri, wc.Credentials)
        Dim localpath As String = "\\nas\rep1\rep2\rep3\rep4\" 'chemin ou je veux dl les fichiers
        For Each filename In fileNames
            If filename = "." OrElse filename = ".." Then
                Continue For
            End If
            If Not filename.EndsWith(".xls", StringComparison.CurrentCultureIgnoreCase) Then 'ne tient pas compte de la casse
                Continue For
            End If
            Dim localFileName = System.IO.Path.Combine(localpath, filename)
            Dim uri = baseUri + "/" + filename
            wc.DownloadFile(uri, localFileName)
        Next
        For Each filename In fileNames
            If Not filename.EndsWith(".xls", StringComparison.CurrentCultureIgnoreCase) Then
                Continue For
            End If
            Dim localFileName = System.IO.Path.Combine(localpath, filename)
            Dim uri = baseUri + "/" + filename
            wc.DownloadFile(uri, localFileName)
            Dim newPath As String = newDirectory + "/" + filename
            MoveFile(uri, newPath)
        Next
    End Sub

j'ai une erreur à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MoveFile(uri, newPath)

==>

Argument non spécifié pour le paramètre 'credentials' de 'Private Shared Sub MoveFile(oldUri As String, newPath As String, credentials As System.Net.ICredentials)'.

[BenoitM]

Si tu mettais un watch sur la variable uri, tu aurais vu que tu mets deux fois le "/"
Dim uri = baseUri + "/" + filename
Dim uri = "ftp://ftp.cluster006.ovh.net/www/jdownloads/repA/repB/" + "/" + "toto.xls"

Le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If filename = "." OrElse filename = ".." Then
                Continue For
            End If

ne sert plus à rien

Tu copies 2 fois le fichier.
Les deux boucles n'ont que peu d'utilité dans ce cas ci

Perso j'aurai fait une boucle pour avoir tous les noms de fichier valides
et une deuxieme pour faire les opérations (copy + move) sur la liste créer

[Attila54]

je suis désolé mais je ne comprends pas bien cette histoire de 2 boucles
La, j'ai une boucle qui download et une boucle qui move si je suis bien

je vois aussi que uri est dimensionnée dans chaque boucle ce qui est peut être incorrect

je ne comprends toujours pas pourquoi j'enregistre 2 fois ...

[BenoitM]

Tu as deux fois l'appel à wc.DownloadFile(uri, localFileName)

[Attila54]

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
Private Sub download()
        Dim user As String = "monlogin"
        Dim password As String = "monpass"
        Dim wc As New WebClient()
        wc.Credentials = New NetworkCredential(user, password)
        Dim baseUri = "ftp://ftp.cluster006.ovh.net/www/jdownloads/repA/repB/" 
        Dim newDirectory As String = "ftp://ftp.cluster006.ovh.net/www/jdownloads/repA/repD/"
        Dim fileNames = GetDirectoryListing(baseUri, wc.Credentials)
        Dim localpath As String = "\\nas\rep1\rep2\rep3\rep4\" 
        For Each filename In fileNames
            Dim newPath As String = newDirectory + filename
            If Not filename.EndsWith(".xls", StringComparison.CurrentCultureIgnoreCase) Then 'ne tient pas compte de la casse
                Continue For
            End If
            Dim localFileName = System.IO.Path.Combine(localpath, filename)
            Dim uri = baseUri + filename
            wc.DownloadFile(uri, localFileName)
            MoveFile(uri, newPath)
        Next
    End Sub

Ceci me parait plus logique finalement mais j'ai toujours l'erreur a "MoveFile(uri, newPath)" et je ne comprends toujours pas pourquoi. Même si je mets " Dim uri = baseUri + filename" ca ne change rien et en plus dire que ca marchait tres bien comme ca hier

[BenoitM]

Le message dit :

Argument non spécifié pour le paramètre 'credentials' de 'Private Shared Sub MoveFile(oldUri As String, newPath As String, credentials As System.Net.ICredentials)'.

En francais ca veut dire que tu appelle MoveFile sans le paramètre credentials

donc MoveFile(uri, newPath,wc.Credentials) à la place de MoveFile(uri,newPath)