'erst mal der UDT
Private Type MeinDatenSatzTyp
Nachname as String * 20
Straße as String * 20
Einkommen as Double
End Type
 
Sub Neu()
Dim MeinDatenSatz as MeinDatenSatzTyp
Dim FF1 as Integer
FF1 = FreeFile
Open "C:\MeineDatei" For Random As FF1 Len = Len(MeinDatenSatz)
MeinDatenSatz.Nachname = "Mustermann"
MeinDatenSatz.Straße = "Musterstraße"
MeinDatenSatz.Einkommen = 1000
Put FF1, 1, MeinDatenSatz
Close FF1
End Sub

'alter UDT bleibt erhalten
Private Type MeinDatenSatzTypAlt
Nachname as String * 20
Straße as String * 20
Einkommen as Double
End Type
 
'neuer (erweiterter) UDT
Private Type MeinDatenSatzTyp
Nachname as String * 20
Straße as String * 20
Einkommen as Double
Verheiratet as Boolean
End Type
 
Sub Umwandlung()
'Diese Routine wird nur ein einziges mal ausgeführt.
Dim MeinDatenSatzAlt as MeinDatenSatzTypAlt
Dim MeinDatenSatz as MeinDatenSatzTyp
Dim FF1 as Integer
Dim FF2 as Integer
Dim i as Long
 
FF1 = FreeFile
Open "C:\MeineDatei" For Random As FF1 Len = Len(MeinDatenSatzAlt)
FF2 = FreeFile
Open "C:\MeineDateiNeu" For Random As FF2 Len = Len(MeinDatenSatz)
For i = 1 To LOF(FF1) / Len(MeinDatenSatzAlt)
Get FF1, i, MeinDatenSatzAlt
MeinDatenSatz.Nachname = MeinDatenSatzAlt.Nachname
MeinDatenSatz.Straße = MeinDatenSatzAlt.Straße
MeinDatenSatz.Einkommen = MeinDatenSatzAlt.Einkommen
Put FF2, i, MeinDatenSatz
Next
Close FF1, FF2
Kill "C:\MeineDatei"
'hier muß "C:\MeineDateiNeu" in "C:\MeineDatei" umbenannt werden
'den Befehl habe ich nicht parat - muß es aber geben.
End Sub