asp统计文件夹所有文件总行数

稿件来源: 太阳光网页设计   撰稿作者: 太阳光   发表日期: 2009-06-30   阅读次数: 548   查看权限: 游客查看

asp统计文件夹所有文件总行数

一同事做好一个站点,学院要求他报工作量,而且是以代码行数为判断,于是问我有什么方法统文件夹内所有网页程序行数,并且要指定统计的文件类型.

我立刻想到ASP统计:

<%
On Error Resume Next
server.ScriptTimeout = 900

dim DimFileExt,tjPath,Path,SumFolders
Dim FSO,CountFile,FileRead,TextFile
DimFileExt = "asp,jsp" '要统计的文件类型
Path = "D:/FeitecCMS Free_V3.0/0" '要统计的文件夹绝对路径
LineNum=0
SumFolders=1
SumFiles=0
'----------------------以下为函数-----------------------
'检查文件后缀,如果与预定的匹配即返回TRUE
Function CheckExt(FileExt)
     Ext = Split(DimFileExt,",")
     For i = 0 To Ubound(Ext)
         If Lcase(FileExt) = Ext(i) Then 
             CheckExt = True
             Exit Function
         End If
     Next
End Function
Function FSOFileLineNum(filename)
      Set FSO = Server.CreateObject("Scripting.FileSystemObject")
      Set CountFile = FSO.OpenTextFile(filename,1,False)
      FileRead = CountFile.ReadAll
      FSOFileLineNum = CountFile.Line
      CountFile.Close
      Set CountFile = Nothing
      Set FSO = Nothing 
End Function
'遍历处理文件夹及其子目录所有文件
     Set FSO = CreateObject("Scripting.FileSystemObject")
     if not fso.FolderExists(path) then response.end
     Set f = FSO.GetFolder(Path)
     For Each myfile in f.files
         If CheckExt(FSO.GetExtensionName(myfile)) Then
            LineNum=LineNum+FSOFileLineNum(myfile)
            SumFiles = SumFiles + 1
         End If
     Next
     
     For Each f1 in f.SubFolders     
         For Each sf in FSO.GetFolder(f1).files
                If CheckExt(FSO.GetExtensionName(sf)) Then
                  LineNum=LineNum+FSOFileLineNum(sf)
                  SumFiles = SumFiles + 1
                End If
         Next
         SumFolders = SumFolders + 1
     Next
     Set FSO = Nothing          
     response.write SumFolders&"个文件夹共"&SumFiles&"个文件,总行数为:"&LineNum
%>

关键词: asp,fso,文件夹   编辑时间: 2013-09-16 14:26:08

  • 感到高兴

    1

    高兴
  • 感到支持

    0

    支持
  • 感到搞笑

    0

    搞笑
  • 感到不解

    0

    不解
  • 感到谎言

    0

    谎言
  • 感到枪稿

    0

    枪稿
  • 感到震惊

    0

    震惊
  • 感到无奈

    0

    无奈
  • 感到无聊

    0

    无聊
  • 感到反对

    0

    反对
  • 感到愤怒

    0

    愤怒
50%(1)
50%(1)
共有0 条评论 发言请遵守【相关规定

网友评论

会员头像
发 表同步腾讯微博    验证码:  点击更新请先登陆
  • 暂无评论
关闭模块文章图片 article Pictrue
  • 我的妈妈爸爸
  • 基于koa2+mysql+vue2.0+Element阳光内容管理系统
  • 代码覆盖率工具 Istanbul 入门教程
  • 全栈工程师的武器——MEAN
  • 9款超炫的 CSS3 复选框(Checkbox)
  • 微信开发在线翻译功能
  • CSS3那些不为人知的高级属性
  • 给easyui的datebox添加清空事件
  • flash写字效果
  • kendoUI系列教程之DropDownList下拉菜单
  • kendoUI系列教程之datetimepicker日期时间选择
  • kendoUI系列教程之datepicker日期选择
  • kendoUI系列教程之combobox下拉列表框
  • kendoUI系列教程之colorpicker
  • kendoUI系列教程之calendar日历表
  • kendoUI系列教程之autocomplete自动补齐