About debugging problems with file upload components

Upload | Question This is my upload component original text, VB made, no problem! <br>
<br>
Public bin<br>
Private Names () <br>
Private sizes () <br>
Private Filenames () <br>
Private myposition () <br>
Public maxsize<br>
Public fcount<br>
<br>
Public Sub Exec () <br>
Dim Pstart, Pend, strboundary, I, STR, position<br>
Dim spacestr<br>
Spacestr = "-----------------------------" <br>
Dim Tempbarray, tempstr<br>
TempStr = Btos (Bin) <br>
strboundary = "Content-disposition:form-data" <br>
Tempbarray = Split (TempStr, strboundary) <br>
Fcount = UBound (Tempbarray) <br>
<br>
ReDim Names (Fcount) <br>
ReDim sizes (fcount) <br>
ReDim Filenames (Fcount) <br>
ReDim myposition (Fcount, 2) <br>
<br>
Strboundary = Stob (strboundary) <br>
Position = InStrB (Bin, strboundary) + 1<br>
<br>
For i = 0 to fcount-1<br>
Pstart = InStrB (Position, Bin, Stob (CHR)) + 1<br>
Pend = InStrB (Pstart, Bin, Stob (CHR)) <br>
Names (i) = Btos (MidB (Bin, Pstart, Pend-pstart)) <br>
' above take table Single-name <br>
<br>
Pstart = Pend + 1<br>
STR = MidB (Bin, Pstart) <br>
Position = InStrB (Str, Stob ("filename")) <br>
If Position > 0 then<br>
Pstart = InStrB (Pstart, Bin, Stob (CHR)) + 1<br>
Pend = InStrB (Pstart, Bin, Stob (CHR)) <br>
STR = Btos (MidB (Bin, Pstart, Pend-pstart)) <br>
If Str = Empty then<br>
Filenames (i) = "" <br>
Else<br>
Filenames (i) = str<br>
Pstart = InStrB (Pend, Bin, Stob (VbCrLf & vbCrLf)) + 4<br>
Pend = InStrB (Pstart, Bin, Stob ("-------"))-2<br>
Myposition (i, 0) = pstart<br>
Myposition (i, 1) = Pend<br>
End If<br>
Else<br>
Pstart = InStrB (Pstart, Bin, Stob (VbCrLf & vbCrLf)) + 4<br>
Pend = InStrB (Pstart, Bin, Stob ("-------"))-2<br>
Myposition (i, 0) = pstart<br>
Myposition (i, 1) = Pend<br>
End If<br>
Position = pend<br>
Next<br>
<br>