qui peux m'aider pour un programme svp

jbernard13 · Message par **jbernard13** » dim. 25/juil./2004 12:10

bonjour
je voudrais comment creer une application qui qunad je cliquerai sur le bouton search
me vera apparaitre le contenu du repertoire temp
er apres je pourrais effacer les fichiers contenu dans ce repertoire

mais voila je sais pas faire ça avec pure basic ....

merci

Jbernard13

Backup · Message par **Backup** » dim. 25/juil./2004 12:40

tu veux que tous les fichier s'efface tous seul? ou tu veux pouvoir effacer certain fichiers et pas d'autres ?

parceque dans ce dernier cas je t'orienterai vers les Requester (voir doc du pure)

et la fonction

Resultat = DeleteFile(NomFichier$)

(vraiment pas dur a faire !! )

jbernard13 · Message par **jbernard13** » dim. 25/juil./2004 12:52

ce que faire

c'est de cliquer sur un bouton
et le contenu du repertoire s'affiche
et densuite de choir les fichiers que veux supprimer

Backup · Message par **Backup** » dim. 25/juil./2004 13:40

et voila !!!

Code : Tout sélectionner


; by dobro
;- Window Constants
;
Enumeration
    #Window
EndEnumeration

;- Gadget Constants
;
Enumeration
    #Button
EndEnumeration


Procedure Open_Window()
    If OpenWindow(#Window, 329, 152, 193, 83,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "repertoire")
        If CreateGadgetList(WindowID())
            ButtonGadget(#Button, 40, 20, 111, 36, "repertoire")
            
        EndIf
    EndIf
EndProcedure

Open_Window()

Repeat
  
  Event = WaitWindowEvent()
  
  If Event = #PB_EventGadget
    
    ;Debug "WindowID: " + Str(EventWindowID())
    
    GadgetID = EventGadgetID()
    
    If GadgetID = #Button
        ;c:\WINDOWS\Temp
        NomFichier$ = OpenFileRequester("efface un fichier choisie", "c:\WINDOWS\Temp\", "*.*", 0 , #PB_Requester_MultiSelection) 
       Resultat = DeleteFile(NomFichier$)
        
    EndIf
    
  EndIf
  
Until Event = #PB_EventCloseWindow

End
;

jbernard13 · Message par **jbernard13** » dim. 25/juil./2004 14:53

merci
peux me commenter le code

merci bien

Jbernard

jbernard13 · Message par **jbernard13** » dim. 25/juil./2004 15:17

et comencer progammer un bouton recherche d'un fichier sur le disque dur ?

merci

Lukky · Message par **Lukky** » dim. 25/juil./2004 17:12

He Dobro ensuite si t'as deux minutes, tu veux pas passer un p'tit coup d'aspirateur chez moi ?

JL

Backup · Message par **Backup** » dim. 25/juil./2004 17:44

Lukky · Message par **Lukky** » dim. 25/juil./2004 19:15

Heee t'es pas fou de mettre ça sur le forum !!

T'imagine si ma femme voit ça les mauvaises idées que ça pourrait lui donner !!

Briseur de ménage

JL

jbernard13 · Message par **jbernard13** » dim. 25/juil./2004 21:10

arreter un peu de polluer les messages

OK

julien · Message par **julien** » dim. 25/juil./2004 21:13

Dobro se déchaine...