[教你手动清除操作系统内隐藏病毒文件一法]选择“显示隐藏文件”这一选项后，发现U盘有个文件闪出来一下就马上又消失了，而再打开文件夹选项时，发现仍就是“不显示隐藏文件”这一选项。而且刚发现点击C、D等盘符图标时会...+阅读

就是遍历文件夹嘛，关键代码如下 在工程-引用里添加 microsoft scripting run time 然后用下面的两个函数递归遍历 就可以了 sub main() Dim objFSO As Object Dim objTemplateFolder As Object Set objFSO = New Scripting.FileSystemObject Set objTemplateFolder = objFSO.GetFolder(“D:\”) getFiles objTemplateFolder end sub Sub getFiles(ByRef theFolder As Object) Dim folder As Object Dim c As New Scripting.FileSystemObject '此处执行你的操作：打开关闭文件夹，取名字等 For Each folder In theFolder.subFolders getFiles folder '递归遍历子文件夹 Next End Sub

以下为关联文档：

教你手动清除隐藏的病毒文件一法选择“显示隐藏文件”这一选项后，发现U盘有个文件闪出来一下就马上又消失了，而再打开文件夹选项时，发现仍就是“不显示隐藏文件”这一选项。而且刚发现点击C、D等盘符图标时会...

Excel中VBA提取文件夹名称的方法文章介绍excel中使用vba提取文件名的操作步骤。根据需要自行修改vba提取文件名的路径和存放单元格即可。 在excel中使用VBA编写代码，可以轻松的提取某个文件夹下面的所有文件...

vba下如何在不打开文件的情况下读取excel的工作表的名称帮我不打开是不行的，至少得用代码打开。 sub test() dim mary(1 to 1024,1 to 1),k as long,myFile as string dim wb as workbook,sh as workSheet myFile=＂D：\我的Excel文件.xls＂...