lol oui c'est clair, si non apart sa tout fonctionne bien ?
d'ailleur si sa peut servir voici le code source

:
Code : Tout sélectionner
;- Window Constants
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
Enumeration
#Web_0
#Button_0
#Button_1
#ExplorerList_0
#Text_0
EndEnumeration
If OpenWindow(#Window_0, 0, 0, 800, 800, "Aspi radioblog", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(#Window_0))
WebGadget(#Web_0, 0, 0, 800, 600, "http://www.radioblogclub.fr/")
ExplorerListGadget(#ExplorerList_0, 0, 625, 800, 175, "C:\Documents and Settings\"+GetEnvironmentVariable("username")+"\Local Settings\Temporary Internet Files\Content.IE5\*.rbs", #PB_Explorer_AutoSort | #PB_Explorer_AlwaysShowSelection | #PB_Explorer_FullRowSelect)
ChangeListIconGadgetDisplay(#ExplorerList_0, #PB_ListIcon_LargeIcon)
TextGadget(#Text_0, 200, 605, 500, 20, "ouvrir les dossiers ci-dessous puis clic droit sur la musique souhaité pour convertir en mp3")
ButtonGadget(#Button_0, 0, 600, 145, 25, "precedent", 0)
ButtonGadget(#Button_1, 655, 600, 145, 25, "effacer les vieilles chansons", 0)
EndIf
EndIf
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
Select EventGadget()
Case #Button_0
SetGadgetState(#Web_0, #PB_Web_Back)
Case #Button_1
DeleteDirectory("C:\Documents and Settings\"+GetEnvironmentVariable("username")+"\Local Settings\Temporary Internet Files\Content.IE5\", "*.*", #PB_FileSystem_Recursive)
Case #ExplorerList_0
Select EventType()
Case #PB_EventType_RightClick
fichieracopier$ = GetGadgetText(#ExplorerList_0) + GetGadgetItemText(#ExplorerList_0, GetGadgetState(#ExplorerList_0), 0)
fichier1$ = ReplaceString(fichieracopier$,"%20"," ")
save$ = SaveFileRequester("enregistrer sous", fichier1$, "mp3|*.mp3", 0)
pos = FindString(save$, ".rbs", 1)
fichier1$ = LSet(save$, pos-4)
CopyFile(fichieracopier$, fichier1$ + ".mp3")
EndSelect
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
@++