FSO操作文件系统(6)

            tStream.Position = 0
            tStream.Type = 2
            tStream.Charset = "UTF-8"
            sInfo = tStream.ReadText 
            'Get form item name
            iFormStart = InStrB(iInfoEnd,RequestBinDate,sStart)-1
            iFindStart = InStr(22,sInfo,"name=""",1)+6
            iFindEnd = InStr(iFindStart,sInfo,"""",1)
            sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
            'If it's a file
            If InStr (45,sInfo,"filename=""",1) > 0 Then
                Set oFileInfo= new FileInfo
                'Get File attributes
                iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10
                iFindEnd = InStr(iFindStart,sInfo,"""",1)
                sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
                oFileInfo.FileName = Mid (sFileName,InStrRev (sFileName, "\")+1)
                oFileInfo.FilePath = Left (sFileName,InStrRev (sFileName, "\"))
                oFileInfo.FileExt = Mid (sFileName,InStrRev (sFileName, ".")+1)
                iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1)+14
                iFindEnd = InStr(iFindStart,sInfo,vbCr)
                oFileInfo.FileType = Mid (sinfo,iFindStart,iFindEnd-iFindStart)