FSO操作文件系统(8)


            'Exit at end of file
        Loop Until (iFormStart+2) = iFormEnd 
        RequestBinDate=""
        Set tStream = Nothing
    End Sub

End Class

    'Get File Info
Class FileInfo
    Dim FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt

    Private Sub Class_Initialize 
        FileName = ""
        FilePath = ""
        FileSize = 0
        FileStart= 0
        FormName = ""
        FileType = ""
        FileExt = ""
    End Sub

    'Save File Method
    Public Function SaveToFile(FullPath)
        Dim oFileStream,ErrorChar,i
        On Error Resume Next
        Set oFileStream=CreateObject("Adodb.Stream")
        oFileStream.Type=1
        oFileStream.Mode=3
        oFileStream.Open
        oUpFileStream.position=FileStart
        oUpFileStream.copyto oFileStream,FileSize
        oFileStream.SaveToFile FullPath,2
        oFileStream.Close
        Set oFileStream=Nothing
    End Function

    'Get File Content
    Public Function GetDate
        oUpFileStream.Position =FileStart
        GetDate=oUpFileStream.Read(FileSize)
    End Function
End Class
%>

核心函数
复制代码 代码如下:

Dim theInstalledObjects(17)
    theInstalledObjects(0) = "MSWC.AdRotator"
    theInstalledObjects(1) = "MSWC.BrowserType"

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3693.html