Add up filesize - is it easy? *** RESOLVED - Thx vbNeo ***

[HELPmyVB]

I have the following in a rtb, how can i go through the rtb line by line and add up the SIZE: values ???????

PATH: C:\Temp\ss_nb.dat | NAME: ss_nb.dat | SIZE: 122 | DATE: 09/09/2003 13:50:29
PATH: C:\Temp\ss_udp.dat | NAME: ss_udp.dat | SIZE: 240 | DATE: 09/09/2003 13:50:33
PATH: C:\Temp\ss_udp2.dat | NAME: ss_udp2.dat | SIZE: 4 | DATE: 09/09/2003 13:50:33
PATH: C:\Temp\Strategy.ppt | NAME: Strategy.ppt | SIZE: 7921152 | DATE: 28/05/2003 11:32:32

[Jaiboy]

Can you tell me what is RTB?

If these informations are stored in a file then read it just line by line and split it using Split() function, you will get the segrigated values.

Good Luck.

Jai.

[nkad]

Easy as Pie. Hmm... I like pie

Look in your api text viewer for GetFileSize, look on http://msdn.microsoft.com for additional details. Post back if you need help.

[nkad]

he means Rich text box

[HELPmyVB]

I am in a real hurry to get this done, normally like to sort it out myself but need help to get it done quickly. Any chance ?

[Madboy]

Seeming as you are from North West and not North East of UK i cant help you lol

Sorry, im no good with this stuff

[vbNeo]

Do you just want to change the string, or the files sizes itself ?

[nkad]

And let me guess, your too lazy to do a web search?

http://search.yahoo.com/search?p=vb+...t&cop=mss&tab=

[HELPmyVB]

vbNeo, what i need is a sub which adds up the filesizes as posted above and displays the answer in a messagebox e.g.

Total Filesize = 7,921,518

[vbNeo]

That's easy

Gimme a sec, I'll make something for you

[vbNeo]

Try this:

Public Function AddUp(rtb As RichTextBox)
On Error Resume Next
Dim iStart As Integer
Dim iEnd As Integer
Dim iC As Integer
Dim iNumbers(1000) As Long
Dim Result As Long
iStart = 1
iC = 0
With rtb
Do Until iStart = 0
If InStr(iStart, .Text, "SIZE:") <= 0 Then
iStart = 0
Else
iStart = InStr(iStart, .Text, "SIZE:") + Len("SIZE:") + 1
iEnd = InStr(iStart, .Text, " ")
iNumbers(iC) = Val(Mid(.Text, iStart, iEnd - iStart))
iStart = iStart + 15
iC = iC + 1
 
End If
 
Loop
For I = 0 To iC
Result = Result + iNumbers(I)
Next
 
AddUp = Result
 
End With
 
 
End Function

call it with

MsgBox AddUp(RichTextBox1)

Hope it helps/works

Cheers!