服务器之家：专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

服务器之家 - 编程语言 - ASP教程 - ASP中常用的22个FSO文件操作函数整理

ASP中常用的22个FSO文件操作函数整理

2020-03-11 14:05mdxy-dxy ASP教程

ASP中FSO组件的功能很强大，如果没有FSO很难想象ASP会变成什么样。对于学习asp编程的朋友一定会接触到FSO相关的操作，如备份数据库，读取文件，生成静态页面等等。本文就列举了ASP中常用的22个FSO文件操作函数，相信能为您带来方

在ASP中，FSO的意思是File System Object，即文件系统对象。我们将要操纵的计算机文件系统，在这里是指位于web服务器之上。所以，确认你对此拥有合适的权限。理想情况下，你可以在自己的机器上建立一个web服务器，这样就能方便地进行测试。如果运行于Windows平台，请试一试微软公司的Web服务器iis。

FSO 模型对象

Drive Object：驱动器对象 供存取磁盘或者网络驱动器
FileSystemObject Object：文件系统对象 供存取计算机的文件系统
Folder Object：文件夹对象 供存取文件夹的所有属性
TextStream Object：文本流对象 供存取文件内容

你可以使用上面的对象做计算机上的任何事情，也包括破坏活动 ;-( 所以，请小心使用FSO。在web环境中，存储信息是非常重要的，比如用户信息，日志文件，等等。FSO提供了一个强大且简单的方法高效率地保存数据。FSO由微软公司提供支持，对于非Windows系统，大概不能再使用ASP。

1.文件操作，取文件大小

?
1
2
3
4
5
6
7
8
9
10
11
12
13
Function GetFileSize(FileName)
'//功能：取文件大小
'//形参：文件名
'//返回值：成功为文件大小，失败为-1
'//
Dim f
If ReportFileStatus(FileName) = 1 Then
Set f = fso.Getfile(FileName)
GetFileSize = f.Size
Else
GetFileSize = -1
End if
End Function

2.使用FSO删除指定文件

?
1
2
3
4
5
6
7
8
9
10
11
12
Function deleteAFile(filespec)
'//功能：文件删除
'//形参：文件名
'//返回值：成功为1，失败为-1
'//
If ReportFileStatus(filespec) = 1 Then
fso.deleteFile(filespec)
deleteAFile = 1
Else
deleteAFile = -1
End if
End Function

3.FSO显示指定目录下的所有文件

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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复制指定文件

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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.源文件存在时目的文件不存在时才能对文件进行移动

?
1
2
3
4
5
6
7
8
9
10
11
12
13
'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判断指定文件是否存在？

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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读取文件创建日期

?
1
2
3
4
5
6
7
8
9
10
11
12
13
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显示文件读写权限属性

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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显示指定文件最后一次访问/最后一次修改时间

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'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写指定内容到文本文件

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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读取文本文件内容

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

12.FSO返回文件夹目录空间大小

?
1
2
3
4
5
6
7
8
9
10
11
12
13
Function GetFolderSize(FolderName)
'//功能：取目录大小
'//形参：目录名
'//返回值：成功为目录大小，失败为-1
'//
Dim f
If ReportFolderStatus(FolderName) = 1 Then
Set f = fso.GetFolder(FolderName)
GetFolderSize = f.Size
Else
GetFolderSize = -1
End if
End Function

13.使用FSO创建文件夹

?
1
2
3
4
5
6
7
8
9
10
11
12
13
Function createFolderDemo(FolderName)
'//功能：创建的文件夹
'//形参：目录名
'//返回值：成功为1，失败为-1
'//
Dim f
If ReportFolderStatus(Folderspec) = 1 Then
createFolderDemo = -1
Else
Set f = fso.createFolder(FolderName)
createFolderDemo = 1
End if
End Function

14.FSO删除指定文件夹目录

?
1
2
3
4
5
6
7
8
9
10
11
12
13
Function deleteAFolder(Folderspec)
'//功能：目录删除
'//形参：目录名
'//返回值：成功为1，失败为-1
'//
Response.write Folderspec
If ReportFolderStatus(Folderspec) = 1 Then
fso.deleteFolder (Folderspec)
deleteAFolder = 1
Else
deleteAFolder = -1
End if
End Function

15.FSO显示指定目录的文件夹目录列表

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function ShowFolderList(folderspec)
'//功能：目录存在时显示此目录下的所有子目录
'//形参：目录名
'//返回值：成功为子目录列表，失败为-1
'//
Dim f, f1, fc, s
If ReportFolderStatus(folderspec) = 1 Then
Set f = fso.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

16.FSO复制指定文件夹目录

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function CopyAFolder(SourceFolder,DestinationFolder)
'//功能：源目录存在时，才能对目录进行复制，目的目录无影响
'//形参：源目录，目的目录
'//返回值：成功为1，失败为-1
'//
Dim MyFolder
If ReportFolderStatus(SourceFolder) = 1 and ReportFolderStatus(DestinationFolder) = -1 Then
Set MyFolder = fso.GetFolder(SourceFolder)
fso.CopyFolder SourceFolder,DestinationFolder
CopyAFolder = 1
Else
CopyAFolder = -1
End if
End Function

17.移动指定文件夹目录

?
1
2
3
4
5
6
7
8
9
10
11
12
Function MoveAFolder(SourcePath,DestinationPath)
'//功能：源目录存在时目的目录不存在时才能对目录进行移动
'//形参：源目录，目的目录
'//返回值：成功为1，失败为-1
'//
If ReportFolderStatus(SourcePath)=1 And ReportFolderStatus(DestinationPath)=0 Then
fso.MoveFolder SourcePath, DestinationPath
MoveAFolder = 1
Else
MoveAFolder = -1
End if
End Function

18.判断某目录是否存在

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Response.Write ReportFolderStatus("G:\soft\delphi\my_pro\")
Function ReportFolderStatus(fldr)
'//功能：判断目录是否存在
'//形参：目录
'//返回值：成功为1，失败为-1
'//
Dim msg
msg = -1
If (fso.FolderExists(fldr)) Then
msg = 1
Else
msg = -1
End If
ReportFolderStatus = msg
End Function

19.显示目录创建时信息

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Function ShowFolderAccessInfo(FolderName,InfoType)
'//功能：显示目录创建时信息
'//形参：目录名,信息类别
'// 1 -----创建时间
'// 2 -----上次访问时间
'// 3 -----上次修改时间
'// 4 -----目录路径
'// 5 -----目录名称
'// 6 -----目录类型
'// 7 -----目录大小
'// 8 -----父目录
'// 9 -----根目录
'//返回值：成功为目录创建时信息，失败：-1
'//
Dim f, s
If ReportFolderStatus(FolderName) = 1 then
Set f = fso.GetFolder(FolderName)
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 '// 9 -----根目录
End select
ShowFolderAccessInfo = s
ELse
ShowFolderAccessInfo = -1
End if
End Function

20.返回文件夹嵌套数

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function DisplayLevelDepth(pathspec)
Dim f, n ,Path
Set f = fso.GetFolder(pathspec)
If f.IsRootFolder Then
DisplayLevelDepth ="指定的文件夹是根文件夹。"&RootFolder
Else
Do Until f.IsRootFolder
Path = Path & f.Name &"
"
Set f = f.ParentFolder
n = n + 1
Loop
DisplayLevelDepth ="指定的文件夹是嵌套级为 " & n & "的文件夹。
"&Path
End If
End Function

21.判断指定磁盘驱动器是否存在？

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Response.Write ReportDriveStatus("C:\")
Function ReportDriveStatus(drv)
'//功能：判断磁盘是否存在
'//形参：磁盘
'//返回值：成功为1，失败为-1
'//
Dim msg
msg = -1
If fso.DriveExists(drv) Then
msg = 1
Else
msg = -1
End If
ReportDriveStatus = msg
End Function

22.FSO返回指定磁盘可用的类型包括 FAT、NTFS 和 CDFS。

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Response.Write ShowFileSystemType("C:\")
Function ShowFileSystemType(drvspec)
'//功能：磁盘类型
'//形参：磁盘名
'//返回值：成功为类型：FAT、NTFS 和 CDFS，失败：-1
'//
Dim d
If ReportDriveStatus(drvspec) = 1 Then
Set d = fso. GetDrive(drvspec)
ShowFileSystemType = d.FileSystem
ELse
ShowFileSystemType = -1
End if
End Function

 

  • 文件操作
  • asp
  • fso

    • 延伸 · 阅读

    精彩推荐
    最近更新
    编辑推荐
    阅读排行
    热门标签
    生成页面 　 Application 　 ViewState 　 ABP 　 日志管理 　 设置管理 　 WebService 　 问题 　 广告 　 adodb 　 recordset 　 多行注释 　 if 　 while 　 Session 　 内置对象 　 Webform 　 ASP开发 　 网页 　 在线压缩 　 错误捕获 　 Weekday 　 asp代码 　 信息提示 　 返回 　 日期格式化 　 FormatDate 　 vbs 　 Rs.Open 　 Conn.Execute 　
    © 2019-2023 服务器之家(www.zzvips.com) 版权所有关于我们联系我们版权申明网站地图