Discussion :

[Attila54]

Bonjour,
dans mon appli, j'ai une sub qui se lance au chargement pour dl certains fichiers via ftp et les transferer vers un folder de mon DD.
Voila la sub :

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
  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/repA/repB/repC/" 'URI et chemin ou je veux aller dans le ftp
        Dim newDirectory As String = "../repD/"
        Dim fileNames = GetDirectoryListing(baseUri, wc.Credentials)
        Dim localpath As String = "\\nas\rep1\rep2\rep3\" 'chemin ou je veux dl les fichiers
        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, wc.Credentials) ' transfere le fichier dans done_treatment apres avoir downloade
        Next
        System.Threading.Thread.Sleep(1000)
        Labelprogress.Visible = False
        OvalShapeencours.Visible = False
        Labeldone.Visible = True
        OvalShapedone.Visible = True
    End Sub

au final donc, mes files downloades se retrouvent en local dans "\\nas\rep1\rep2\rep3\"
je voudrais juste améliorer un peu la chose en regardant apres donc le download, si le rep3 est vide ou non.
- Si le rep est vide, j'affiche un label "Pas de nouveau fichier"
- Si le rep n'est pas vide, j'affiche le label : "Nouveaux fichiers a traiter"

ma question est la suivante :
Me faut il faire un listage des fichiers afin de voir si rep3 contient des fichiers ou puis je simplement mettre une condition if sur le rep3 ??

merci de vos avis

[Attila54]

je pensais mettre quelque chose comme

Code :

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

1
2
3
4
if localpath = "" then
label1.visible = true
else
label.visible  = false

juste apres le wc.downloadfiles ...

[silace]

Là ta condition

Code :

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

if localpath = "" then

ne sera jamais vraie car
la variable localpath est déclarée avec pour valeur "\\nas\rep1\rep2\rep3\"
du coup je pense qu'elle ne sera jamais vide
(je me trompe peut être je suis pas un expert non plus )

par contre tu peux compter le nombre de fichiers dans ton répertoire
et s'il est différent de 0 alors il y a un fichier sinon il n'y en a pas

[Attila54]

bonjour silace,
ce que tu veux dire, c'est que localpath ne regardera pas QUE le contenu de rep3 ?

[Kropernic]

Ajoute simplement une variable de type integer initialisée à zéro qui comptera les fichiers téléchargés.

Si la valeur de cette variable est strictement supérieure à zéro, tu affiches ton messages, sinon rien.

Si le nombre de fichier n'est pas important, tu peux utiliser une variable de type boolean initialisée à false à laquelle tu assignes la valeur true à chaque téléchargement.

A la fin de ton traitement, si la valeur est true, tu affiches ton message, sinon rien.

Griftou.Kropernic (les vieilles habitudes ont la vie dure)

[Attila54]

bonjour GRIFTOU Kropernic,
j'y avais un peu pensé d'ou dailleurs mon topic au cas ou il y aurait juste eu possibilité de réutiliser localpath. Je vais essayer comme tu préconise

pour information, je peux avoir quand même une bonne cinquantaine de fichiers dans le dossier a verifier