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

函数格式

root()

功能描述

返回一个路径串变量

应用代码

'sample string = c:\intels\jingcaichunfeng\'
Public Function root()
 root = Request.ServerVariables("Appl_Physical_Path")
End Function

函数格式

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

函数格式

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

函数格式

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

函数格式

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

函数格式

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