If strComp(strFieldName,"FileUploadStart",1)=0 Then

binHTTPHeader=MIDB(binHTTPHeader,INSTRB( DataStart + 1, binHTTPHeader, divider ))

exit do

End if

DataStart = INSTRB( binHTTPHeader, bnCRLF & bnCRLF ) + 4

DataEnd = INSTRB( DataStart + 1, binHTTPHeader, divider ) - DataStart

binFieldValue=MIDB( binHTTPHeader, DataStart, DataEnd )

strFieldValue=bin2str(binFieldValue)

strFieldValue=Trim(strFieldValue)

strFieldValue=Replace(strFieldValue,vbcrlf,vbnullstring)

还有这段代码的原理 我在这里谢谢了各位了哈！

'开始处理文件数据

binHeaderData = LeftB(binHTTPHeader, INSTRB( binHTTPHeader, bnCRLF & bnCRLF )-1)

strHeaderData=bin2str(binHeaderData)

'读取上传文件的类型

lngFileContentTypeStart=Instr(strHeaderData,"Content-Type:")+Len("Content-Type:")

strFileContentType=Trim(Mid(strHeaderData,lngFileContentTypeStart))

strFileContentType=Replace(strFileContentType,vbCRLF,vbNullString)

'读取上传的文件名

lngFileNameStart=Instr(strHeaderData,"filename="&chr(34))+Len("filename="&chr(34))

lngFileNameEnd=Instr(lngFileNameStart,strHeaderData,chr(34))

strFileName=Mid(strHeaderData,lngFileNameStart,lngFileNameEnd-lngFileNameStart)

strFileName=Trim(strFileName)

strFileName=Replace(strFileName,vbCRLF,vbNullString)

'读取上传文件数据

DataStart = INSTRB( binHTTPHeader, bnCRLF & bnCRLF ) + 4

DataEnd = INSTRB( DataStart + 1, binHTTPHeader, divider ) - DataStart

If strFileName<>"" Then

binFieldValue=MIDB( binHTTPHeader, DataStart, DataEnd )

现在不需要大家的关心了，在此谢谢各位的关心！