How's everyone tonite ? I'm ok except for this . I have the Following type
I Fill it withCode:Public Type myFileTransfer tSockIndex As String ' The socket they are on Filename As String 'The file in transfer Size As String ' The size of file Ext As String ' the extention FromNick As String ' who it's being sent to State As String 'upload or download Tonick As String 'who it's from PacketSize As Long ' Size of packet TotalCRC As Long ' Total CRC of FILE ListeningSock As Integer End Type
I'd like to get this into a comma delimited stringCode:Public arrFilesinTransfer() As myFileTransfer ReDim Preserve arrFilesinTransfer(CurrentSends) 'initalize and preserve the array arrFilesinTransfer(CurrentSends).Ext = parsedStats$(1) arrFilesinTransfer(CurrentSends).Filename = parsedStats$(2) arrFilesinTransfer(CurrentSends).FromNick = ConfigurationData.Username arrFilesinTransfer(CurrentSends).PacketSize = ConfigurationData.PacketSize arrFilesinTransfer(CurrentSends).Size = parsedStats$(0) arrFilesinTransfer(CurrentSends).State = "Sending" arrFilesinTransfer(CurrentSends).Tonick = Tonick$ arrFilesinTransfer(CurrentSends).TotalCRC = 10 'parsedStats$(3) arrFilesinTransfer(CurrentSends).tSockIndex = Index
any ideas ?
[]P




Reply With Quote