如何付款 | 地理位置 | 帮助中心
 
 
 
FileSystem对象常用的文件操作函数
巧创网络  发表时间 2005-11-2
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

 

-->更多相关新闻
版权所有©2005 上海巧创网络技术有限公司 沪 ICP 备 05001802 号
网络实名: 上海网站建设上海网络公司上海仓存管理软件 电话: 021-50757260 50769776 50758883 传真: 50757260-14
地址:上海市浦东枣庄路 683 号(金杨经济服务中心) 6 楼 邮编 :201206 E-mail:webmaster@soeasy.cn