dernier octet d'un fichier

Question

Bonjour tout le monde !!

Je voudrais savoir comment on fair pour connaitre le dernier octet d'un fichier !! (sachant que j'ouvre le fichier en lecture binaire !!!) 

Et sachant aussi que : FileLen ne sert a rien car elle ne me donne que la taille du fichier et nom le dernier octet !!!!
(je pense que toutes les autres fonctions qui donnent la taille ne marchent pas elles aussi !!! )

Merci de m'aider !!

Ciao

cs_rene38 · Answer

Bonsoir

Dim octet As String * 1
Open "c:\chemin\fichier.ext" For Binary As #1
Longueur = LOF(1)
Get 1, Longueur, octet
MsgBox octet & " = Chr(" & Asc(octet) & ")"
Close

cs_RaZoR · Answer

Moi je voudrais pouvoir écrire a la suite du fichier (qui n'est pas un fichier texte mais un fichier image !!!! ) en récuperant le dernier octet (ou plutot l'adresse du dernier octet !!))

Merci .....

hvb · Answer

... heu, Filelen, c'est logique, te permet de recuperer l'offset du dernier octet... vu que filelen renvoie la taille du fichier en octet, le dernier octet est donc à l'offset Filelen(lefichier) - 1.

et si tu veux donc ecrire a la suite du fichier, c'est bien a l'offset Filelen(lefichier) que tu dois ecrire...

cs_rene38 · Answer

FileLen donne la longueur du fichier AVANT son ouverture.
Pour écrire à la suite :
  Dim Longueur As Long, octet As String * 1
  Open "c:\chemin\fichier.ext" For Binary As #1
  Longueur = LOF(1)'longueur du fichier à cet instant
  octet = l'octet que tu veux écrire
  Put 1, Longueur + 1, octet
  octet = l'octet suivant
  Put 1, Longueur + 2, octet
......................
  Close 1

Dernier octet d'un fichier

4 réponses

Discussions similaires