Importation de fichier dans application

Bonjour,
J'essaye d'importer des fichiers dans Application.

Les premières fois j'avais toute un liste de fichiers qui était dans la liste, donc la j'ai rien à redire, il suffisait de retirer ce qui ne servait pas.

Dans un autre dossier pour un autre programme, Panoramic n'importe rien, alors qu'il y a deux fichiers texte dans le même dossier, et rien n'apparait.
Je l'ai rajoute manuellement avant de cliquer sur la suite.
Au lancement mes memos sont vides.

J'ai vu qu'il y avait une dll de Klaus pour cela, voici:

Code:

dim f$, res% , f1$
label go
open_dialog 1
save_dialog 4
dll_on  "KGF.dll"
gosub go
end

go:
  filter 4,"Exécutables Panoramic (*.exe)|*.exe"
  f$ = file_name$(4)

  if f$<>"_"
    filter 1,"Tous fichiers (*.*)|*.*"
    repeat
    f1$ = file_name$(1)
    if f1$<>"_"
      if file_exists(f$)=1
        if message_confirmation_yes_no("Le fichier en sortie existe déjà. Remplacer ?")<>1 then return
        file_delete f$
      end_if
      res% = dll_call2("ImportFileToExe",adr(f$),adr(f1$))
      message "ImportFileToExe: "+str$(res%)
    end_if
    until f1$ = "_" or scancode = 27
  end_if
return

Alors là mes fichiers disparaissent. Le programme aussi.
Je suppose que dans le programme Panoramic pour charger un fichier dans le programme, il faut mettre juste le nom du fichier. soit:
file_load 1,"fichier.txt" en exemple.

Edit: j'ai pour la dll un résultat de -1 lors du choix du fichier exe ?
Là il y a un problème.

Je vais annoter le code que tu as posté:

Code:

dim f$, res% , f1$
label go
open_dialog 1
save_dialog 4
dll_on  "KGF.dll"
gosub go
end

go:
  filter 4,"Exécutables Panoramic (*.exe)|*.exe"
  f$ = file_name$(4)
' ************* ici, on a un fichier EXE !

  if f$<>"_"
    filter 1,"Tous fichiers (*.*)|*.*"
    repeat
    f1$ = file_name$(1)
' ************* ici, on a un fichier quelconque (TXT par exemple)

    if f1$<>"_"
      if file_exists(f$)=1
        if message_confirmation_yes_no("Le fichier en sortie existe déjà. Remplacer ?")<>1 then return
        file_delete f$
' +++++++++++ ici, tu SUPPRIMES le fichier EXE !!!!!!!!!!!
      end_if
      res% = dll_call2("ImportFileToExe",adr(f$),adr(f1$))
' +++++++++++ donc, la fonction ImportFile ne peut plus travailler....
      message "ImportFileToExe: "+str$(res%)
    end_if
    until f1$ = "_" or scancode = 27
  end_if
return

Il ne faut SURTOUT PAS supprimer le fichier que tu appelles "en sortie". La fonction ImportFileToExe MODIFIE un ficher EXE existant, elle n'en crée par un nouveau !

J'essaye pas de le supprimer. Je constate qu'en sorti, le fichier a disparu. J'avais fait des fichiers en copies pour ne rien perdre.

Je ne sais que fait ton programme, il devrait ajouter les fichier, mais à chaque fois j'ai le retour de ImportFileToExe: -1, et le programme s’arrête là.

Si, tu supprimes:

Code:

      if file_exists(f$)=1
        if message_confirmation_yes_no("Le fichier en sortie existe déjà. Remplacer ?")<>1 then return
        file_delete f$
' +++++++++++ ici, tu SUPPRIMES le fichier EXE !!!!!!!!!!!
      end_if

Il faut simplement enlever cette séquence et tout se passera bien.

J'ai des excuses à faire.
Je viens de réussir a faire une application par l'intermédiaire de celui de Panoramic. En modifiant le programme pour des objets que n'avaient plus leur utilité, j'ai mis file_load en commentaire sans m'en rendre compte. Cela dit j'ai du mettre les fichiers à la main dans le memo pour qu'ils soient insérés dans le programme. Ils sont dans le même dossier, mais rien n'est importé (fichier texte)

Désolé de t'avoir dérangé pour rien.