极乐门资源网 Design By www.ioogu.com
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
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
极乐门资源网 Design By www.ioogu.com
极乐门资源网
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
极乐门资源网 Design By www.ioogu.com
暂无FileSystem对象常用的文件操作函数有哪些?的评论...
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新日志
2024年12月24日
2024年12月24日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]