FSO操作文件的几个小函数(转)

转载 2006年06月06日 15:14:00

函数格式 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

相关文章推荐

ASP中最常用的22个FSO文件操作函数12-22

12.FSO返回文件夹目录空间大小Function GetFolderSize(FolderName)   ’//功能:取目录大小   ’//形参:目录名   ’//返回值:成功为目录大小,失败为-1...

【转】VBScript学习手册网址 与 文件操作(FSO)的部分实例

VBScript学习手册网址: http://www.jb51.net/shouce/vbs/vsmthDeleteFile.htm 非常实用。   文件操作(FSO)13个实例 如有不清楚...
  • sl159
  • sl159
  • 2012年07月20日 09:40
  • 502

js 文件操作 fso new ActiveXObject( "Scripting.FileSystemObject ")

方法或者属性 描述  BuildPath()   生成一个文件路径  CopyFile()  复制文件  CopyFolder()  复制目录  CreateFolder()  创建新目录  ...

VBS学习日记(八) FSO 中文件的基本操作

Vbs 脚本编程简明教程——FSO 中文件的基本操作

js 操作磁盘文件--使用fso

var filesList = new Array(); var filesIndex = 0; var fso = new ActiveXObject("Scripting.FileSys...

ASP FSO文件操作

FSO 不能操作二进制文件,要操作二进制文件,请使用:ADODB.Stream。 创建文件 dim fso, f set fso = server.CreateObject("Scri...

javascript利用FSO对XML文件操作类

// JavaScript Document /*JAVASCRIPT利用FSO对XML文件操作类 文件名:ClsReadXML.js 适用:windows系统下IE环境下适用 by adengou ...
  • adengou
  • adengou
  • 2015年11月14日 17:51
  • 248

VBScript文件操作对象FSO大全

基本运算 + 数字加法及字符串连接 - 数字减法 * 数字乘法 / 数字除法 Mod 求余数 \ 求商数 & 字符串连接 ^ 次方 = 相等 ...

ASP文件操作(FSO)详解

原文链接:http://www.cnblogs.com/xrxiaolong/articles/2186436.html 实例一:写入文件  语法  object.CreateTex...

ASP FSO文件处理函数大全

代码 Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:FSO操作文件的几个小函数(转)
举报原因:
原因补充:

(最多只允许输入30个字)