常用的fso操作通用函数

fso|函数

以下是几则在ASP中经常应用到FSO操作函数,实用精典,推荐收藏!

<%
'功能:判断文件名是否合法
'isFileName [filename]
'文件名不能包含下列任何字符之一
' \ / : * ? " < > |
Function isFileName(sFileName)
Dim sErrorStr, i
isFileName = TRUE
sErrorStr = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
If Len(sFileName & "") = 0 Then isFileName = FALSE : Exit Function
For i = 0 To 8
If InStr(sFileName, sErrorStr(i)) > 0 Then
isFileName = FALSE
End If
Next
End Function
%>



<%
'功能:删除一个目录。除目录本身外,还将删除指定目录下的所有子目录和文件。用于删除目录树。
'RD [Drive:]Path
'支持删除多级目录,支持相对路径和绝对路径。
'支持用“...”指定父目录的父目录。
''需要PATH函数在下面
Function RD(ByVal sPath)
On Error Resume Next
Dim oFSO
sPath = Path(sPath) '//此处需要PATH函数
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
If oFSO.FolderExists(sPath) Then
oFSO.DeleteFolder sPath, True
RD = True
End If
Set oFSO = Nothing
If Err.Number > 0 Then
Err.Clear()
RD = False
Else
RD = True
End If
End Function
%>



<%
'功能:创建目录。
'MD [Drive:]Path
'支持创建多级目录,支持相对路径和绝对路径。
'支持用“...”指定父目录的父目录。

'需要PATH函数在下面

Function MD(sPath)
On Error Resume Next
Dim aPath, iPath, i, sTmpPath
Dim oFSO
sPath = Path(sPath) '//此处需要PATH函数
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
If oFSO.FolderExists(sPath) Then MD = True : Exit Function
aPath = Split(sPath, "\")
iPath = UBound(aPath)
sTmpPath = ""
For i = 0 To iPath
sTmpPath = sTmpPath & aPath(i) & "\"
If Not oFSO.FolderExists(sTmpPath) Then
oFSO.CreateFolder(sTmpPath)
End If
Next
Set oFSO = Nothing
If Err.Number > 0 Then
Err.Clear()
MD = False
Else
MD = True
End If
End Function
%>



<%
'功能:计算目录绝对路径。
'PATH [Drive:]Path
'支持多级目录,支持相对路径和绝对路径。
'支持用“...”指定父目录的父目录。

Function Path(ByVal sPath)
On Error Resume Next
If Len(sPath&"") = 0 Then sPath = "./"
If Right(sPath, 1) = ":" Then sPath = sPath & "\"
sPath = Replace(sPath, "/", "\")
sPath = ReplaceAll(sPath, "\\", "\", False)
sPath = ReplaceAll(sPath, "...", "..\..", False)
If (InStr(sPath, ":") > 0) Then
sPath = sPath
Else
sPath = Server.Mappath(sPath)
End If
Path = sPath
End Function
%>


<%
'功能:判断文件是否已存在。
'IsFileExist(文件名)

Public Function IsFileExist(ByVal sFileName)
On Error Resume Next
Dim oFSO
sFileName = PATH(sFileName)
Set oFSO = CreateObject("Scripting.FileSystemObject")
IsFileExist = oFSO.FileExists(sFileName)
Set oFSO = Nothing
End Function
%>


<%
'功能:判断文件夹是否已存在。
'IsFolderExist(文件名)

Public Function IsFolderExist(ByVal sFolderName)
On Error Resume Next
Dim oFSO
sFolderName = PATH(sFolderName)
Set oFSO = CreateObject("Scripting.FileSystemObject")
IsFolderExist = oFSO.FolderExists(sFolderName)
Set oFSO = Nothing
End Function
%>



<%
'功能:创建十进制文本文件。
'CreateTextFile(文件内容,文件名)
'文件名支持相对路径和绝对路径。
'支持用“...”指定父目录的父目录。

Function CreateTextFile (ByVal sText, ByVal sFileName)
On Error Resume Next
sFileName = Path(sFileName)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWrite = oFSO.OpenTextFile(sFileName, 2, True)
oWrite.Write sText
oWrite.Close
Set oFSO = Nothing
Set oWrite = Nothing
If Err.Number > 0 Then
Err.Clear()
CreateTextFile = False
Else
CreateTextFile = True
End If
End Function
%>

时间: 2024-10-27 21:42:37

常用的fso操作通用函数的相关文章

用FSO操作xml

fso|xml 试了一下,xmlDoc.save()行不同,就试着用fso做了出来.整理一下,供大家discuss. 由于用js操作本地xml文件之后save时会permission denied,所以据我所知就只能通过FSO来做.而用FSO,基本上就与文件是否是xml无关. xml文件: <root>  <parent>    <child1>one</child1>    <child2>one</child2>  </pa

交互设计分析:触屏设备中常用的手势操作

文章描述:移动交互小白的学习笔记--手势篇. 此贴为零基础入门学习贴,总结和积累些基础知识~ 1.基本手势 触屏设备中多样的手势操作,都是由这10种基本手势组合演变而来. 2.常用动作 基本动作是触屏界面中最常用的动作,如打开.选择等. 与对象有关的动作是对屏幕上某一目标对象的操作,如调整图片的位置大小,选择.删除或移动一个文件等. 导览动作是对屏幕视图的操作,如切换屏幕.滚动屏幕.缩放网页等. 画图示意动作是用画图的方式来示意某些操作,这些图形最好是常见易画的图形,符合用户心理预期,如画勾表示

MySQL中几个常用的数据库操作函数

  一些常用的MYSQL操作函数,与MYSQL操作紧密相关,相信对PHP开发的初级爱好者会有很大帮助. 1.mysql_connect--打开一个到MySQL服务器的链接 说明:该链接在页面执行完成后被关闭. 示例: $link = mysql_connect("localhost","root","") or die("Could not connect:".mysql_error()); 2.mysql_close--关闭

常用的MySQL操作维护命令

  常用的MySQL操作维护命令 1.更改口令: mysqladmin -u root -p password 新的口令 再输入老的口令 2.导出整个数据库: mysqldump -u 用户名 -p 数据库名 > 导出的文件名 3.导入数据库: 进入mysql数据库控制台, 如mysql -u root -p mysql>use 数据库名 mysql>source d:test.sql 4.修复数据库: a.修复单个库: mysqlcheck -r -o -u root 数据库名 -p

PHP常用处理静态操作类

 详细一个PHP开发时常用处理的操作类 - 希望大家多多补充 - 完善这个操作类   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72

让你提前认识软件开发(18):C语言中常用的文件操作函数总结及使用方法演示代码

第1部分 重新认识C语言 C语言中常用的文件操作函数总结及使用方法演示代码           在C语言中,有关文件操作的函数多达数十种,但并非每个函数都经常会被用到.        本文对实际软件开发项目中常用的C文件操作函数的用法进行了总结,并用实际的C代码来演示了它们的用法.   1. C语言中常用的文件操作函数总结 (1) fopen 作用:打开文件. 表头文件:#include <stdio.h> 定义函数:FILE *fopen(const char *path, const ch

说说常用的服务器操作

想写写自己日常常用的服务器操作,但是想到这个题目还是有点大的.鸟哥两本linux私房菜的书才说完了所有的服务器操作命令,这里一次性列出来也不现实.差不多这里就写写一些比较常用的命令吧.   ps aux|grep XXX 这个是最常用的命令了,查看一个进程的状态啥的.还能看到端口号,运行时间等.如果需要批量关掉这些进程,也可以延生使用管道: ps aux|grep XXX|awk '{print $2}'|xargs kill   netstat -anp|grep XXX 记得老王微博上有问过

sqlserver常用命令行操作(启动、停止、暂停)_MsSql

启动sql server Net Start MSSqlServer 暂停sql server Net Pause MSSqlServer 重新启动暂停的sql server Net Continue MSSqlServer 停止sql server Net stop MSSqlServer 命令行方式修改sql server sa 的密码 一直都是使用企业管理器操作sql的,昨天帮一朋友部署网站,租的国外vps主机,登陆上去只看到sql的图标正常运行的,企业管理器和查询分析器的影都没看到,汗一

PHP常用处理静态操作类_php实例

详细一个PHP开发时常用处理的操作类 - 希望大家多多补充 - 完善这个操作类 <?php /** * 常用静态类,这里主要整理了一些PHP常常会用到的方法. * * @author ZCStrong - youkuiyuan */ class C { /* * 私有处理随机数的内置参数 * array 随机数数组/param 随机数长度 * 返回一个随机数 */ static private function Random($array , $param) { $randArray = $ar