save/load

[Rich2189]

Private Type MyType
  setting1 as integer
setting2 as string * 10
setting3 as byte
 
End Type
 
Dim settings As MyType
 
'save
 
Open "C:\settings.set" For Binary Access Write As #1
  Put #1, , settings
Close #1
 
'load
 
Open "C:\settings.set" For Binary Access Read As #1
  Get #1, , settings
Close #1
 
'access a setting
 
settings.setting1 = 1

Rich