欢迎来到天天文库
浏览记录
ID:32670717
大小:67.46 KB
页数:11页
时间:2019-02-14
《一些常用的fso函数》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、ASP屮一些FSO方面的函数文件操作'取文件大小FunctionGetFileSize(FileName)7/功能:取文件大小7/形参:文件名'〃返回值:成功为文件大小,失败为・17/DimfIfReportFileStatus(FileName)=1ThenSetf=fso.Getfile(FileName)GetFileSize=f.SizeElseGetFileSize=-1EndifEndFunction,文件删除FunctiondeleteAFile(filespec)7/功能:文件删除7/形参:文件名'〃返回值:成功为1,失败为・17/IfRepor
2、tFileStatus(filespec)=1Thenfso.deleteFile(filespec)deleteAFile=1ElsedeleteAFile=-1EndifEndFunction'显示文件列表FunctionShowFileList(folderspec)7/功能:目录存在时显示此目录下的所有文件'〃形参:目录名'〃返冋值:成功为文件列表,失败为・17/Dimf,fl,fc,sIfReportFoIderStatus(folderspec)=1ThenSetf=fso.GetFolder(folderspec)Setfc=f.FilesForE
3、achflinfcs=s&f1.names=s&“”NextShowFileList=sElseShowFileList=-1End讦EndFunctionMH•••,文件复制FunctionCopyAFile(SourceFile,DestinationFile)7/功能:源文件存在时,才能对文件进行复制,目的文件无影响'〃形参:源文件,目的文件7/返回值:成功为1,失败为DimMyFileIfReportFileStatus(SourceFile)=1ThenSetMyFile=fso.GetFile(SourceFile)MyFile.Copy(Desti
4、nationFile)CopyAFile=1ElseCopyAFile=-1EndifEndFunction•Response.WriteMoveAFile(”f:1234561.exe",“f:1234562.txt”)FunctionMoveAFile(SourceFile,DestinationFile)7/功能:源文件存在时目的文件不存在时才能对文件进行移动7/形参:源文件,目的文件'〃返回值:成功为1,失败为-17/IfReportFileStatus(SourceFiIe)=1AndReportFileStatus(DestinationFi
5、leORPath)=-1Thenfso.MoveFileSourceFile,DestinationFileORPathMoveAFile=1ElseMoveAFile=-1EndifEndFunction'文件是否存在?Response.WriteReportFileStatus(,,G:softDelphimy_pro代码库.exeH)FunctionReportFileStatus(FileName)7/功能:判断文件是否存在7/形参:文件名7/返回值:成功为1,失败为7/Dimmsgmsg=-1If(fso.FileExists(FileName
6、))Thenmsg=1Elsemsg=-1EndIfReportFileStatus=msgEndFunction,文件创建日期'Response.WriteShowDatecreated("G:softdelphimy_pro代码库.exe")'Response.WriteShowDatecreated(nG:softdelphimy_pro复件代码库.exe")FunctionShowDatecreated(filespec)7/功能:文件创建日期7/形参:文件名'〃返冋值:成功:文件创建日期,失败:7/DimfIfReportFileSta
7、tus(filespec)=1ThenSetf=fso.GetFile(filespec)ShowDatecreated=f.DatecreatedElseShowDatecreated=-1EndifEndFunction'文件属性'Response.WriteGetAttributes(MG:softdelphimy_pro复件代码库.exe")FunctionGetAttributes(FileName)7/功能:显示文件属性7/形参:文件名7/返回值:成功:文件属性,失败:・17/Dimf,StrIfReportFileStatus(FileNa
8、me)=1Then没有设
此文档下载收益归作者所有