用VBS实现查找一个路径下面所有子目录的路径

最新推荐文章于 2022-02-25 13:28:37 发布
最新推荐文章于 2022-02-25 13:28:37 发布
阅读量1.1k 收藏
点赞数
分类专栏： 脚本编写 文章标签： 脚本 VBScript
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Johnny_Timmy/article/details/80409160
版权
该博客介绍了如何通过VBScript实现遍历C:Test路径及其所有子目录，收集并输出所有子目录的路径。提供的代码创建了一个名为TreeIt的递归函数，用于遍历文件夹结构，并将路径追加到字符串变量a中，最终将结果写入到AllPath.txt文件中。
摘要由CSDN通过智能技术生成

背景：

需要输出C:\Test 路径下面所有子文件的目录

实现代码：

Set oFso = CreateObject("Scripting.FileSystemObject")
dim a
a=""
msgbox "scanning"
treeIt("c:\Test")
set f=ofso.opentextfile("AllPath.txt",2,true)

f.write a
f.close
msgbox "OK"

Function TreeIt(sPath)
   on error resume next
   Set oFso = CreateObject("Scripting.FileSystemObject")
   Set oFolder = oFso.GetFolder(sPath)
   Set oSubFolders = oFolder.Subfolders
   Set oFiles = oFolder.Files
   For Each oFile In oFiles
   

最低0.47元/天 解锁文章
Johnny_Timmy
关注
专栏目录
查找文件 vbs
03-24
可设定搜索条件 ， 并形成txt清单。
VBS实现遍历某目录下的所有文件（包含子目录）
Will的大食堂
08-31 5703
本例使用递归的方法，实现遍历某一目录下及所有子文件夹里的所有文件。 ​ Set ObjWS = WScript.CreateObject("wscript.shell") currentDir=ObjWS.CurrentDirectory Set ObjFSO = CreateObject("Scripting.FileSystemObject") Dim filesTree filesT...
vbs 搜索文件
hefenghhhh的专栏
05-15 1874
 set wantfind=createobject("scripting.filesystemobject")set ws=createobject("wscript.shell")dim r1,r2,r3r1=inputbox("请输入搜索范围","dir")r2=inputbox("请输入搜索文件","file","txt")set f1=wantfind.opentextfile(trim
vbs查找文件中的内容
D的博客
02-25 1386
把文本文件处理为数组，每行为一个数组元素，然后在每个元素中查找关键词，vbs可以直接使用instr函数来查找，也可以使用正则表达式查找。找到后把那个数组元素复制出来就可以了。 第一种，使用instr 这种方式好像对文件格式有一定要求，使用时可以测试一下。我使用环境下的格式为 A:B C:D E:F # 通过查找A 或者 B是否存在，然后通过 split 截取得到所需要的值 c = split(createobject("scripting.filesystemobject").opentextfile.
vbs中遍历子目录寻找特定文件
gycommunicate的专栏
12-10 1705
‘ 转载 ： https://blog.csdn.net/hywerr/article/details/70228086 ' 递归函数如下 Function FileExsitInDirectory(fso As Object, filename As String, dirpath As String)     Dim curPath As String          curPath ...
vbs搜索文件名或者得到目录列表
09-06
1. **文件名搜索**：用户输入关键字后，脚本会在指定的目录及其子目录中搜索包含该关键字的所有文件，并记录搜索结果。 2. **目录列表获取**：如果没有输入搜索关键字，则脚本将返回指定目录及其所有子目录的列表。 ...
VBS怎么获取指定目录下的文件列表
08-25
要使用VBS获取指定目录下的文件列表，通常需要使用InputBox函数来让用户输入想要查找文件的目录路径。InputBox函数弹出一个对话框，让用户输入信息，并将输入的信息返回给脚本变量。如果用户点击取消或关闭对话框，...
一个扩展时间段的dir命令的vbs脚本
09-06
脚本的核心部分在于`myFind`子程序，这是一个递归函数，用于遍历指定路径`thePath`下的所有文件和子目录。首先，它通过`Wscript.CreateObject("Scripting.FileSystemObject")`创建一个文件系统对象（FSO），以便操作...
VBS调用WMI遍历搜索硬盘文件并计数的方法
09-01
核心函数wmisfile接受两个参数：path_sf表示要搜索的起始目录路径，justcnt是一个计数器，用于记录符合条件的文件数量。函数首先定义了目标计算机名称StrComputer，默认为当前计算机"."。然后使用GetObject方法获取...
VBA宏汇总同文件夹下多工作簿数据
12-04
自己学习VBA编程时，利用excel内VBA宏编写的简单命令，涉及一些基础的操作，亲测可用，初学者可以借鉴，也能利用其解决一些简单的办公问题。
vbs实现：查找文件后进行删除
11-23
通过vbs语言实现，将文件的路径如何进行查找，查找到以后进行删除，是一个小小的练习题。
vbs提取一个目录下所有EXCEL文件中的工作薄名
09-08
使用VBS编程，自动提取一个目录下所有的EXCEL文件中的所有工作薄名，并保存到一个EXCEL表中，执行方式为“提取EXCEL表名 目录”。
vbs运行exe程序的绝对路径改成相对路径_使用相对路径的问题
weixin_39926739的博客
12-11 2156
问题引入项目中需要集成其他团队做的一个带有界面的工具。使用该工具时碰到了如下问题：直接双击这个工具的exe，可以正常启动。通过程序调用，或者用Everything打开这个工具，工具可以启动，但是界面上的图标全部消失了。问题分析打开命令行，执行目录切换到该exe目录下，然后调用该exe，正常启动。将执行目录切换到上上级目录，然后调用该exe，工具不能正常启动，图标全部消失。通过分析，猜测该工具设置图...
中国AI独角兽新增一员：这家公司获得10亿元C轮融资 估值达到12亿美金
网易智能
12-19 1498
关注网易智能，聚焦AI大事件，读懂下一个大时代！【网易智能讯 12月19日消息】据悉，第四范式已于近期完成C轮融资，融资金额超过10亿元，估值约12亿美金。据了解，这轮融...
相对路径的取得方法
阿鑫的家
10-29 608
 使用命令提示符，输入SET，就可以得到了。使用时，加%%就行（例：%systemdrive%）
相对路径与绝对路径
xiaolong232627的专栏
01-15 420
建立triplebit工程后 当前路径是在工程triplebit目录下，尽管编译出二进制可执行文件，其当前路径任然未变，故设置参数应相对于当前triplebit目录，而不是二进制所对应的目录
VBS获取当前文件目录
douyunqian668的博客
07-05 4942
Function pathRemove(strFileName) strFileName=Replace(strFileName,"/","\") Dim ipos  ipos=InStrRev(strFileName,"\") pathRemove=Left(strFileName,ipos) End Function  WScript.Echo  pathRemov
vbs运行exe程序的绝对路径改成相对路径_Excel VBA入门教程2 程序执行/工作簿/工作表/单元格...
weixin_39929813的博客
12-08 1097
先给大家介绍一下如何在工作表中执行程序，而不是每次都要点击快捷键Alt+F11进入到VBA，并点击“运行” 按钮。上节课我们在Sheet1中编写代码，这节课我们到Module中编辑代码：一，在工作表界面关联和执行代码1)在单元格中点击快捷键Alt+F11进入到VBA2)在工具栏中点击 插入(insert)-->模块(module)，模块1就出现了3)点击模块1，在右边出现的空白框...
用vbs 实现将一个目录下的excel表合并为一个表
最新发布
09-17
### 回答1： 你好，这个问题可以回答。可以使用 VBS 脚本编写一个程序来实现将一个目录下的 Excel 表合并为一个表。具体实现方法可以参考以下代码： ``` Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False objExcel.DisplayAlerts = False Set objWorkbook = objExcel.Workbooks.Add() strPath = "C:\ExcelFiles\" '需要合并的 Excel 文件所在的目录 strFile = Dir(strPath & "*.xlsx") '获取目录下所有的 Excel 文件 Do While strFile <> "" Set objTempWorkbook = objExcel.Workbooks.Open(strPath & strFile) Set objTempWorksheet = objTempWorkbook.Worksheets(1) objTempWorksheet.Copy After:=objWorkbook.Worksheets(objWorkbook.Worksheets.Count) objTempWorkbook.Close False strFile = Dir Loop objWorkbook.SaveAs "C:\MergedExcel.xlsx" '合并后的 Excel 文件保存的路径和文件名 objWorkbook.Close False objExcel.Quit ``` 这段代码会将指定目录下的所有 Excel 文件逐个打开，将第一个工作表复制到一个新的工作表中，最后将所有工作表保存为一个新的 Excel 文件。 ### 回答2： 使用VBScript可以通过Excel对象模型实现将一个目录下的Excel表合并为一个表。具体步骤如下： 首先，创建一个Excel对象，并打开一个新的工作簿： ``` Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Add ``` 然后，获取目标目录下的所有Excel文件，并逐个打开： ``` strFolder = "目标目录路径" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strFolder) For Each objFile In objFolder.Files If LCase(objFSO.GetExtensionName(objFile)) = "xls" Or LCase(objFSO.GetExtensionName(objFile)) = "xlsx" Then Set objTempWorkbook = objExcel.Workbooks.Open(objFile.Path) ' 在此处执行合并操作 objTempWorkbook.Close False Set objTempWorkbook = Nothing End If Next ``` 接下来，在每个Excel文件中选择所有数据并复制到新的工作簿中： ``` For Each objWorksheet In objTempWorkbook.Worksheets objWorksheet.Activate objWorksheet.Cells.Select objWorksheet.Cells.Copy objWorkbook.Sheets(1).Cells(objWorkbook.Sheets(1).UsedRange.Rows.Count + 1, 1) Next ``` 最后，保存合并后的工作簿，并关闭Excel应用程序： ``` objWorkbook.SaveAs "合并后的表路径" objWorkbook.Close False objExcel.Quit ``` 通过以上步骤，就可以使用VBScript将一个目录下的Excel表合并为一个表。 ### 回答3： 使用VBScript（vbs）可以实现将一个目录下的Excel表合并为一个表。首先，需要使用文件系统对象（FileSystemObject）来遍历目录中的所有Excel文件。然后，通过Excel应用程序对象（Excel.Application）打开每个文件，并将其内容复制到一个新的工作簿中。最后，将每个工作簿中的所有工作表合并到一个工作表中。 以下是一个用VBScript实现的示例代码： ``` ' 创建文件系统对象 Set fso = CreateObject("Scripting.FileSystemObject") ' 设置目录路径 folderPath = "C:\目录路径" ' 创建Excel应用程序对象 Set excelApp = CreateObject("Excel.Application") ' 添加一个新的工作簿 Set newWorkbook = excelApp.Workbooks.Add() ' 遍历目录中的所有文件 For Each file In fso.GetFolder(folderPath).Files ' 检查文件扩展名是否为.xlsx或.xls If LCase(fso.GetExtensionName(file.Name)) = "xlsx" Or LCase(fso.GetExtensionName(file.Name)) = "xls" Then ' 打开Excel文件 Set workbook = excelApp.Workbooks.Open(file.Path) ' 将每个工作簿中的所有工作表复制到新的工作簿中 For Each worksheet In workbook.Worksheets ' 复制工作表到新工作簿 worksheet.Copy After:=newWorkbook.Sheets(newWorkbook.Sheets.Count) Next ' 关闭打开的工作簿 workbook.Close False End If Next ' 保存新的工作簿 newWorkbook.SaveAs "C:\目标文件路径\合并表.xlsx" ' 关闭Excel应用程序 excelApp.Quit ' 释放对象 Set excelApp = Nothing Set fso = Nothing ``` 将上述代码保存为一个.vbs文件，并将目录路径和目标文件路径替换为自己的实际路径。然后，运行脚本，即可将目录下的所有Excel表合并为一个名为“合并表.xlsx”的Excel文件。 请注意，在运行脚本之前，需要确保已安装了Microsoft Excel应用程序。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值