高分请教：怎样用vb做一个上传文件的程序。

基本原理是这样的，不过要上传多个文件就头痛了！！
byteCount = Request.TotalBytes
binData = Request.BinaryRead(byteCount)
'================================================
Function ParBinData(binData)
vbNL = ChrB(13) & ChrB(10)
dataLen = LenB(binData)
'''''''''''''''''''''''''''''''''''''''''''
splitTag = LeftB(binData, InStrB(binData, vbNL)-1)
splitTagLen = LenB(splitTag)
startPoint = InStrB(binData, vbNL & vbNL) + 4
''''''''''''''''''''''''''''''''''''''''''''''''''''
DataInfo = MidB(binData,1,startPoint-1)
DataInfoLen = LenB(DataInfo)
''''''''''''''''''''''''''''''''''''''''''''''''''''
noInfoData = MidB(binData,startPoint,dataLen-startPoint+1)
noInfoDataLen = LenB(noInfoData)
''''''''''''''''''''''''''''''''''''''''''''''''''''
okData = MidB(noInfoData,1,InStrB(noInfoData, splitTag)-3)
okDataLen = LenB(okData)
'''''''''''''''''''''''''''''''''''''''''''''''''''
ParBinData = okData
End Function------------------------------------------
保存嘛，用VB太Easy了，不过你一定要清楚COM的原理才行