- 浏览: 119672 次
- 性别:
- 来自: 厦门
文章分类
最新评论
-
iceaugust:
可惜,tomcat6.0就不行了,文件是建了,不管是改star ...
windows下如何获取Tomcat的控制台输出(转) -
jia5286112:
好 解决问题了
windows下如何获取Tomcat的控制台输出(转) -
zldy2818:
写main方法没问题,如果是页面访问的话好像就不行了,貌似只适 ...
java实现ftp上传,下载功能(zhuan) -
qiyangyang09:
Myeclipse8.5GA+Flex4.0+tommcat6 ...
Flex4系列教程之三 – 中间件BlazeDS(转)
'============================================================= '作者:枫叶随风 'QQ:455948725 'E-mail:liukun615@126.com 'WebSite:http://www.fengyekun.com '============================================================= class FsoClass private Fso,SourcePath,DestinationPath,FsoFile,FileType private sub Class_Initialize() set Fso=server.CreateObject("Scripting.FileSystemObject") FileType="inc|txt|text|htm|html|shtm|shtml|xhtml|xml|css|js|asp|asa|php|jsp|dwt" end sub private sub Class_Terminate() set Fso=nothing end sub private sub ErrorInfo(ErrorNum) select case ErrorNum case 1:Str="FsoClass类错误:没有指定Source参数!" case 2:Str="FsoClass类错误:没有指定Destination参数!" case 3:Str="FsoClass类错误:执行文件操作时不支持此文件扩展名!" case 4:Str="FsoClass类错误:执行文件操作时找不到指定文件!" case 5:Str="FsoClass类错误:执行文件操作时找不到指定文件夹!" end select response.write "<script language=""JavaScript"">alert("""&Str&""")</script>" response.End() end sub public property get Source Source=SourcePath end property public property let Source(FilePath) SourcePath=FilePath end property public property get Destination Destination=DestinationPath end property public property let Destination(FilePath) DestinationPath=FilePath end property '获取文件路径 public property get Path if Destination<>"" then Path=left(Destination,instrRev(Destination,"/")) end if end property '获取文件名称 public property get Name if Destination<>"" then Name=mid(Destination,instrRev(Destination,"/")+1) end if end property '获取文件扩展名 public property get ExtensionName if Destination<>"" then ExtensionName=mid(Destination,instrRev(Destination,".")+1) end if end property '获取文件或文件夹的父文件夹包含文件夹名称的路径 public property get ParentFolderPath if Destination<>"" then ParentFolderPath=Fso.GetParentFolderName(server.MapPath(Destination)) end if end property '获取文件或文件夹的父文件夹名称 public property get ParentFolderName if Destination<>"" then dim TempName TempName=Fso.GetParentFolderName(server.MapPath(Destination)) ParentFolderName=mid(TempName,instrRev(TempName,"\")+1) end if end property '获取文件大小 public property get Size if Destination<>"" then if FileExist(Destination) then set FsoFile=Fso.GetFile(server.MapPath(Destination)) Size=round(FsoFile.size/1024) end if end if end property '创建时间 public property get DateCreated if Destination<>"" then if FileExist(Destination) then set FsoFile=Fso.GetFile(server.MapPath(Destination)) DateCreated=FsoFile.DateCreated end if end if end property '上次修改时间 public property get DateLastModified if Destination<>"" then if FileExist(Destination) then set FsoFile=Fso.GetFile(server.MapPath(Destination)) DateLastModified=FsoFile.DateLastModified end if end if end property '上次访问时间 public property get DateLastAccessed if Destination<>"" then if FileExist(Destination) then set FsoFile=Fso.GetFile(server.MapPath(Destination)) DateLastAccessed=FsoFile.DateLastAccessed end if end if end property '检测文件是否存在(仅在类内部使用) private function FileExist(FilePath) FileExist=Fso.FileExists(server.MapPath(FilePath)) end function '检测文件夹是否存在(仅在类内部使用) private function FolderExist(FilePath) FolderExist=Fso.FolderExists(server.MapPath(FilePath)) end function '检测文件是否存在 public function FileExists() if Destination="" then Call ErrorInfo(2) FileExists=Fso.FileExists(server.MapPath(Destination)) end function '检测文件夹是否存在 public function FolderExists() if Destination="" then Call ErrorInfo(2) FolderExists=Fso.FolderExists(server.MapPath(Destination)) end function '复制文件 public function CopyFile() if Source="" then Call ErrorInfo(1) if Destination="" then Call ErrorInfo(2) if FileExist(Source)=false then Call ErrorInfo(4) if FolderExist(Path)=false then Call ErrorInfo(5) Fso.CopyFile server.MapPath(Source),server.MapPath(Destination) end function '复制文件夹 //当原文件夹为空文件夹时,此操作无效 public function CopyFolder() if Source="" then Call ErrorInfo(1) if Destination="" then Call ErrorInfo(2) if FolderExist(Source)=false then Call ErrorInfo(4) if FolderExist(Path)=false then Call ErrorInfo(5) Fso.CopyFolder server.MapPath(Source),server.MapPath(Destination) end function '删除文件 public function DeleteFile() if Destination="" then Call ErrorInfo(2) if FileExist(Destination) then Fso.DeleteFile server.MapPath(Destination) end if end function '删除文件夹 public function DeleteFolder() if Destination="" then Call ErrorInfo(2) if FolderExist(Destination) then Fso.DeleteFolder server.MapPath(Destination) end if end function '移动文件 public function MoveFile() if Source="" then Call ErrorInfo(1) if Destination="" then Call ErrorInfo(2) if FileExist(Source)=false then Call ErrorInfo(4) if FolderExist(Path)=false then Call ErrorInfo(5) if FileExist(Destination) then Call DeleteFile() Fso.MoveFile server.MapPath(Source),server.MapPath(Destination) end function '移动文件夹 public function MoveFolder() if Source="" then Call ErrorInfo(1) if Destination="" then Call ErrorInfo(2) if FolderExist(Source)=false then Call ErrorInfo(4) if FolderExist(Path)=false then Call ErrorInfo(5) if FolderExist(Destination) then Call DeleteFolder() Fso.MoveFolder server.MapPath(Source),server.MapPath(Destination) end function '创建文件夹 public function CreateFolder() if Destination="" then Call ErrorInfo(2) Fso.CreateFolder(server.MapPath(Destination)) end function '读取文件内容 public function ReadFile() if Destination="" then Call ErrorInfo(2) if FileExist(Destination)=false then Call ErrorInfo(4) set FsoFile=Fso.OpenTextFile(server.MapPath(Destination)) ReadFile=FsoFile.readall FsoFile.close end function '创建文件 public function CreateFile(Content) if Destination="" then Call ErrorInfo(2) if instr(FileType,ExtensionName)=0 then Call ErrorInfo(3) if FileExist(Path)=false then Call ErrorInfo(5) set FsoFile=Fso.CreateTextFile(server.MapPath(Destination),true) FsoFile.write(Content) FsoFile.close end function '修改文件内容 public function ModifyFile(Content) if Destination="" then Call ErrorInfo(2) if instr(FileType,ExtensionName)=0 then Call ErrorInfo(3) if FileExist(Destination)=false then Call ErrorInfo(4) set FsoFile=Fso.OpenTextFile(server.MapPath(Destination),2,true) FsoFile.write(Content) FsoFile.close end function '在文件内容末尾追加内容 public function WriteFile(Content) if Destination="" then Call ErrorInfo(2) if instr(FileType,ExtensionName)=0 then Call ErrorInfo(3) if FileExist(Destination)=false then Call ErrorInfo(4) set FsoFile=Fso.OpenTextFile(server.MapPath(Destination),8,true) FsoFile.write(Content) FsoFile.close end function '更改文件名称和扩展名 public function ChangeFileName(FileName) if Destination="" then Call ErrorInfo(2) if FileExist(Destination)=false then Call ErrorInfo(4) dim t_Path t_Path=Destination Destination=Path&FileName Source=t_Path Call MoveFile() end function '更改文件夹名称 public function ChangeFolderName(FolderName) if Destination="" then Call ErrorInfo(2) if FolderExist(Destination)=false then Call ErrorInfo(4) dim t_Path t_Path=Destination Destination=Path&FolderName Source=t_Path Call MoveFolder() end function end class
属性:
文件原路径 Source
文件目标路径 Destination
文件路径 Path
文件名称 Name
文件大小(以KB为单位) Size
文件扩展名 ExtensionName
父文件名称 ParentFolderName
父文件路径 ParentFolderPath
文件创建时间 DateCreated
上次访问时间 DateLastAccessed
上次修改时间 DateLastModified
方法:
检测文件是否存在 FileExists()
检测文件夹是否存在 FolderExists()
复制文件 CopyFile()
复制文件夹 CopyFolder()
删除文件 DeleteFile()
删除文件夹 DeleteFolder()
移动文件 MoveFile()
移动文件夹 MoveFolder()
创建文件 CreateFile(Content)
创建文件夹 CreateFolder()
修改文件 ModifyFile(Content)
读取文件 ReadFile()
写入内容(以追加方式) WriteFile(Content)
更改文件名称 ChangeFileName(FileName)
更改文件夹名称 ChangeFolderName(FolderName)
实例:检测文件是否存在 dim Fso set Fso=new FsoClass Fso.Destination="/Temp/Temp.txt" if Fso.FileExists() then response.write "文件存在!" else response.write "文件不存在!" end if set Fso=nothing 实例:检测文件夹是否存在 dim Fso set Fso=new FsoClass Fso.Destination="/Temp/Temp" if Fso.FolderExists() then response.write "文件夹存在!" else response.write "文件夹不存在!" end if set Fso=nothing 实例:复制文件 dim Fso set Fso=new FsoClass Fso.Source="1.txt" Fso.Destination="2.txt" Fso.CopyFile() set Fso=nothing 实例:复制文件夹(如果原文件夹为空,则此操作无效) dim Fso set Fso=new FsoClass Fso.Source="/Temp" Fso.Destination="/1/" Fso.CopyFolder() set Fso=nothing 实例:删除文件 dim Fso set Fso=new FsoClass Fso.Destination="/Temp/Temp.txt" Fso.DeleteFile() set Fso=nothing 实例:删除文件夹 dim Fso set Fso=new FsoClass Fso.Destination="/Temp" Fso.DeleteFolder() set Fso=nothing 实例:移动文件 dim Fso set Fso=new FsoClass Fso.Source="/Temp1/a.txt" Fso.Destination="/Temp2/b.txt" Fso.MoveFile() set Fso=nothing 实例:移动文件夹 dim Fso set Fso=new FsoClass Fso.Source="/Temp1/a" Fso.Destination="/Temp2/b" Fso.MoveFolder() set Fso=nothing 实例:创建文件夹 dim Fso set Fso=new FsoClass Fso.Destination="/Temp/1" Fso.CreateFolder() set Fso=nothing 实例:创建文件 dim Fso,Content Content="aaa" set Fso=new FsoClass Fso.Destination="/Temp/1.txt" Fso.CreateFile(Content) set Fso=nothing 实例:读取文件内容 dim Fso,Content set Fso=new FsoClass Fso.Destination="/Temp/1.txt" Content=Fso.ReadFile() set Fso=nothing response.write Content 实例:修改文件内容 dim Fso,Content Content="aaa" set Fso=new FsoClass Fso.Destination="/Temp/1.txt" Fso.ModifyFile(Content) set Fso=nothing 实例:写入内容(以追加方式) dim Fso,Content Content="aaa" set Fso=new FsoClass Fso.Destination="/Temp/1.txt" Fso.WriteFile(Content) set Fso=nothing 实例:更改文件名称 dim Fso set Fso=new FsoClass Fso.Destination="/Temp/a.txt" Fso.ChangeFileName("b.txt") set Fso=nothing 实例:更改文件夹名称 dim Fso set Fso=new FsoClass Fso.Destination="/Temp/a" Fso.ChangeFolderName("b") set Fso=nothing
发表评论
-
asp url编码问题
2013-07-29 17:32 943Function param(name) Respon ... -
win7 iis 下支持asp+access (转)
2013-07-06 10:47 1171安装方法3:(图文) 需要有win7的安装盘,目前GHOST版 ... -
国内5个轻量级CMS网站内容管理系统介绍
2010-06-11 12:59 1317JTBC JTBC是一款CMS(网站内容管理系统),是相对更 ... -
jmail问题结合集合(转)
2010-05-31 17:09 12131、JMAIL的版本是多少 ... -
[ASP] asp日期函数大全(转)
2010-05-05 16:27 32411. Now 传回系统的日期及 ...
相关推荐
VBS_文件操作对象FSO大全
FSO javascript文件操作大全 FSO javascript文件操作大全
很不错的程序,虽然只有一个文件,但功能却不少,主要功能有管理员登录,空间文件列表,文件重命名,查看源代码,上传文件,新建文件及文件夹等,这些都是很...把这个文件研究透了,估计ASP中的FSO操作也学得差不多了。
这是一个利用FSO集合对象编写的FSO文件浏览器(如果你非要说它是木马,我也不反对),在功能上仿照了“海洋顶端木马”设计,不过代码完全是重写的,没有使用如Shell.Application等容易造成杀毒软件误杀的组件。...
asp文件操作类,主要包括对文件类的读写
asp与fso开发案例,fso对象,rar解压缩,excel文件操作,文件完整性检验,文件上传
编写带缓存的文件操作类 从执行体程序库中的CLLogger类可知,通过缓存要写入文件中的数据,能够提高读写磁盘的性能 请编写一个文件操作的封装类,其要求如下: 需要提供open/read/write/lseek/close等函数的封装函数...
Asp.Net对文件操作的类,创建,删除,移动等。拿过就可以用。
内容索引:ASP源码,文件管理,文件管理,文件上传,FSO操作 很不错的程序,虽然只有一个文件,但功能却不少,主要功能有管理员登录,空间文件列表,文件重命名,查看源代码,上传文件,新建文件及文件夹等,这些都是很...
Fso类实现代码,学习asp类的朋友可以参考下。这个代码比较老了。
利用文件对象模型FSO操作文件.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载利用文件对象模型FSO操作文件.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载利用文件对象模型FSO操作文件.zip源码EXCEL VBA宏编程...
利用文件对象模型FSO操作文本文件.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载利用文件对象模型FSO操作文本文件.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载利用文件对象模型FSO操作文本文件.zip源码...
VB中对文件的操作用引用FSO是一个比较简单方便的方法,这个例子中包含了常用的对文件夹和文件的操作例子.
使用FSO实现对服务器上的文件系统进行管理. Ver 1.0 功能列表 1.浏览文件系统 2.删除文件及目录 3.下载文件 因为代码是开放式的,大家可以在现有版本上做一定的修改,达到操作服务器上的文件系统. 声明:请...
asp源码针对网站中的文件操作类,对文件,文件夹的,创建,写入,读取,删除,复制,获取大小等操作。
asp编程中对文件操作需要用到的FSO,可以对文件进行读取、写入、打开、关闭等操作。
利用文件对象模型FSO操作文件夹.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载利用文件对象模型FSO操作文件夹.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载利用文件对象模型FSO操作文件夹.zip源码EXCEL VBA...
利用文件对象模型FSO操作驱动器.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载利用文件对象模型FSO操作驱动器.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载利用文件对象模型FSO操作驱动器.zip源码EXCEL VBA...
FSO操作大全FSO操作大全FSO操作大全
c#创建目录和文件,FSO实例,命令窗口如上所示。 c#创建目录和文件,FSO实例,命令窗口如上所示。