asp的Fso文件/文件夹操作类

和前面提到的一样,这个也只是把一些函数压在一起。实际上用一些函数集的方法放程序中更好。

主要功能:

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
%>

时间: 2024-12-23 15:16:56

asp的Fso文件/文件夹操作类的相关文章

asp.net常用的文件与文件夹操作类

asp教程.net常用的文件与文件夹操作类 #region 引用命名空间 using System; using System.Collections.Generic; using System.Text; using System.IO; #endregion namespace CommonUtilities {     /// <summary>     /// 文件操作类     /// </summary>     public class FileHelper    

ASP.NET[C#]的ACCESS数据库操作类

access|asp.net|数据|数据库 ASP.NET[C#]的ACCESS数据库操作类       //网上很多都是操作SQL SER 的,整理了一下,不是很完善,但不影响使用,呵呵--       //private string datapatch = ConfigurationSettings.AppSettings["acessconn"];//数据库地址                                            private string

asp.net文件与文件夹操作类(文件删除,创建,目录删除)

下面这个文件操作类,可以删除目录并且不为空的目录哦,也可以创建文件写文件,删除文件以前递归操作目录. using system.io; using system.web; namespace sec {     /**////     /// 对文件和文件夹的操作类     ///     public class filecontrol     {          public filecontrol()          {          }          /**////     

一个ASP.NET的MYSQL的数据库操作类自己封装的_实用技巧

/** * 类说明:对MYSQL数据库的操作类 */ using System; using System.Data; using MySql.Data.MySqlClient; namespace Niunan.BYLW.Utility { /// <summary>对MYSQL数据库的操作类 /// /// </summary> public class MYSQLHelper { private MySqlConnection conn = null; private MyS

自己封装的ASP.NET的MYSQL的数据库操作类

代码 /** * 作者:牛腩 * 创建时间:2010年3月7日17时35分 * 类说明:对MYSQL数据库的操作类 */ using System;using System.Data;using MySql.Data.MySqlClient; namespace Niunan.BYLW.Utility{    /// <summary>对MYSQL数据库的操作类    ///     /// </summary>    public class MYSQLHelper    {  

asp结合fso实现文件或文件夹创建删除等操作的函数_应用技巧

'////////////////////////////////////////////////FSO操作///////////////////////////////////// '判断文件夹是否存在 Function FolderExits(Folder) Folder=Server.Mappath(Folder) Set FSO= Server.CreateObject("Scripting.FileSystemObject") IF FSO.FolderExists(Fold

asp结合fso实现文件或文件夹创建删除等操作的函数

'////////////////////////////////////////////////FSO操作///////////////////////////////////// '判断文件夹是否存在 Function FolderExits(Folder) Folder=Server.Mappath(Folder) Set FSO= Server.CreateObject("Scripting.FileSystemObject") IF FSO.FolderExists(Fold

asp利用fso给文件夹和文件改名的代码_FSO专题

<% Dim fso,f,folder     Set fso=Server.CreateObject("scripting.filesystemobject")     '改目录名     Set folder=fso.getfolder(Server.Mappath("Old"))     folder.name="New" '新名字     '改文件名     Set f=fso.getfile(Server.Mappath(&quo

asp利用fso给文件夹和文件改名的代码

<% Dim fso,f,folder     Set fso=Server.CreateObject("scripting.filesystemobject")     '改目录名     Set folder=fso.getfolder(Server.Mappath("Old"))     folder.name="New" '新名字 '改文件名     Set f=fso.getfile(Server.Mappath("Ol