fso操作函数

转载 2011年05月02日 09:22:00

'==================================================
'
函数名:BuildFolder
'
作 用:创建文件夹
'
参 数:path ----------要创建的文件夹(路径)
'
==================================================
function BuildFolder(path)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
    fso.CreateFolder(Server.MapPath(path))
    fso.Close
   
Set fso=Nothing
End Function
'==================================================
'
函数名:Buildfile
'
作 用:创建文件
'
参 数:Htmlcode ------要创建的文件信息
'
参 数:filex ----------要创建的文件名(路径)
'
==================================================
function Buildfile(filex,Htmlcode)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
   
Set html = fso.CreateTextFile(Server.MapPath(filex))
        html.WriteLine Htmlcode
        html.close
   
Set html=Nothing
    fso.Close
   
Set fso=Nothing
End Function
'==================================================
'
函数名:Savefile
'
作 用:修改文件
'
参 数:file_body ------要创建的文件信息
'
参 数:file_name ------要创建的文件名(路径)
'
参 数:Cset -----------定义要创建的文件编码
'
==================================================
Function Savefile(file_body,file_name,Cset)
Set OS=Server.CreateObject("ADODB.Stream")
        OS.Type
=2
        OS.Open
        OS.Charset
= Cset
        OS.Position
=OS.Size
        OS.WriteText
=file_body
        OS.SaveToFile Server.MapPath(file_name),
2
        OS.Close
Set OS=Nothing
End Function

'==================================================
'
函数名:DelFolder
'
作 用:删除文件夹
'
参 数:FolderPath ------要删除的文件夹路径
'
==================================================
Function DelFolder(FolderPath)
   
dim path
    path
=FolderPath
   
Set fso = Server.CreateObject("Scripting.FileSystemObject")
   
Set DeleteFolder = FSO.GetFolder(Server.MapPath(path))
    DeleteFolder.Delete
    fso.Close
   
Set fso=Nothing
    Response.Write(
"<script language=""Javascript"">alert(""文件夹已删除"");history.go(-1);</script>")
End Function
'==================================================
'
函数名:ChkFile
'
作 用:检索文件是否存在
'
参 数:FilePath ------要检索的文件路径
'
==================================================
Function ChkFile(FilePath)
   
dim path
    path
=Server.MapPath(FilePath)
   
Set fso=Server.CreateObject("Scripting.FileSystemObject")
   
If fso.FileExists(path) then
       ChkFile
="OK!"
   
Else
       ChkFile
="文件不存在"
   
End IF
    fso.Close
   
Set fso=Nothing
End Function

'==================================================
'
函数名:DelFile
'
作 用:删除文件
'
参 数:FilePath ------要删除的文件的路径
'
==================================================
Function DelFile(FilePath)
dim path
    path
=Server.MapPath(FilePath)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
   
'用两种方法删除文件
    fso.DeleteFile(path)'第一种方法
    Set File= FSO.GetFile(path)'第二种方法
        File.Delete
    fso.Close
   
Set fso=Nothing
End Function

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

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

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

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

用FSO删除文件夹

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

经典FSO操作函数

FSO_Name = "Scrip"+"ting"+"."+"File"+"System"+"Object"**********************************************...
  • hsxiaoma
  • hsxiaoma
  • 2009年09月09日 09:42
  • 181

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

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

Asp用FSO读写文件

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

磁盘操作

 查看几块硬盘 Lsblk cd /mnt mkdir sda 挂载硬盘mount /dev/sda /mnt/sda  mount -a挂载全部  du -smh *|grep...
  • mirabelle521
  • mirabelle521
  • 2017年05月04日 13:14
  • 91

FSO 遍历文件夹和文件

如题(纯粹自己看自己用)
  • z_wenqian
  • z_wenqian
  • 2011年04月28日 10:32
  • 883

如何用fso重命名文件夹

fso.MoveFolder "c:/temp", "c:/tempOK" 
  • try530
  • try530
  • 2006年10月21日 23:44
  • 757

fso 对象不能创建

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

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