一些常用的FSO函数.docxVIP

ASP屮一些FSO方面的函数 文件操作 取文件大小 Function GetFileSize(FileName) 7/功能：取文件大小 7/形参：文件名 〃返回值：成功为文件大小，失败为?1 7/ Dimf If ReportFileStatus(FileName) = 1 Then Set f = fso.Getfile(FileName) GetFileSize = f.Size Else GetFileSize = -1 End if End Function ，文件删除 Function deleteAFile(filespec) 7/功能：文件删除 7/形参：文件名 〃返回值：成功为1,失败为?1 7/ If ReportFileStatus(filespec) = 1 Then fso.deleteFile(filespec) deleteAFile = 1 Else deleteAFile = -1 End if End Function 显示文件列表 Function ShowFileList(folderspec) 7/功能：目录存在时显示此目录下的所有文件 〃形参：目录名 〃返冋值：成功为文件列表，失败为?1 7/ Dimf, fl,fc,s If ReportFoIderStatus(folderspec) = 1 Then Set f = fso.GetFolder(folderspec) Set fc = f.Files For Each fl in fc s = s f 1 .name s = s “” Next ShowFileList = s Else ShowFileList = -1 End讦 End Function MH ? ? ? ，文件复制 Function CopyAFile(SourceFile,DestinationFile) 7/功能：源文件存在时，才能对文件进行复制，目的文件无影响 〃形参：源文件，目的文件 7/返回值：成功为1,失败为 Dim MyFile If ReportFileStatus(SourceFile) = 1 Then Set MyFile = fso.GetFile(SourceFile) MyFile.Copy (DestinationFile) CopyAFile = 1 Else CopyAFile = -1 End if End Function ?Response.Write MoveAFile(”f:\123\4561.exe,“f:\123\4562.txt”) Function MoveAFile(SourceFile,DestinationFile) 7/功能：源文件存在时目的文件不存在时才能对文件进行移动 7/形参：源文件，目的文件 〃返回值：成功为1,失败为-1 7/ If ReportFileStatus(SourceFiIe)= 1 And ReportFileStatus(DestinationFileORPath)= -1 Then fso.MoveFile SourceFile,DestinationFileORPath MoveAFile = 1 Else MoveAFile = -1 End if End Function 文件是否存在? Response.Write ReportFileStatus(,,G:\soft\Delphi\my_pro\代码库.exeH) Function ReportFileStatus(FileName) 7/功能：判断文件是否存在 7/形参：文件名 7/返回值：成功为1,失败为 7/ Dim msg msg = -1 If (fso.FileExists(FileName)) Then msg = 1 Else msg = -1 End If ReportFileStatus = msg End Function ，文件创建日期 Response.Write ShowDatecreated(G:\soft\delphi\my_pro\代码库.exe) Response.Write ShowDatecreated(nG:\soft\delphi\my_pro\复件代码库.exe) Function ShowDatecreated(filespec) 7/功能：文件创建日期 7/形参：文件名 〃返冋值：成功：文件创建日期，失败： 7/ Dimf If ReportFileStatus(filespec) = 1 Then Set f = fso.GetFile(filespec) ShowDatecreated = f.Datecreated Else ShowDatecreat