FileSystem对象中常用的文件操作函数介绍
2018-09-18 06:51:08来源:爱站网 阅读 ()
本篇文章主要介绍了FileSystem对象中常用的文件操作函数介绍,希望小编整理的相关知识和资料都对你们有所帮助。
1、root
函数格式 root()
功能描述 返回一个路径串变量
应用代码 'sample string = c:\intels\jingcaichunfeng\'
Public Function root()
root = Request.ServerVariables("Appl_Physical_Path")
End Function
2、url
函数格式 url()
功能描述 返回一个URL串变量
应用代码 'sample string = http://www.intels.net/filesys.asp'
Public Function url()
url ="http://"&Request.ServerVariables("Server_Name")
&Request.ServerVariables("Script_Name")
End Function
3、mkdir
函数格式 mkdir( DIrName )
功能描述 创建一个目录并返回信息
应用代码 Public Function mkdir( xVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FolderExists( xVar ) Then
? msg ="抱歉,该目录已存在! "
Else
? Sys.CreateFolder( xVar )
? msg ="恭喜,目录创建成功! "
End If
Set Sys = Nothing
mkdir = msg
End Function
4、rmdir
函数格式 rmdir( DirName )
功能描述 删除一个目录并返回信息
应用代码 Public Function rmdir( xVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FolderExists( xVar ) Then
? Sys.DeleteFolder( xVar )
? msg ="恭喜,目录删除成功!"
Else
? msg ="抱歉,该目录还未被创建! "
End If
Set Sys = Nothing
rmdir = msg
End Function
5、isdir
函数格式 isdir( DirName )
功能描述 检查一个目录是否存在并返回信息
应用代码 Public Function isdir( xVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FolderExists( xVar ) Then
? msg = True
Else
? msg = False
End If
Set Sys = Nothing
isdir = msg
End Function
6、cpdir
函数格式 cpdir( DirName, Destination, OverWrite )
功能描述 复制文件夹并返回信息
应用代码 Public Function cpdir( xVar, yVar, zVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FolderExists( xVar ) Then
? Sys.CopyFolder xVar, root&yVar, zVar
? msg ="恭喜,目录复制成功!"
Else
? msg ="抱歉,没有找到您想要的目录!"
End If
Set Sys = Nothing
cpdir = msg
End Function
7、mvdir
函数格式 mvdir( DirName, Destination )
功能描述 移动一个文件夹并返回信息
应用代码 Public Function mvdir( xVar, yVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FolderExists( xVar ) Then
? Sys.MoveFolder xVar, root&yVar
? msg ="恭喜,目录夹已移动!"
Else
? msg ="抱歉,没有找到您想要的目录!"
End If
Set Sys = Nothing
mvdir = msg
End Function
8、isfile
函数格式 isfile( FileName )
功能描述 检查文件是否存在并返回信息
应用代码 Public Function isfile( xVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FileExists( xVar ) Then
? msg = True
Else
? msg = False
End If
Set Sys = Nothing
isfile = msg
End Function
9、wfile
函数格式 wfile( FileName, OverWrite, String )
功能描述 写入串到一个文件并返回信息
应用代码 Public Function wfile( xVar, yVar, zVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If yVar Then
? Set Txt = Sys.OpenTextFile( xVar, 2 )
? Txt.Write( zVar )
? Txt.Close
? msg ="恭喜,文件创建成功并保存!"
Else
? If Sys.FileExists( xVar ) Then
?? msg ="抱歉,文件已经存在!"
? End If
Set Sys = Nothing
wfile = msg
End Function
10、rfile
函数格式 rfile( FileName )
功能描述 读取一个文件并返回信息
应用代码 Public Function rfile( xVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FileExists( xVar ) Then
? Set Txt = Sys.OpenTextFile( xVar, 1 )
? msg = Txt.ReadAll
? Txt.Close
Else
? msg ="抱歉,文件不存在!"
End If
Set Sys = Nothing
rfile = msg
End Function
11、afile
函数格式 afile( FileName, String )
功能描述 添加串到一个文件并返回信息
应用代码 Public Function afile( xVar, zVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FileExists( xVar ) Then
? Set Txt = Sys.OpenTextFile( xVar, 8 )
? Txt.Write( zVar )
? Txt.Close
?? msg ="恭喜,文件添加成功并保存!"
Else
? msg ="抱歉,文件不存在!"
End If
Set Sys = Nothing
afile = msg
End Function
12、cpfile
函数格式 cpfile( FileName, Destination, OverWrite )
功能描述 复制一个文件并返回信息
应用代码 Public Function cpfile( xVar, yVar, zVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FileExists( xVar ) Then
? Sys.CopyFile xVar, root&yVar, zVar
? msg ="恭喜,文件复制成功!"
Else
? msg ="抱歉,文件复制失败!"
End If
Set Sys = Nothing
cpfile = msg
End Function
13、mvfile
函数格式 mvfile( FileName, Destination )
功能描述 移动一个文件并返回信息
应用代码 Public Function mvfile( xVar, yVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FileExists( xVar ) Then
? Sys.MoveFile xVar, root&yVar
??? msg ="恭喜,文件移动成功!"
Else
? msg ="抱歉,文件移动失败!"
End If
Set Sys = Nothing
mvfile = msg
End Function
14、rmfile
函数格式 rmfile( FileName )
功能描述 删除一个文件并返回信息
应用代码 Public Function rmfile( xVar )
Set Sys = Server.CreateObject("Scripting.FileSystemObject")
If Sys.FileExists( xVar ) Then
? Sys.DeleteFile( xVar )
? msg ="恭喜,文件删除成功!"
Else
? msg ="抱歉,文件删除失败!"
End If
Set Sys = Nothing
rmfile = msg
End Function
以上就是FileSystem对象中常用的文件操作函数介绍,希望小编整理的相关知识和资料都对你们有所帮助,更多内容请继续关注爱站技术频道网站!
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
下一篇:sql语句的集合分享
- asp dictionary对象的用法 2020-02-18
- ASP的Error对象知识简析 2019-12-31
- 如何禁用FileSystemObject组件 2019-09-23
- fso的特殊功能 2019-08-31
- ASP 3.0高级编程(十八) 2019-06-24
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash