COMMENT OUVRIR UN FICHIER, LIRE LES 10 PREMIERS OCTETS PUIS LES SUPPRIMER ????

Question

J'aimerais savoir comment faire pour ouvrir un fichier, lire les 10 premiers octets puis les supprimer du fichier .... 

Merci par avance

DeAtH_-_CrAsH

fredlynx · Answer

Voilune fonction :) Private Function Load_Kill(Fichier As String, Nbcar As Integer) As String Dim DATA_Read As String Dim NumFile As Integer DATA_Read = Space(Nbcar) 'Selection du nombre de caractère NumFile = FreeFile Open Fichier For Binary Access Read As #NumFile Get #NumFile, 1, DATA_Read Close #NumFile Kill Fichier Load_Kill = DATA_Read End Function http://www.lynx-asp.fr.st WebMaster

DeAtHCrAsH · Answer

J'ai pu faire encore plus court et plus simple a piger surtout lol :

Private Function CoupeFichier(NomFichier As String, NbrCh As Double)
Dim DataF As String
DataF = Space(NbrCh)
Open NomFichier For Binary As #1
Get #1, 1, DataF
Close #1
CoupeFichier = DataF
End Function

 ;)  DeAtH_-_CrAsH  ;)

fredlynx · Answer

Ouep ben j'ai perdu mon temps alors ... http://www.lynx-asp.fr.st WebMaster

DeAtHCrAsH · Answer

Non justement t'as pas perdu ton temps parceque c'est a partir de ton code que j'ai reussi a faire plus simple ;)

fredlynx · Answer

OUai Ouai , c'est plus simple surement mais beaucoup moins sécurisé en tout cas mais si suffit à ton appli tant mieux ... http://www.lynx-asp.fr.st WebMaster

DeAtHCrAsH · Answer

Vi vi c'est suffisant pour l'instant ... Puis je ne suis qu'un novice ... Alors pourquoi chercher trop loin ;)
Merci au fait ... zai oublié de te le dire ta l'heure

DeAtH_-_CrAsH  ;)

COMMENT OUVRIR UN FICHIER, LIRE LES 10 PREMIERS OCTETS PUIS LES SUPPRIMER ????

6 réponses

Discussions similaires