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

Javascript操作文件(FSO)

FileSystemObject (FSO) 对象模式,允许对大量的属性、方法和事件,使用较熟悉的 object.method 语法,来处理文件夹和文件。使用这个基于对象的工具和: HTML ...
  • xqdd
  • xqdd
  • 2007年06月12日 12:23
  • 2511

一些常用的vb函数/过程[操作FSO方面]

此函数从字符串中分离出路径Public Function ParsePath(sPathIn As String) As StringDim i As IntegerFor i = Len(sPath...
  • peterb
  • peterb
  • 2006年01月12日 20:28
  • 1142

fso应用中的几个小函数

  • piperzero
  • piperzero
  • 2008年12月09日 11:46
  • 805

[转]介绍几个操作文件的API函数

介绍几个操作文件的API函数 在VC中,大多数情况对文件的操作都使用系统提供的 API 函数,但有的函数我们不是很熟悉,以下提供一些文件操作 API 函数介绍: 一般文件操作 APICreateFil...
  • songtitan
  • songtitan
  • 2004年11月01日 18:20
  • 733

javascript操作文件__FSO

Javascript是网页制作中离不开的脚本语言,依靠它,一个网页的内容才生动活泼、富有朝气。但也许你还没有发现并应用它的一些更高级的功能吧?比如,对文...
  • baobao8505
  • baobao8505
  • 2006年05月16日 11:55
  • 2138

用FSO删除文件夹

删除文件夹dim fso=server.createobject("script.fileSystemObject")if fso.folderexists(Server.MapPath(filena...
  • Adot84
  • Adot84
  • 2005年05月27日 11:28
  • 1022

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

一、文件属性:在windows中,文件的属性一般用数字来表示:0代表normal,即普通文件未设置任何属性。   1代表只读文件。2代表隐藏文件。   4代表系统文件。   16代表文件夹或目录。32...
  • jinghaianlange
  • jinghaianlange
  • 2007年07月16日 16:22
  • 1566

ASP中FSO的神奇功能--权限许可

上面讨论了基本知识,然后说说权限许可的问题。FSO以创建它的用户帐户权限运行,换言之,如果有人从Internet上访问你的页面,那么这个internet帐户就创建FSO。如果以administrato...
  • hejinde
  • hejinde
  • 2014年09月25日 19:23
  • 747

Asp用FSO读写文件

function FSOFileRead(filename)   Dim objFSO,objCountFile,FiletempData   Set objFSO = Server.CreateOb...
  • yuelenglingxi
  • yuelenglingxi
  • 2011年06月06日 17:04
  • 2843

fso 对象不能创建

服务器缺少了FSO,网站就不能正常上传文件,本来为了网站安全,就把FSO删除了,但后来引发了很多后遗症,那么,如何还原呢?1、首先在系统盘中查找scrrun.dll,如果存在这个文件,请跳到第三步,如...
  • jgwei
  • jgwei
  • 2011年01月28日 11:01
  • 736
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:FSO操作文件的几个小函数(转)
举报原因:
原因补充:

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