您的位置:首页精文荟萃软件资讯 → FileSystem对象常用的文件操作函数

FileSystem对象常用的文件操作函数

时间:2004/10/7 18:24:00来源:本站整理作者:蓝点我要评论(0)

 

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

 

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3

最新文章 微信3.6.0测试版更新了微信支付漏洞会造成哪 360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本