il les a vu....

[Patrick88]

en farfouillant sur mon disque dur à la recherche de la fonction eventwparam() que je n'ai pas trouvé , je suis tombé sur ce code , il à été écrit par un certain Sebi...

ça va rappeler de bon souvenir à certain....

David Vincent

Code : Tout sélectionner

Procedure.s ListFiles(directory.s , filename.s, extension.s , directoryid.l )
  If Right(directory,1)<>"\"
    directory+"\"
  EndIf
  ExamineDirectory(directoryid,directory,"*.*")
  dirid=NextDirectoryEntry()
  While dirid
    Select dirid
      Case 1
        file.s=DirectoryEntryName()
        this_extension.s=LCase(GetExtensionPart(file))
        this_filename.s=LCase(Left(file,Len(file)-Len(this_extension)))
        If Len(this_extension)
          this_filename=Left(this_filename,Len(this_filename)-1)
        EndIf
        If this_extension=extension Or extension="*"
          If this_filename=filename Or filename="*"
            file.s=directory+DirectoryEntryName()
            
            ;file contains the full path and filename
            ;you must insert here what to do with the file
            Debug file
                
          EndIf
        EndIf
      Case 2
        If DirectoryEntryName()<>"." And DirectoryEntryName()<>".."     
          ListFiles(directory+DirectoryEntryName()+"\",filename,extension,directoryid+1)      
          UseDirectory(directoryid)
        EndIf
    EndSelect
    dirid=NextDirectoryEntry()
  Wend
  ProcedureReturn ""
EndProcedure

Debug "all txt-files in c:\windows\"
ListFiles("c:\windows","*","txt",0)
Debug ""

[Chris]

C'est bizarre, ça me rappelle un code qui m'a bouffé la moitié des fichiers de mon disque dur.

En tout cas, moi, je teste pas. J'ai déjà donné

Chris

PS Non..., je plaisante, évidemment!!

(Quoi que... )

[Chris]

Heuuu!!!

Qu'est-ce qu'il faut voir, au fait ???

Chris

[Patrick88]

Heuuu!!!

Qu'est-ce qu'il faut voir, au fait ???

Chris

c'est à cause de ce que je dit :
en farfouillant sur mon disque dur à la recherche de la fonction eventwparam() que je n'ai pas trouvé

c'est comme dans les envahisseurs
il a prit un raccourci qu'il n'a jamais trouvé...

j'ai signé david vincent, t'aurais dû trouver !!!

V

[Anonyme2]

Lorsque l'on gère une boucle d'événements, on a au moins 2 paramètres qui sont Lparam et wParam.

eventwparam() retourne la valeur contenu dans wParam.
Vous remarquez que lorsque vous utilisez l'API sendmessage, un des paramètre est wParam

Voici les paramètres utilisés par une procédure de gestion d'événements (exemple PB pour SetWindowCallBack())

Code : Tout sélectionner

Procedure MaProcedureCallback(WindowID, Message, wParam, lParam) 
    Resultat = #PB_ProcessPureBasicEvents 
    ; 
    ; entrez votre code ici 
    ; 
    ProcedureReturn Resultat 
  EndProcedure 

[Patrick88]

houlà, la le Denis il a bu autre chose que de l'eau plate !

pat

[Anonyme2]

houlà, la le Denis il a bu autre chose que de l'eau plate !

J'aime pas l'eau gazeuse...

Peut-être que j'ai pas tout lu comme il faut
C'est pas grave, je ne suis plus à ça prêt depuis longtemps