Quote:
rivate Sub StartUpdate()
On Error GoTo Failed 'Error Handler
Dim aCnt As Integer 'Loop counter
Dim UpdateString As String 'Holds the update information
Dim aSplit() As String, bSplit() As String 'Used to split the information
Dim UpdateByte() As Byte 'Holds the download
Dim tInt As Integer 'Holds value of split
Dim ff As Integer 'Used for FreeFile
Dim TempData As String 'Holds temporary date to compare
'Get the \update.txt file from the server
UpdateString = iNet.OpenURL(WebAddress, icString)
MsgBox UpdateString
'Strip the NEWS TEXT off the string and display it
tInt = InStr(1, UpdateString, vbCrLf)
MsgBox tInt
'Display the NEWS in the text box
txtMain.Text = Left$(UpdateString, tInt - 1)
'Strip the News Text off the string completely now
UpdateString = Mid$(UpdateString, tInt + Len(vbCrLf))
'Breaks down each update individually
aSplit = Split(UpdateString, vbCrLf)
|
Well first off your taking UpdateString and putting it into an array AFTER you have changed it with Mid and the Mid statement is stripping out the Carriage Return Line Feed
Do asplit after you get updatestring and it should work.
Hybrid Mode
