ASP中最常用的22个FSO文件操作函数1-11

1.文件操作，取文件大小ASP ASP代码

Function GetFileSize(FileName)  
’//功能：取文件大小  
’//形参：文件名  
’//返回值：成功为文件大小，失败为-1  
’//  
FPath=server.mappath("jinmozhe.rar") '本地文件地址
Set fso = CreateObject("scripting.FileSystemObject")
Set f = fso.GetFile(FPath)
size=f.size
if len(size)>4 then
    response.write formatnumber(f.size/1024000,2)&"MB"
else
   response.write formatnumber(f.size/1024,2)&"KB"
end if

2.使用FSO删除指定文件 
Function deleteAFile(filespec)   网站地图
’//功能：文件删除  
’//形参：文件名  
’//返回值：成功为1，失败为-1  
’//  
If ReportFileStatus(filespec) = 1 Then  
fso.deleteFile(filespec)  
deleteAFile = 1  
Else  
deleteAFile = -1  
End if  
End Function

3.FSO显示指定目录下的所有文件 广告赚钱

Function ShowFileList(folderspec)  
’//功能：目录存在时显示此目录下的所有文件  
’//形参：目录名  
’//返回值：成功为文件列表，失败为-1  
’//  
Dim f, f1, fc, s  
If ReportFolderStatus(folderspec) = 1 Then  
Set f = fso.GetFolder(folderspec)  
Set fc = f.Files  
For Each f1 in fc  
s = s & f1.name  
s = s & "|"  
Next  
ShowFileList = s  
Else  
ShowFileList = -1  
End if  
End Function

4.使用fso复制指定文件

Function CopyAFile(SourceFile,DestinationFile)  
’//功能：源文件存在时，才能对文件进行复制，目的文件无影响  
’//形参：源文件，目的文件  
’//返回值：成功为1，失败为-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 

5.源文件存在时目的文件不存在时才能对文件进行移动

’Response.Write MoveAFile("f:/123/4561.exe","f:/123/4562.txt")  
Function MoveAFile(SourceFile,DestinationFile)  
’//形参：源文件，目的文件  
’//返回值：成功为1，失败为-1  
’//  
If ReportFileStatus(SourceFile)=1 And  
ReportFileStatus(DestinationFileORPath) =-1 Then  
fso.MoveFile SourceFile,DestinationFileORPath  
MoveAFile = 1  
Else  
MoveAFile = -1  
End if  
End Function 

6.FSO判断指定文件是否存在？

Function ReportFileStatus(FileName)  
’//功能：判断文件是否存在  
’//形参：文件名  
’//返回值：成功为1，失败为-1  
’//  
Dim msg  
msg = -1  
If (fso.FileExists(FileName)) Then  
msg = 1  
Else  
msg = -1  
End If  
ReportFileStatus = msg  
End Function 

7.FSO读取文件创建日期

Function ShowDatecreated(filespec)  
’//功能：文件创建日期  
’//形参：文件名  
’//返回值：成功：文件创建日期，失败：-1  
’//  
Dim f  
If ReportFileStatus(filespec) = 1 Then  
Set f = fso.GetFile(filespec)  
ShowDatecreated = f.Datecreated  
Else  
ShowDatecreated = -1  
End if  
End Function

8.FSO显示文件读写权限属性

Function GetAttributes(FileName)  
’//功能：显示文件属性  
’//形参：文件名  
’//返回值：成功：文件属性，失败：-1  
’//  
Dim f,Str  
If ReportFileStatus(FileName) = 1 Then  
Set f = fso.GetFile(FileName)  
select Case f.attributes  
Case 0 Str="普通文件。没有设置任何属性。 "  
Case 1 Str="只读文件。可读写。 "  
Case 2 Str="隐藏文件。可读写。 "  
Case 4 Str="系统文件。可读写。 "  
Case 16 Str="文件夹或目录。只读。 "  
Case 32 Str="上次备份后已更改的文件。可读写。 "  
Case 1024 Str="链接或快捷方式。只读。 "  
Case 2048 Str=" 压缩文件。只读。"  
End select  
GetAttributes = Str  
Else  
GetAttributes = -1  
End if  
End Function 

 

9.FSO显示指定文件最后一次访问/最后一次修改时间

’Response.Write ShowFileAccessInfo("文件路径")  
Function ShowFileAccessInfo(FileName,InfoType)  
’//功能：显示文件创建时信息  
’//形参：文件名,信息类别  
’// 1 -----创建时间  
’// 2 -----上次访问时间  
’// 3 -----上次修改时间  
’// 4 -----文件路径  
’// 5 -----文件名称  
’// 6 -----文件类型  
’// 7 -----文件大小  
’// 8 -----父目录  
’// 9 -----根目录  
’//返回值：成功为文件创建时信息，失败：-1  
’//  
Dim f, s  
If ReportFileStatus(FileName) = 1 then  
Set f = fso.GetFile(FileName)  
select Case InfoType  
Case 1 s = f.Datecreated ’// 1 -----创建时间  
Case 2 s = f.DateLastAccessed ’// 2 -----上次访问时间  
Case 3 s = f.DateLastModified ’// 3 -----上次修改时间  
Case 4 s = f.Path ’// 4-----文件路径  
Case 5 s = f.Name ’// 5 -----文件名称  
Case 6 s = f.Type ’// 6-----文件类型  
Case 7 s = f.Size ’// 7-----文件大小  
Case 8 s = f.ParentFolder ’// 8 -----父目录  
Case 9 s = f.RootFolder ’// 8 -----根目录  
End select  
ShowFileAccessInfo = s  
ELse  
ShowFileAccessInfo = -1  
End if  
End Function 

广告网站

10.FSO写指定内容到文本文件

Function WriteTxtFile(FileName,TextStr,WriteORAppendType)  
Const ForReading = 1, ForWriting = 2 , ForAppending = 8  
Dim f, m  
select Case WriteORAppendType  
Case 1: ’文件进行写操作  
Set f = fso.OpenTextFile(FileName, ForWriting, True)  
f.Write TextStr  
f.Close  
If ReportFileStatus(FileName) = 1 then  
WriteTxtFile = 1  
Else  
WriteTxtFile = -1  
End if  
Case 2: ’文件末尾进行写操作  
If ReportFileStatus(FileName) = 1 then  
Set f = fso.OpenTextFile(FileName, ForAppending)  
f.Write TextStr  
f.Close  
WriteTxtFile = 1  
Else  
WriteTxtFile = -1  
End if  
End select  
End Function

11.利用FSO读取文本文件内容

Function ReadTxtFile(FileName)  
Const ForReading = 1, ForWriting = 2  
Dim f, m  
If ReportFileStatus(FileName) = 1 then  
Set f = fso.OpenTextFile(FileName, ForReading)  
m = f.ReadLine  
’m = f.ReadAll  
’f.SkipLine  
ReadTxtFile = m  
f.Close  
Else  
ReadTxtFile = -1  
End if  
End Function