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

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")