Sub Process_Globals
PrevFiles() As FTPEntry
End Sub
Sub Save_FTPentries
Dim raf As RandomAccessFile
raf.Initialize(File.DirInternal, "ftp_entries.raf", False)
raf.WriteObject(PrevFiles, False, 0)
raf.Close
End Sub
Sub Restore_FTPentries
Dim raf As RandomAccessFile
raf.Initialize(File.DirInternal, "ftp_entries.raf", False)
Try
PrevFiles = raf.ReadObject(0) ' HERE is ALWAYS ARRAY with NULL items
Catch
Log("Restore_FTPentries.error")
End Try
raf.Close
End Sub