Sub Copy_TO_FTPEntry2(source() As FTPEntry) As List
Dim FTPfiles As List
FTPfiles.initialize
For i = 0 To source.Length - 1
Dim src As FTPEntry = source(i)
Dim fle As FTPEntry2 = CreateFTPEntry2(src.Name,src.Timestamp,src.Size,"","","")
FTPfiles.Add(fle)
Next
Return FTPfiles
End Sub
Public Sub CreateFTPEntry2 (Name As String, Timestamp As Long, Size As Long, FTP_path As String, LocalPath As String, status As String) As FTPEntry2
Dim t1 As FTPEntry2
t1.Initialize
t1.Name = Name
t1.Timestamp = Timestamp
t1.Size = Size
t1.FTP_path = FTP_path
t1.LocalPath = LocalPath
t1.status = status
Return t1
End Sub