FileSystem对象常用的文件操作函数有哪些?

2016-02-19 12:30 1 1 收藏

下面是个超简单的FileSystem对象常用的文件操作函数有哪些?教程,图老师小编精心挑选推荐,大家行行好,多给几个赞吧,小编吐血跪求~

【 tulaoshi.com - Web开发 】

FileSystem对象常用的文件操作函数有哪些?
1、root
函数格式 root()
功能描述 返回一个路径串变量
应用代码 'sample string = c:intelsjingcaichunfeng'
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

来源:http://www.tulaoshi.com/n/20160219/1601047.html

延伸阅读
标签: Web开发
========取得带端口的URL,推荐使用================  Function Get_ScriptNameUrl()  If request.servervariables("SERVER_PORT")="80" Then  Get_ScriptNameUrl="http://" & request.servervariables("server_name")&lcase(request.servervariables("script_name"))  Else  Get_Scrip...
标签: ASP
//函数名:chkemail //功能介绍:检查是否为Email Address //参数说明:要检查的字符串 //返回值:0:不是 1:是 function chkemail(a) { var i=a.length; var temp = a.indexOf('@'); var tempd = a.indexOf('.'); if (temp 1) { if ((i-temp) 3){ if ((i-tempd)0){ return 1; } } } return 0; } //函数名:fucCheckNUM //功能介绍:检查...
翻译的不好,请见谅。 翻译:鲁小班 文件: ActnList CreateAction 函数 创建一个指定类型的Action,显示在action list editor中。 EnumRegisteredAction 过程 枚举已经注册的Action RegisterAction 过程 注册Action UnRegisterAction 过程 反注册Action 文件: Classes Bounds 函数 输入上下高宽...
标签: Web开发
/****************************************** *JXTree对象,读取外部xml文件数据,生成树 *@author brull *@email brull@163.com *@date 2007-03-27 *******************************************/ /*  *@param xmlURL XML文件的地址  */ var JXTree = function(xmlURL) { &nbs...
标签: Web开发
在JavaScript中对于对象属性与方法的引用,有两种情况:其一是说该对象是静态对象,即在引用该对象的属性或方法时不需要为它创建实例;而另一种对象则在引用它的对象或方法是必须为它创建一个实例,即该对象是动态对象。对JavaScript内部对象的引用,以是紧紧围绕着它的属性与方法进行的。因而明确对象的静动性对于掌握和理解JavaScript内...

经验教程

286

收藏

88
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部