一些常用的fso函数

《一些常用的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没有设