ASP文件操作大全哦,这里几乎上包括了所有的对文件的操作
<%
Class Cls_FSO
Public objFSO
Private Sub Class_Initialize()
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub class_terminate()
Set objFSO = Nothing
End Sub
'=======文件操作========
'取文件大小
Public Function GetFileSize(FileName)
Dim f
If ReportFileStatus(FileName) = 1 Then
Set f = objFSO.Getfile(FileName)
GetFileSize = f.Size
Else
GetFileSize = -1
End if
End Function
'文件删除
Public Function deleteAFile(FileSpec)
If ReportFileStatus(FileSpec) = 1 Then
objFSO.deleteFile(FileSpec)
deleteAFile = 1
Else
deleteAFile = -1
End if
End Function
'显示文件列表
Public Function ShowFileList(FolderSpec)
Dim f, f1, fc, s
If ReportFolderStatus(FolderSpec) = 1 Then
Set f = objFSO.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
'文件复制
Public Function CopyAFile(SourceFile, DestinationFile)
Dim MyFile
If ReportFileStatus(SourceFile) = 1 Then
Set MyFile = objFSO.GetFile(SourceFile)
MyFile.Copy (DestinationFile)
CopyAFile = 1
Else
CopyAFile = -1
End if
End Function
'文件移动
Public Function MoveAFile(SourceFile,DestinationFile)
If ReportFileStatus(SourceFile) = 1 And ReportFileStatus(DestinationFileORPath) = -1 Then
objFSO.MoveFile SourceFile,DestinationFileORPath
MoveAFile = 1
Else
MoveAFile = -1
End if
End Function
'文件是否存在？
Public Function ReportFileStatus(FileName)
Dim msg
msg = -1
If (objFSO.FileExists(FileName)) Then
msg = 1
Else
msg = -1
End If
ReportFileStatus = msg
End Function
'文件创建日期
Public Function ShowDatecreated(FileSpec)
Dim f
If ReportFileStatus(FileSpec) = 1 Then
Set f = objFSO.GetFile(FileSpec)
ShowDatecreated = f.Datecreated
Else
ShowDatecreated = -1
End if
End Function
'文件属性
Public Function GetAttributes(FileName)
Dim f
Dim strFileAttributes
If ReportFileStatus(FileName) = 1 Then
Set f = objFSO.GetFile(FileName)
select Case f.attributes
Case 0 strFileAttributes = "普通文件。没有设置任何属性。 "
Case 1 strFileAttributes = "只读文件。可读写。 "
Case 2 strFileAttributes = "隐藏文件。可读写。 "
Case 4 strFileAttributes = "系统文件。可读写。 "
Case 16 strFileAttributes = "文件夹或目录。只读。 "
Case 32 strFileAttributes = "上次备份后已更改的文件。可读写。 "
Case 1024 strFileAttributes = "链接或快捷方式。只读。 "
Case 2048 strFileAttributes = " 压缩文件。只读。"
End select
GetAttributes = strFileAttributes
Else
GetAttributes = -1
End if
End Function
'最后一次访问/最后一次修改时间
Public Function ShowFileAccessInfo(FileName,InfoType)
'//功能：显示文件创建时信息
'//形参：文件名,信息类别
'// 1 -----创建时间
'// 2 -----上次访问时间
'// 3 -----上次修改时间
'// 4 -----文件路径
'// 5 -----文件名称
'// 6 -----文件类型
'// 7 -----文件大小
'// 8 -----父目录
'// 9 -----根目录
Dim f, s
If ReportFileStatus(FileName) = 1 then
Set f = objFSO.GetFile(FileName)
select Case InfoType
Case 1 s = f.Datecreated
Case 2 s = f.DateLastAccessed
Case 3 s = f.DateLastModified
Case 4 s = f.Path
Case 5 s = f.Name
Case 6 s = f.Type
Case 7 s = f.Size
Case 8 s = f.ParentFolder
Case 9 s = f.RootFolder
End select
ShowFileAccessInfo = s
ELse
ShowFileAccessInfo = -1
End if
End Function
'写文本文件
Public Function WriteTxtFile(FileName,TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
select Case WriteORAppendType
Case 1: '文件进行写操作
Set f = objFSO.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 = objFSO.OpenTextFile(FileName, ForAppending)
f.Write TextStr
f.Close
WriteTxtFile = 1
Else
WriteTxtFile = -1
End if
End select
End Function
'读文本文件
Public Function ReadTxtFile(FileName)
Const ForReading = 1, ForWriting = 2
Dim f, m
If ReportFileStatus(FileName) = 1 then
Set f = objFSO.OpenTextFile(FileName, ForReading)
m = f.ReadLine
ReadTxtFile = m
f.Close
Else
ReadTxtFile = -1
End if
End Function
'建立文本文件
'=======目录操作========
'取目录大小
Public Function GetFolderSize(FolderName)
Dim f
If ReportFolderStatus(FolderName) = 1 Then
Set f = objFSO.GetFolder(FolderName)
GetFolderSize = f.Size
Else
GetFolderSize = -1
End if
End Function
'创建的文件夹
Public Function createFolderDemo(FolderName)
Dim f
If ReportFolderStatus(Folderspec) = 1 Then
createFolderDemo = -1
Else
Set f = objFSO.createFolder(FolderName)
createFolderDemo = 1
End if
End Function
'目录删除
Public Function deleteAFolder(Folderspec)
Response.write Folderspec
If ReportFolderStatus(Folderspec) = 1 Then
objFSO.deleteFolder (Folderspec)
deleteAFolder = 1
Else
deleteAFolder = -1
End if
End Function
'显示目录列表
Public Function ShowFolderList(FolderSpec)
Dim f, f1, fc, s
If ReportFolderStatus(FolderSpec) = 1 Then
Set f = objFSO.GetFolder(FolderSpec)
Set fc = f.SubFolders
For Each f1 in fc
s = s & f1.name
s = s & "|"
Next
ShowFolderList = s
Else
ShowFolderList = -1
End if
End Function
'目录复制
Public Function CopyAFolder(SourceFolder,DestinationFolder)
objFSO.CopyFolder SourceFolder,DestinationFolder
CopyAFolder = 1
CopyAFolder = -1
End Function
'目录进行移动
Public Function MoveAFolder(SourcePath,DestinationPath)
If ReportFolderStatus(SourcePath)=1 And ReportFolderStatus(DestinationPath)=0 Then
objFSO.MoveFolder SourcePath, DestinationPath
MoveAFolder = 1
Else
MoveAFolder = -1
End if
End Function
'判断目录是否存在
Public Function ReportFolderStatus(fldr)
Dim msg
msg = -1
If (objFSO.FolderExists(fldr)) Then
msg = 1
Else
msg = -1
End If
ReportFolderStatus = msg
End Function
'目录创建时信息
Public Function ShowFolderAccessInfo(FolderName,InfoType)
'//功能：显示目录创建时信息
'//形参：目录名,信息类别
'// 1 -----创建时间
'// 2 -----上次访问时间
'// 3 -----上次修改时间
'// 4 -----目录路径
'// 5 -----目录名称
'// 6 -----目录类型
'// 7 -----目录大小
'// 8 -----父目录
'// 9 -----根目录
Dim f, s
If ReportFolderStatus(FolderName) = 1 then
Set f = objFSO.GetFolder(FolderName)
select Case InfoType
Case 1 s = f.Datecreated
Case 2 s = f.DateLastAccessed
Case 3 s = f.DateLastModified
Case 4 s = f.Path
Case 5 s = f.Name
Case 6 s = f.Type
Case 7 s = f.Size
Case 8 s = f.ParentFolder
Case 9 s = f.RootFolder
End select
ShowFolderAccessInfo = s
ELse
ShowFolderAccessInfo = -1
End if
End Function
'遍历目录
Public Function DisplayLevelDepth(pathspec)
Dim f, n ,Path
Set f = objFSO.GetFolder(pathspec)
If f.IsRootFolder Then
DisplayLevelDepth ="指定的文件夹是根文件夹。"&RootFolder
Else
Do Until f.IsRootFolder
Path = Path & f.Name &"<br>"
Set f = f.ParentFolder
n = n + 1
Loop
DisplayLevelDepth ="指定的文件夹是嵌套级为 " & n & " 的文件夹。<br>" & Path
End If
End Function
'========磁盘操作========
'驱动器是否存在？
Public Function ReportDriveStatus(drv)
Dim msg
msg = -1
If objFSO.DriveExists(drv) Then
msg = 1
Else
msg = -1
End If
ReportDriveStatus = msg
End Function
'可用的返回类型包括 FAT、NTFS 和 CDFS。
Public Function ShowFileSystemType(drvspec)
Dim d
If ReportDriveStatus(drvspec) = 1 Then
Set d = objFSO.GetDrive(drvspec)
ShowFileSystemType = d.FileSystem
ELse
ShowFileSystemType = -1
End if
End Function
End Class
%>
分享到：
相关推荐
'文件删除'显示文件列表ASP 文件操作大全'取文件大小'驱动器是否存在？
在这个"asp文件操作类"中，我们主要关注的是如何在ASP中处理文件系统对象（FileSystemObject，简称FSO）。这个类提供了丰富的功能，允许开发者对服务器上的文件和文件夹进行创建、读取、写入、删除等操作。 `fso_...
在这个"ASP.NET文件和目录操作大全"的压缩包中，包含了多种与文件和目录管理相关的实用功能，如文件上传、下载、INI文件操作以及文件和目录的创建与删除等。下面将详细介绍这些知识点。 1. **文件操作**： - **...
在Asp.Net中，文件操作是一项基础且重要的功能，它涉及到网站内容的管理、用户上传下载、数据存储等多个方面。本篇文章将详细讲解Asp.Net中用于文件操作的类，包括创建、删除、移动等常见操作，以帮助开发者更好地...
### ASP.NET 文件操作详解 #### 一、引言 在ASP.NET开发中，对文件进行操作是一项非常常见的任务。无论是创建、读取还是删除文件，掌握这些基本技能都是必不可少的。本文将详细介绍如何在ASP.NET中执行这些基本的...
在ASP.NET中，文件操作是一项基础且重要的任务，特别是在处理用户上传、下载或者对服务器上存储的数据进行读写时。本篇文章将详细讲解如何利用C#语言在ASP.NET环境中实现TXT文件的读写功能。 首先，我们需要理解ASP...
综上所述，ASP文件操作函数为开发者提供了一套强大且灵活的工具，使得在服务器端处理文件变得简单高效。通过熟练掌握这些函数，可以轻松地实现读取、写入、修改和生成文件的功能，提升Web应用程序的性能和用户体验。...
ASP文件上传组件是一种在Web应用中处理用户上传文件的关键技术，尤其对于动态网站而言，它允许用户方便地将数据文件（如文档、图片、音频、视频等）上传至服务器。在本例中，"AN-Upload"是这样一个组件，它采用ASP...
通过分析和学习这个基于ASP的文件管理系统源码，开发者可以深入理解ASP编程模型，掌握Web应用程序的设计和实现方法，以及如何处理文件操作、用户认证、数据持久化等问题。对于初学者来说，这是一个很好的实践平台，...
asp 读写 excel文件 asp读写.xls 组件+教程+组件安装+代码例子（可运行） 我看网上有人把 asp操作excel 技术总结 进行出售，刚在项目中用到，就分享出来，提供给大家免费试用。Ade下载地址： ...Microsoft Access ...
在乘风文件管理系统中，可能会有处理文件操作的函数和类，如上传文件、下载文件、删除文件等。 2. **数据库交互**：文件管理系统往往需要与数据库配合，存储文件信息，如文件名、大小、创建日期、访问权限等。可能...
在“asp文件打包成zip组件”的场景中，由于没有具体的文件列表（仅给出了"13964"这个信息，可能是文件ID或数量），我们无法详细讨论具体文件的操作。但是，根据描述，我们可以推测这个组件可能提供了简单易用的ASP...
### ASP文件操作总结：深入解析与实用技巧 在IT领域，尤其是Web开发中，ASP（Active Server Pages）作为早期的动态网页技术，至今仍在部分场景下发挥着重要作用。本文将根据给定的ASP代码示例，深入探讨ASP中的文件...
ASP操作XML文件的完整实例 asp文件 里面全是实例代码
在ASP文件管理器中，你可以执行常见的文件操作，如上传、下载、删除、重命名、移动和复制文件。这些功能对于开发和维护基于ASP的网站至关重要，因为它们可以远程访问服务器上的文件，无需通过FTP客户端或其他复杂的...
在"asp文件管理器"这个场景下，我们主要讨论的是一个基于ASP技术实现的文件管理系统。 文件管理器是一个应用程序，允许用户通过Web界面浏览、上传、下载、编辑和删除服务器上的文件。对于ASP文件管理器来说，它的...
在ASP.NET Web表单中，我们可以使用各种服务器控件来进行文件操作。`FileUpload`控件允许用户选择本地文件并上传至服务器，`Button`控件则可以触发文件的添加、删除或修改操作。配合后台代码，这些控件可以实现完整...
学习和理解这个源码，开发者可以深入研究ASP.NET 1.1框架的工作原理，了解如何构建一个完整的文件管理系统，包括用户身份验证、文件操作逻辑、权限控制等方面。这对于提升ASP.NET技能，尤其是对于那些希望回溯到.NET...
asp.net mvc文本文件创建更新,为了方便,我就不解释了,而且也不独立出来了
"FSO下载文件"中的FSO是File System Object的缩写，它是ASP内置的对象，允许开发者在服务器端操作文件系统。通过FSO，可以读取、写入、创建、删除文件和目录。在下载文件时，FSO可以用来打开和读取要下载的文件内容...