FSO文件操作类

最新推荐文章于 2019-02-18 15:53:33 发布

原创最新推荐文章于 2019-02-18 15:53:33 发布 · 666 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function #class

ASP 专栏收录该内容

10 篇文章

订阅专栏

本文介绍了一种利用ASP内置对象Scripting.FileSystemObject (FSO)进行文件操作的方法，包括文件的保存、读取、创建、删除及复制等功能，并提供了一个FSO操作类封装这些功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<% '保存JS Function SaveFile(jsfile,jsarea) 'On Error Resume Next SaveFile = False Dim fso, f, FilePath FilePath = server.MapPath("jsfile/" & jsfile) Set fso = Server.CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(FilePath, 2, True) f.Write jsarea f.Close Set fso = Nothing If Err Then Err.Clear : SaveFile = False Else SaveFile = True End Function '打开读取JS Function OpenFile(jsfile) 'On Error Resume Next Dim fso, f, jsarea, FilePath FilePath = server.MapPath("jsfile/" & jsfile) Set fso = Server.CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(FilePath, 1, True) do while not f.AtEndOfLine jsarea = jsarea & vbcrlf & f.ReadLine loop f.Close Set fso = Nothing OpenFile = jsarea End Function '*************************** '名称：FSO操作类 '描述：FSO操作类 '*************************** Class FsoCls Private Fso'//对象 Public FsoObj'//公共接口对象 '//初始化,构造函数 Private Sub Class_Initialize Set Fso=CreateObject("Scripting.FileSystemObject") Set FsoObj=Fso End Sub '//结束，释构函数 Private Sub Class_Terminate Set Fso=Nothing Set FsoObj=Nothing End Sub '判断文件是否存在，存在则返回True,否则返回False '参数FileDir为文件的绝对路径 Function IsFileExists(ByVal FileDir) If Fso.FileExists(FileDir) Then IsFileExists=True Else IsFileExists=False End If End Function '读取文件内容，存在则返回文件的内容，否则返回False '参数FileDir为文件的绝对路径 Function GetFileText(ByVal FileDir) If IsFileExists(FileDir) Then Dim F Set F=Fso.OpenTextFile(FileDir) GetFileText=F.ReadAll Set F=Nothing Else GetFileText=False End If End Function '创建一个文件并写入内容 '操作成功返回True,否则返回False Function CreateFile(ByVal FileDir,ByVal FileContent) 'If IsFileExists(FileDir) Then ' CreateFile=False ' Exit Function 'Else Dim F Set F=Fso.CreateTextFile(FileDir) F.Write FileContent CreateFile=True F.Close 'End If End Function '删除一个文件，成功返回True，否则返回False '参数FileDir为文件的绝对路径 Function DelFile(ByVal FileDir) If IsFileExists(FileDir) Then Fso.DeleteFile(FileDir) DelFile=True Else DelFile=False End If End Function '拷贝文件 Function CopyFile(ByVal FileName1,ByVal FileName2) If IsFileExists(FileName1) Then Fso.CopyFile FileName1,FileName2,true CopyFile=True Else CopyFile=False End If End Function End Class %>