SUB == FUNCTION : important svp !!! Résolu

Question

Bonjour,

J'aimerais faire une fonction qui fasse le même travail que ce SUB :

Try

Dim occurence 
AsInteger 0occurence 

My.Computer.FileSystem.FindInFiles(dossier, 
"del", 
False, FileIO.SearchOption.SearchAllSubDirectories).Count

If occurence <> 0 
Then

My.Forms.virusdetect.ShowDialog()

End
If

Catch ex 
As Exception

Exit
Try

End
Try

J'espère avoir été clair...

En bref et très résumé, j'aimerais faire un truc du genre :

Public Function recherche(byval ... as string, ...)
   My.computer.filesystem.findinfiles(string1, string2, ...) ' string passées en argument à la 'function
End function

Voilà merci d'avance à tous !!!

PS : c'est très important et c'est surement un de mes derniers Posts ...

allthew3 · Accepted Answer

si j'ai besoin de récupéré une valeur : est-ce que le dossier contient un fichier, qui lui même contient un mot défini, (lol) a été trouvé ???

et pour mon post pas grave je parlais exprès pour une personne ...

re un résumé :

exemple : 

sub quelquechose(byval ...) handles bouton.click
' rechercher un fichier qui contient le mot "del" dans un dossier ...
dim trouve = rechercher(....)

mais je viens de me rendre compte que ça fait la même chose lol

bon @+++ tant pis pour la question je me débrouillerais comme d'habitude

cs_drahcir · Answer

Salut,


 


quel est l'intérêt si tu n'a pas besoin de récupérer de valeur???? Sinon tu retourne une valeur bidon à la fin et ça marchera aussi.


Si c'est ton dernier post, adieu 





<hr />

@+

tof008 · Answer

Eh oui, il y a des chanceux qui partent en vacances lol! Tu as recu mon mail?

         (Si la réponse vous convient, appuyez sur réponse acceptée...).

                           Noubliez pas de lire le REGLEMENT

cs_drahcir · Answer

Ok, alors tu retournes un booléen en fonction de ton test : Try Dim occurence As Integer = 0 occurence = My.Computer.FileSystem.FindInFiles(dossier, "del", False, FileIO.SearchOption.SearchAllSubDirectories).Count If occurence <> 0 Then My.Forms.virusdetect.ShowDialog() return true Else return false End If Catch ex As Exception return false End Try

@+

allthew3 · Answer

ah oui : return !!!

je l'avais oublié celle là !!

ah merci lol !! c'est ce que j'avais besoin (je met tout ça dans une fonction ...)

@++

allthew3 · Answer

oui mais je pars dans 2 semaines en vacances donc ça va ...

et toi t'as reçu mon mail ? lol

SUB ==> FUNCTION : important svp !!!

6 réponses

Votre réponse

Discussions similaires