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

相关文章推荐

mysql 之 row_number() over ()

SET @rn=0; SET @last_deptno=0; SELECT deptno, empno, ename, sal, IF(@las...

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

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

VB文件操作对象FSO大全

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

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

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...

VBS学习日记(六) FSO相关操作

Vbs 脚本编程简明教程之FSO 的常见对象和方法

ASP FSO文件操作

FSO 不能操作二进制文件,要操作二进制文件,请使用:ADODB.Stream。 创建文件 dim fso, f set fso = server.CreateObject("Scri...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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