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


申明：本教程内容由威凡网编辑整理并提供IT程序员分享学习，如文中有侵权行为，请与站长联系(QQ:254677821)！