利用fso取得bmp，jpg，png，gif文件信息--

《利用fso取得bmp，jpg，png，gif文件信息--》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、利用FSO取得BMP，JPG，PNG，GIF文件信息>><%’:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::’:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::’:::BMP,GIF,JPGandPNG:::’:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::’:::::::::::::::::::::::

2、::::::::::::::::::::::::::::::::::::::::::::’::::::’:::Thisfunctiongetsaspecifiednumberofbytesfromany:::’:::file,startingattheoffset(base1):::’::::::’:::Passed::::’:::flnm=>Filespecoffiletoread:::’:::offset=>Offsetatanybytestoread:::’::::::’::::::::::::::::::::::::::::::::::::::

3、:::::::::::::::::::::::::::::functionGetBytes(flnm,offset,bytes)DimobjFSODimobjFTempDimobjTextStreamDimlngSizeonerrorresumenextSetobjFSO=CreateObject("Scripting.FileSystemObject")’First,p=objFSO.GetFile(flnm)lngSize=objFTemp.SizesetobjFTemp=nothingfsoForReading=1SetobjTextStream=objFS

4、O.OpenTextFile(flnm,fsoForReading)ifoffset>0thenstrBuff=objTextStream.Read(offset-1)endififbytes=-1then’GetAll!GetBytes=objTextStream.Read(lngSize)’ReadAllelseGetBytes=objTextStream.Read(bytes)endifobjTextStream.ClosesetobjTextStream=nothingsetobjFSO=nothingendfunction’::::::::::::

5、:::::::::::::::::::::::::::::::::::::::::::::::::::::::’::::::’:::Functionstoconverttericvalue(long):::’:::(bothlittle-endianandbig-endian):::’::::::’:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::functionlngConvert(strTemp)lngConvert=clng(asc(left(strTemp,1))+((as

6、c(right(strTemp,1))*256)))endfunctionfunctionlngConvert2(strTemp)lngConvert2=&1234下一页>>>>这篇文章来自..，。nbsp;clng(asc(right(strTemp,1))+((asc(left(strTemp,1))*256)))endfunction’:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::’::::::’:::Thisfunctiondoesmostoftherealpt:::’

7、:::toreadanyfile,regardlessoftheextension,andage.:::’::::::’:::Passed::::’:::flnm=>Filespecoffiletoread:::’:::age:::’:::height=>heightofimage:::’:::depth=>colordepth(innumberofcolors):::’:::strImageType=>typeofimage(e.g.GIF,BMP,etc.):::’::::::’:::::::::::::::::::::::::::::

8、:::::