comptage ou simple condition ?

Version imprimable

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:

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 :P

29/06/2012, 15h37
Attila54
je pensais mettre quelque chose comme
Code:

1 2 3 4 if localpath = "" then label1.visible = true else label.visible = false
juste apres le wc.downloadfiles ...
29/06/2012, 15h47
silace

Là ta condition

Code:

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
02/07/2012, 07h44
Attila54

bonjour silace,
ce que tu veux dire, c'est que localpath ne regardera pas QUE le contenu de rep3 ?
02/07/2012, 09h55
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)
02/07/2012, 09h59
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

j'ai fait un sub comme ca en utilisant count:

Code:

1
2
3
4
5
6
7
8
9
Private Sub compterfichiers()
        Const MyFolder = "\\nas\rep1\rep2\rep3\"
        Dim objFso As Integer
        objFso = CreateObject("Scripting.FileSystemObject")
        If objFso.FolderExists(MyFolder) Then
            If objFso.GetFolder(MyFolder).Files.Count <> 0 Then MsgBox("fichiers a telecharger", vbExclamation)
        End If
        objFso = Nothing
    End Sub

pourtant j'ai des erreurs comme quoi createobject n'est pas déclaré, getfolder n'est pas membre de integer et msgbox pas déclaré non plus :? count ne fonctionne pas en vb.net ?