写了个垃圾的 fso操作类（不知道能不能叫做类） 大家帮我完善一下吧
<p ><strong>125989100</strong> 发表于 2009-9-16 15:04</p>
<h3>写了个垃圾的 fso操作类（不知道能不能叫做类） 大家帮我完善一下吧</h3><%
option explicit
class myfso
private path'路径
private filecontent '写入内容
public property let mypath(p)
path=p
end property
public property let myfilecontent(p)
filecontent=p
end property
'判断文件是否存在
public function isfile
dim fso
isfile=false
set fso = createobject("scripting.filesystemobject")
if (fso.fileexists(path)) then isfile=true
set fso=nothing
end function
'判断文件夹是否存在
public function isfolder
dim fso
isfolder=false
set fso = createobject("scripting.filesystemobject")
if (fso.folderexists(path)) then isfolder=true
set fso=nothing
end function
'创建文件并写入
public function createfile
dim fso, myfile
set fso = createobject("scripting.filesystemobject")
set myfile = fso.createtextfile(path,true)
myfile.writeline(filecontent)
myfile.close
set myfile=nothing
set fso=nothing
end function
'创建文件夹
public Function CreateFolder
Dim fso
Set fso = createobject("scripting.filesystemobject")
if not isfolder then fso.CreateFolder(path)
Set fso=nothing
end function
'删除文件
public Function DeleteFile
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(path)
Set fso=nothing
End Function
'删除文件夹
public Function DeleteFolder
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(path)
Set fso=nothing
End Function
end class
dim fso
set fso= new myfso
fso.mypath=server.MapPath("aaa")
if fso.isfolder then
fso.DeleteFolder
end if
%>
不知道能不能叫做类 只是对函数的封装了 高手给下意见
每个方法里都要 Set fso = CreateObject("Scripting.FileSystemObject")
有没有什么方便的方法
用property set 但是没成功<p ><strong>帅青蛙</strong> 发表于 2009-9-16 15:29</p>
定义一个全局的FSO对象，然后在Class_Initialize方法中赋值，这样**方法中直接就可以使用了。
Class MyClass
private fso
private Sub Class_Initialize
set fso = CreateObject("Scripting.FileSystemObject")
End Sub
public Function IsFolderExists(path)
IsFolderExists = fso.FolderExists(path)
End Function
End Class
<p ><strong>125989100</strong> 发表于 2009-9-16 15:44</p>
谢谢~我发现property let 和 定义共有变量差不多 只不过property let里能做判断 对不对？<p ><strong>125989100</strong> 发表于 2009-9-16 16:32</p>
我想返回一个对象应该怎么写?？比如说返回个rs（recordset）对象
用property set ？？
怎么写 我 试了很久都没成功<p ><strong>帅青蛙</strong> 发表于 2009-9-16 16:49</p>
SET/LET印象中是一样的。
至于你要返回一个对象，直接定义Function就可以了，有什么问题？<p ><strong>125989100</strong> 发表于 2009-9-16 17:01</p>
class a
function murs
set rs=conn.execute("select * from ")
murs=rs
end function
end class
用的时候
set b= new a
set rs=b.murs
这样对吗 ？？<p ><strong>帅青蛙</strong> 发表于 2009-9-16 17:03</p>
function getrs
set getrs = conn.execute(.....)
end function
<p ><strong>125989100</strong> 发表于 2009-9-16 17:19</p>
受教~~~~~~~~~ 谢谢，收获很多
正版天缘网络营销软件，请到天缘软件网,客服qq262003940 谢谢楼主啊，受益匪浅啊！
static/image/common/sigline.gif
最近写了一个CMS内容管理系统，用起来还行]?
简单方便，全部静态生成。SEO优化建站。非常实用。?
只适合企业建站，新闻 发布系统，产品管理系统，不是购物车，如成功案例，产品参数介绍等?
公司简介，联系我们，在线留言系统，友情链接系统，等。?
?
QQ 370886621 建站，SEO
用了后排名靠前了许多。长沙网站推广 排到了首页。
页:
[1]