Aide à comprendre le morceaux du code vb6

Version imprimable

est ce que il y à quelqu'un me aider de comprendre un peu le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
    Dim fno As Short
    Dim SizeOfFile As String
    Dim ByteArray() As Byte
    Dim Bytemodif() As Byte
 
fno = FreeFile()
        FileOpen(fno, Text1.Text, OpenMode.Binary)
        SizeOfFile = CStr(LOF(fno))
 
        ReDim ByteArray(CInt(SizeOfFile))
        ReDim Bytemodif(CInt(SizeOfFile))
 
        FileGet(fno, ByteArray)
        Bytemodif = ByteArray.Clone()
        FileClose(fno)
 
        Text4.Text = SizeOfFile
        Text6.Text = "Fichier sélectionné."

merciiiii :)

23/08/2013, 09h18
Denn's

Non,

y' a personne.
23/08/2013, 10h04
Pol63

déjà répondu dans un autre topic

ce code accède à un fichier, ca demande la taille en octets, ca dimensionne un tableau pour le remplir avec le contenu du fichier

ce qui en .net se fait en une ligne

Code:

dim lesoctetsdufichier = system.io.file.readallbytes(path)

un cours sur vb.net : http://plasserre.developpez.com/cours/vb-net/