1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
Public Structure Nomamodif
<VBFixedString(64)> Dim MyName As String
End Structure
...
Dim MyString As String
FileOpen(1, "c:\TEST.iso", OpenMode.Binary)
Seek(1, 33)
MyString = New String(" "c, 64)
FileGet(1, MyString)
FileClose(1)
If (NomOrigine.Text() <> MyString) Then
Dim Nommodif As Nomamodif
Nommodif.MyName = New String(" "c, 64)
FileOpen(1, "c:\TEST.iso", OpenMode.Binary)
Seek(1, 33)
Nommodif.MyName = NomOrigine.Text
FilePut(1, Nommodif.MyName)
FileClose(1)
End If |
