VBS遍历文件或文件夹路径输入文件的所有绝对路径（附源码）

源码如下：

Function listFilesPath(filepath)
  t1=Timer()
  Debug.WriteLine "****现在开始执行计数，用时："+CStr(t1)
  Set fso=CreateObject("scripting.filesystemobject")
  Set myfolder=fso.GetFolder(filepath)
  If fso.FolderExists(filepath) then
    Set subcol=myfolder.SubFolders
    Set filescol=myfolder.Files
    For Each file In filescol
      Debug.WriteLine filepath+"\"+file.name
    Next
    If subcol.count>0 Then
      For Each folder In subcol
        'Debug.WriteLine filepath+"\"+folder.Name
        listFilesPath(filepath+"\"+folder.Name)
      next

    End if
  Else
    Debug.WriteLine "没有该文件系统"
  End if

  Set filescol=Nothing
  Set subcol=nothing
  Set fso=Nothing
  t2=Timer()
Debug.WriteLine "****现在完成计数，用时："+CStr(t2)
Debug.WriteLine "整个操作过程用时:"&CStr(t2-t1)&" 秒"
End function

之前我们小编更新过类似的文章，大家可以参考一下

赞 (0)

相关推荐

  • VBS脚本实现遍历批量替换多目录多文件内容的代码

    有时候我们需要将一个目录与子目录中的多个htm网页文件实现批量替换,这里就为大家分享一下 将以下代码复制到一个文本文档中,并将文本文档的后缀修改为.vbs,直接运行即可 Set WshShell = CreateObject("Wscript.Shell") WshShell.Run "cmd /c dir /s/b *.htm > list.htm",vbHide Wscript.Sleep 1000 sFile = "list.htm"

  • 用vbs遍历文件并随机显示的脚本

    set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") set folder=fso.getfolder(ws.currentdirectory) set files=folder.files for each file in files d=d & file.name & "," next Randomize

  • VBS调用WMI遍历搜索硬盘文件并计数的方法

    多年之前写的一个VBS调用WMI来遍历搜索硬盘文件,并计数的函数,今天整理网盘,看到了,发上来 核心代码: Function wmisfile(path_sf,justcnt) 'On Error Resume Next StrComputer = "." Set ObjWMIService = GetObject("winmgmts:\\" & StrComputer & "\root\cimv2") Set FileList

  • jQuery 行级解析读取XML文件（附源码）

    jQuery 行级解析读取XML文件（附源码）

    最近在做一个项目,因为页面使用了Cookie,所以要判断用户的浏览器是否支持Cookie,并提示用户如何开启浏览器的Cookie功能.同时,整个项目要配置多语言支持,包括中文.越南语.日语和英语,所以必须有语言配置文件.项目中应用jQuery解析读取XML语言配置文件来实现语言的调度.这是jQuery解析读取XML文件功能的测试源码,现拿出来分享.目录结构: main.css文件代码: 复制代码 代码如下: @CHARSET "UTF-8"; * { margin: 0px; padd

  • Asp.net实现直接在浏览器预览Word、Excel、PDF、Txt文件（附源码）

    Asp.net实现直接在浏览器预览Word、Excel、PDF、Txt文件（附源码）

    1.功能说明 输入文件路径,在浏览器输出文件预览信息,经测试360极速(Chrome).IE9/10.Firefox通过 2.分类文件及代码说明 DemoFiles 存放可测试文件 Default.aspx  启动页 ExcelPreview.cs  Excel预览类 public static void Priview(System.Web.UI.Page p, string inFilePath, string outDirPath = "") { Microsoft.Office

  • JSP实用教程之简易文件上传组件的实现方法（附源码）

    JSP实用教程之简易文件上传组件的实现方法（附源码）

    前言 本文主要给大家介绍的是关于JSP简易文件上传组件的实现方法,分享出来供大家参考学习,下面话不多说,来一起看看详细的介绍吧. 文件上传,包括但不限于图片上传,是 Web 开发中司空见惯的场景,相信各位或多或少都曾写过这方面相关的代码.Java 界若说文件上传,则言必称 Apache Commons FileUpload,论必及  SmartUpload.更甚者,Servlet 3.0 将文件上传列入 JSR 标准,使得通过几个注解就可以在 Servlet 中配置上传,无须依赖任何组件.使用第

  • 详解Android开发数据持久化之文件存储(附源码)

    详解Android开发数据持久化之文件存储(附源码)

    其实我们在社交网络上面所发出的任何信息, 都希望能够保留下来. 那么如何实现呢? 数据持久化 数据持久化, 就是将内存中的瞬时数据保存在存储设备中, 保证即便关机之后, 数据仍然存在. 保存在内存中的数据是瞬时数据, 保存在存储设备中的数据就是处于持久状态的. 持久化技术则是提供了一种机制可以让数据在瞬时状态和持久状态之间进行转换, Android系统中主要提供了3种方式用于简单地实现数据持久化功能, 即文件存储, SharePreference存储, 以及数据库存储. 当然你也可以将数据保存在

  • Dropzone.js实现文件拖拽上传功能(附源码下载)

    Dropzone.js实现文件拖拽上传功能(附源码下载)

    dropzone.js是一个开源的JavaScript库,提供 AJAX 异步文件上传功能,支持拖拽文件.支持最大文件大小.支持设置文件类型.支持预览上传结果,不依赖jQuery库. 效果演示      源码下载 使用Dropzone 我们可以建立一个正式的上传form表单,并且给表单一个.dropzone的class. <form id="mydropzone" action="/upload.php" class="dropzone"&

  • Android实现下载zip压缩文件并解压的方法（附源码）

    前言 其实在网上有很多介绍下载文件或者解压zip文件的文章,但是两者结合的不多,所以这篇文章在此记录一下下载zip文件并直接解压的方法,直接上代码,文末有源码下载. 下载: import java.io.BufferedInputStream; import java.io.BufferedOutputStream; import java.io.File; import java.io.FileNotFoundException; import java.io.FileOutputStream

  • 原生PHP实现导出csv格式Excel文件的方法示例【附源码下载】

    原生PHP实现导出csv格式Excel文件的方法示例【附源码下载】

    本文实例讲述了原生PHP实现导出csv格式Excel文件的方法.分享给大家供大家参考,具体如下: 效果图 源码分析 index.php <?php require_once "./Export.php"; //测试数据 $headerList= ['列名1','列名2','列名3']; $data = [ ['值1','值2','值3'], ['值11','值22','值33'], ['值111','值222','值333'] ]; $fileName = "测试导出文

  • 自制网页选取本地路径控件(附源码)

    自制网页选取本地路径控件(附源码)

    用C#开发的一个WEB选取本地目录路径的控件,OBJECT控件嵌入网页后,会列出本地磁盘上目录列表,通过控件JS方法GetDirPath()获取选择的目录路径 代码就不贴了,直接给源码和DEMO 源码和DEMO打包下载:WebDirSelector.rar 注册和使用: 1.打开WebDirSelector解决方案2.在"项目属性->生成"里,将"为COM Interop注册"打上勾,编译后系统会自动注册DLL(或在命令行中用regsvr32注册编译好的Web

  • VBS遍历文件或文件夹路径输入文件的所有绝对路径（附源码）

    源码如下: Function listFilesPath(filepath) t1=Timer() Debug.WriteLine "****现在开始执行计数,用时:"+CStr(t1) Set fso=CreateObject("scripting.filesystemobject") Set myfolder=fso.GetFolder(filepath) If fso.FolderExists(filepath) then Set subcol=myfolde

  • android编程之XML文件解析方法详解(附源码)

    android编程之XML文件解析方法详解(附源码)

    本文实例讲述了android编程之XML文件解析方法.分享给大家供大家参考,具体如下: 在android开发中,经常用到去解析xml文件,常见的解析xml的方式有一下三种:SAX.Pull.Dom解析方式.最近做了一个android版的CSDN阅读器,用到了其中的两种(sax,pull),今天对android解析xml的这三种方式进行一次总结. 今天解析的xml示例(channels.xml)如下: <?xml version="1.0" encoding="utf-8

随机推荐