Ouverture / sauvegarde et test d'un fichier

Bonjour ,
Je suis totalement débutant en VB6, et je voudrais faire ce morceau de code  mais je ne sais pas faire ...
Existe-t-il deja une source existante , ou quelqu'un pourrait il me donner un coup de main ...

Voici ce que j'aimerai faire....

Lorsque je clique sur fichier (en haut à gauche), j'ai un menu déroulant avec dedans "charger", "sauvegarder" et "quitter".

Pour la partie "charger" :
je dois pouvoir recherché un repertoire contenant  les *.ibu, et vérifier qu'il fasse bien 2049 octets et l'ouvrir.

La partie "sauvegarder"
réécrire le fichier, là où l'on veut.

et "quitter"
bon ben ca j'ai réussi à le faire ;)



Merci d'avance pour votre aide ...

ajoute le composant "microsoft common dialog". Ajoute sur ta feuille une instance de ce composant que tu appelle par exemple "Cdg_Charge"

et sur click de "Charger", tu met


    With Cdg_Charge
        .CancelError = True
        .Flags = &H80000 Or &H4 Or &H2
        .Filter = "Fichier ibu (*.ibu)|*.ibu" 'ça filtre les fichiers qui seront affiché : seulement les '.ibu'
        .DialogTitle = "Sélectionnez le fichier à ouvrir"
        .FileName = "toto.ibu"
        .InitDir = CheminParDefaut   'c:\toto par exemple,
        .ShowOpen 'ouvre la boite de dialogue 'Ouvrir'
    End With
   if   Cdg_Charge.FileName <>"" then

'--- filelen te donne la taille en bytes, ... tu convertit si tu veux
      if FileLen(Cdg_Charge.FileName ) = xxxx then
            Call ChargeFichier(Cdg_Charge.FileName )
     end if
   end if
et ta fonction ChargeFichier ouvre le fichier
par exemple
function ChargeFichier(strPath)
'---crée l'objet filesystemlobject qui te permet d'accéder à des fichiers
set Fso = createobject ("scripting.FileSystemObject")
if Fso.FileExist(strPath) then
'--- ouvre le fichier
   dim Fs
set Fs = Fso.OpenTexteFile(strPath) 
dim contenudufichier 
 contenudufichier = Fs.ReadAll
Fs.Close
set Fs=nothing
else
   Msgbox "Fichier introuvable !"
end if
'--- oublie pas cette ligne
set Fso = nothing

sinon, y'a PLEIN de sources ici sur l'acces aux fichier.
Tu peux aussi utiliser d'autres instructions pr lire dans les fichiers.
N'oublie jamais la puissance de la touche F1 :)))

voilà,

happy coding ...

merci à toi Yoyo2B


je n'ai pas trop bien compris comment tu testes que le contenu du fichier est bien égal à 2049 octets ??

et pour la sauvegarde ... comment je pourrais faire ..

Tu as des sources que je pourrais utlisées ?

Merci