Fonction Open...For Binary pour visual basic 2005

Signaler
Messages postés
141
Date d'inscription
mardi 18 mars 2003
Statut
Membre
Dernière intervention
3 octobre 2010
-
Messages postés
6728
Date d'inscription
mardi 14 mai 2002
Statut
Contributeur
Dernière intervention
11 janvier 2016
-
Sous VB6 , j'utilisais la fonction Open...Binary As pour générer des fichiers
Je me servais de la fonction Put #... aussi

Ces fonctions existent-elles toujours sou VB 2005 et pouvez-vous me les expliquer brièvement.

Merci et à bientot

2 réponses

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
Salut,
Arf, je ne sais pas si cett méthode marche encore avec vb2005.

Tu peux faire comme ceci :
my.Computer.FileSystem.WriteAllBytes("tonfichier",tes_datas,false)

Pour une utilisation plus avancés je te conseilles plutôt d'utiliser les classes BinaryReader et BinaryWriter (présente dans le NameSpace System.IO)


<HR width="100%" SIZE=2>
Si la réponse te conviens merci de l'accepter
Messages postés
6728
Date d'inscription
mardi 14 mai 2002
Statut
Contributeur
Dernière intervention
11 janvier 2016

(en complément de la réponse de Willi)



salut,



au menu de la MSDN ce midi :



Imports System


Imports System.IO







Private Const FILE_NAME As String = "Test.data"



' Create the new, empty data file.
If File.Exists(FILE_NAME) Then

Console.WriteLine("{0} already exists!", FILE_NAME)

Return
End If
Dim fs As New FileStream(FILE_NAME, FileMode.CreateNew)
' Create the writer for data.
Dim w As New BinaryWriter(fs)
' Write data to Test.data.
Dim i As Integer
For i = 0 To 10

w.Write(CInt(i))
Next i
w.Close()
fs.Close()
' Create the reader for data.
fs = New FileStream(FILE_NAME, FileMode.Open, FileAccess.Read)
Dim r As New BinaryReader(fs)
' Read data from Test.data.
For i = 0 To 10

Console.WriteLine(r.ReadInt32())
Next i
r.Close()
fs.Close()



ms-help://MS.VSExpressCC.v80/MS.NETFramework.v20.fr/dv_fxfund/html/e209d949-31e8-44ea-8e38-87f9093f3093.htm



soit dit en passant, n'oublie pas de libérer les objets

r.Dispose

r = Nothing



idem pour fs.



à plus



[ Dalida ]