Codice per scrivere files ad accesso casuale.

Per scrivere files ad accesso casuale (due TextBoxes e un Button sul form...)

Option Strict Off
Structure Record
     Public suono As String
     Public nome As String
End Structure

Public Class Form1
    Dim recNum As Integer

    Dim mioRecord As New Record


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        mioRecord.suono = TextBox1.Text
        mioRecord.nome = TextBox2.Text
        If System.IO.File.Exists("C:\users\antonello\desktop\file") Then
            recNum = CInt((FileLen("C:\users\antonello\desktop\file") / Len(mioRecord)))
        Else
            recNum = 0
        End If

        FileOpen(1, "c:\users\antonello\desktop\file", OpenMode.Random, , , Len(mioRecord))
        FilePut(1, mioRecord, recNum + 1)
        FileClose(1)
    End Sub
End Class