注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

小新之家

心灵的放松地点

 
 
 

日志

 
 

asp中FSO的读写删操作  

2009-09-07 11:02:59|  分类: 学习资料 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

主要功能:

1,创建删除文件夹

2,获取某个文件夹里的文件夹名称和个数

3,获取某个文件夹里的文件名称和个数

4,检查某个文件夹是否存在

5,检查某个文件是否存在

6,删除文件

7,读取某个文件的内容

7,创建一个文件,并把内容写到这个文件里面

总的来说,功能就分两个,一个是文件操作,一个是文件夹操作。我只是根据我的那个"在线作业管理系统"的需求写的,并不适合所有人...

<%

'***************************

'名称:FSO操作类

'作者:西楼冷月

'日期:2006-3-1

'网址:www.xilou.net/   | www.chinaCMS.org

'描述: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

'====================文件操作开始=========================

Function IsFileExists(ByVal FileDir)

    '判断文件是否存在,存在则返回True,否则返回False

    '参数FileDir为文件的绝对路径

    If Fso.FileExists(FileDir) Then

       IsFileExists=True

    Else

       IsFileExists=False

    End If

End Function

Function GetFileText(ByVal FileDir)

    '读取文件内容,存在则返回文件的内容,否则返回False

    '参数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

Function CreateFile(ByVal FileDir,ByVal FileContent)

    '创建一个文件并写入内容

    '操作成功返回True,否则返回False

    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

Function DelFile(ByVal FileDir)

    '删除一个文件,成功返回True,否则返回False

    '参数FileDir为文件的绝对路径

    If IsFileExists(FileDir) Then

       Fso.DeleteFile(FileDir)

       DelFile=True

    Else

       DelFile=False

    End If

End Function

'====================文件操作结束=========================

'====================文件夹操作开始========================

Function IsFolderExists(ByVal FolderDir)

    '判断文件夹是否存在,存在则返回True,否则返回False

    '参数FolderDir为文件的绝对路径

    If Fso.FolderExists(FolderDir) Then

       IsFolderExists=True

    Else

       IsFolderExists=False

    End If

End Function

Sub CreateFolderA(ByVal ParentFolderDir,ByVal NewFoldeName)

    '//在某个特定的文件夹里创建一个文件夹

    '//ParentFolderDir为父文件夹的绝对路径,NewFolderName为要新建的文件夹名称

    If IsFolderExists(ParentFolderDir&"\"&NewFoldeName) Then Exit Sub

    Dim F,F1

    Set F=Fso.GetFolder(ParentFolderDir)

    Set F1=F.SubFolders

    F1.Add(NewFoldeName)

    Set F=Nothing

    Set F1=Nothing

End Sub

Sub CreateFolderB(ByVal NewFolderDir)

    '//创建一个新文件夹

    '//参数NewFolderDir为要创建的文件夹绝对路径

    If IsFolderExists(NewFolderDir) Then Exit Sub

    Fso.CreateFolder(NewFolderDir)

End Sub

Sub DeleteAFolder(ByVal NewFolderDir)

     '//删除一个新文件夹

    '//参数NewFolderDir为要创建的文件夹绝对路径

    If IsFolderExists(NewFolderDir)=False Then

       Exit Sub

    Else

       Fso.DeleteFolder (NewFolderDir)

    End If

End Sub

Function FolderItem(ByVal FolderDir)

    '//文件夹里的文件夹集合

    '//FolderDir 为文件夹绝对路径

     If IsFolderExists(FolderDir) =False Then

        FolderItem=False

        Exit Function

     End If

     Dim FolderObj,FolderList,F

     Set FolderObj=Fso.GetFolder(FolderDir)

     Set FolderList=FolderObj.SubFolders

     FolderItem=FolderObj.SubFolders.Count'//文件夹总数

     For Each F In FolderList

        FolderItem=FolderItem&"|"&F.Name

     Next

     Set FolderList=Nothing

     Set FolderObj=Nothing

End Function

Function FileItem(ByVal FolderDir)

    '//文件夹里的文件集合

    '//FolderDir 为文件夹绝对路径

     If IsFolderExists(FolderDir) =False Then

        FileItem=False

        Exit Function

     End If

     Dim FileObj,FileerList,F

     Set FileObj=Fso.GetFolder(FolderDir)

     Set FileList=FileObj.Files

     FileItem=FileObj.Files.Count'//文件总数

     For Each F In FileList

        FileItem=FileItem&"|"&F.Name

     Next

     Set FileList=Nothing

     Set FileObj=Nothing

End Function

'====================文件夹操作结束========================

End Class

%>

  评论这张
 
阅读(136)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017