Private pb As PropertyBag ' Declare a PropertyBag object.
Private LoanObject As Loan ' Declare a Loan object.
Private Sub Form_Unload(Cancel As Integer)
Dim varTemp as Variant
' Instantiate the PropertyBag object.
Set pb = New PropertyBag
' Save the object to the PropertyBag using WriteProperty.
pb.WriteProperty "MyLoanObject", LoanObject
' Assign the Contents of the PropertyBag to a Variant.
varTemp = pb.Contents
' Save to a text file.
Open "C:\Loandata.txt" For Binary As #1
Put #1, , varTemp
Close #1
End Sub
А где же мои 10-15 тыс. экземпляров переменных?
Оно конечно да, ежели что как...а то ведь как получится, так вот вам и пожалуйста...
, может кто-нибудь в курсе, как можно сохранить объекты в файл. Например в проге в процессе работы создается n-ое кол-во экземпляров (10-15 тыс). У объекта есть всего несколько (7) свойств. Как можно сохранить эти объекты в файл, чтобы в новом сеансе работы я снова мог их загрузить?. Ну разумеется я не горю желанием писать специальный модуль который по определенным правилам записывает каждое значение свойства каждого объекта в файл, а затем, обратно восстанавливает из него объекты. Может есть классический подход какой-нибудь к решению этой головной боли. Я не верю что профи никогда не сохраняют объекты в файле. 
