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


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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