User type array to delimited string

[PRIVATE1]

How's everyone tonite ? I'm ok except for this . I have the Following type

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 Fill it with

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

I'd like to get this into a comma delimited string
any ideas ?


[]P

[PRIVATE1]

Well that was easy

Public Function myFileTransfertypetoString(toConvert As Integer) As String
Dim ext, Filename, FromNick, PacketSize, State, Size, ToNick, TotalCRC, tSockIndex As String


    ext = arrFilesinTransfer(toConvert).ext
    Filename = arrFilesinTransfer(toConvert).Filename
    FromNick = arrFilesinTransfer(toConvert).FromNick
    PacketSize = arrFilesinTransfer(toConvert).PacketSize
    Size = arrFilesinTransfer(toConvert).Size
    State = arrFilesinTransfer(toConvert).State
    ToNick = arrFilesinTransfer(toConvert).ToNick
   ' TotlaCRC = arrFilesinTransfer(toConvert).TotalCRC
    tSockIndex = arrFilesinTransfer(toConvert).tSockIndex
  myFileTransfertypetoString = ext & ":" & Filename & ":" & FromNick & ":" & _
  PacketSize & ":" & State & ":" & Size & ":" & ToNick & ":" & TotalCRC & ":" & tSockIndex