[VB.net] Problema gestione file

[Raven87]

Qualcuno capisce qualcosa di vb.net?
Se ci capite qualcosa mi spiegate perchè non mi funzia sto prog(domani ho compito su una cosa del gen) :


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LunghezzaRec = Len(Album)
filenum = FreeFile()
FileOpen(FileNum, "c:\archivio\archivio.txt", OpenMode.Random, , , LunghezzaRec)
UltimoRec = LOF(FileNum) \ LunghezzaRec
Posizione = 1
Label7.Text = CStr(UltimoRec + 1)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With Album
.id = Val(Label7.Text)
.nome_album = TextBox1.Text
.artista = TextBox2.Text
.casa_discografica = TextBox3.Text
.anno = TextBox4.Text
.numero_brani = Val(TextBox5.Text)
.durata = TextBox6.Text
End With
FilePut(FileNum, Album, (UltimoRec + 1))

A sto punto si ferma il prog dicendomi che la lunghezza del record non è valida..
Da debug la lunghezza del record tipo short è 24
Ecco la dichiarazione del recod:


Structure cd
Public id As Short
<VBFixedArray(50)> Public nome_album As String
<VBFixedArray(50)> Public artista As String
<VBFixedArray(50)> Public casa_discografica As String
<VBFixedArray(50)> Public anno As String
Public numero_brani As Int16
<VBFixedArray(5)> Public durata As String
End Structure
Public Album As cd

[Raven87]

Uppete..l'ora del compito si avvicina ç_ç

[Raven87]

risolto..andava cambiato <VBFixedArray(50)> in <VBFixedString(50)>