PureBasic

voila je suis confronté a un gros probleme depuis ce matin je suis sur un projet qui consiste a prendre un fichier depuis un ExplorerListGadget

pour le sauvegarder autre part en modifiant l'extention grace a la fonction CopyFile. et bien tout fonctionner a merveille et depuis quelques heurs sans raison pu rien ne va donc j'ai bien relu mon code et je ne voie pas l'erreur svp , est ce que vous vous la voyer ?

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #Frame3D_0
  #ExplorerList_0
EndEnumeration

;- Fonts
Global FontID2
FontID2 = LoadFont(2, "Comic Sans MS", 10)

  If OpenWindow(#Window_0, 0, 0, 540, 480, "test",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateGadgetList(WindowID(#Window_0))
      Frame3DGadget(#Frame3D_0, 10, 10, 520, 460, "fichier")
      ExplorerListGadget(#ExplorerList_0, 20, 30, 500, 430, "*.jpg", #PB_Explorer_AutoSort)
      SetGadgetFont(#ExplorerList_0, FontID2)

    EndIf
  EndIf

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget 
      Select EventGadget()
       
       Case #ExplorerList_0
        Select EventType()
         Case #PB_EventType_RightClick
         fichieracopier$ = GetGadgetText(#ExplorerList_0) 
          save$ = SaveFileRequester("enregistrer sous", fichieracopier$, "bmp|*.bmp", 0)
           CopyFile(fichieracopier$, save$+".bmp")

        EndSelect 
        
      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow

voila en vous remerciant .

@++

Code : Tout sélectionner

 fichieracopier$ = GetGadgetText(#ExplorerList_0)+GetGadgetItemText(#ExplorerList_0,GetGadgetState(#ExplorerList_0),0)

fichieracopier$ = GetGadgetText(#ExplorerList_0) ; ne retourne que le chemin

@ peluche

arf...
je m'en douté que c'etais un truck tout bete mais pas moyen de me rappeler quoi.

et bien merci a toi Lna

.

@++

PureBasic

grosse erreur de debutant

grosse erreur de debutant