首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

删除指定文件夹及其子文件夹中的所有文件,但保留文件夹

excelperfect 标签:VBA 经常要整理电脑中的文件,特别是每当要自查电脑文件时。每次都是将一个一个文件夹打开,将其中的文件全部删除,但要保留文件夹,以便于后面再陆续存放新的文件。...手动操作起来每繁琐,特别是当文件夹及其子文件夹很多且里面的文件也较多时。 其实,这样的工作使用VBA来很好解决。...下面的程序会删除指定文件夹中的所有文件,包括其子文件夹中的文件,但会保留文件夹,即保留文件夹框架,以便再往里面存放新文件。...' 如果递归调用则同时返回子文件夹中的所有文件....具体操作为,在VBE中,单击菜单“工具——引用”,在“引用”对话框中,找到“Microsoft Scripting Runtime”并勾选其前面的复选框,如下图1所示。

53810
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

    VBA实用小程序72:遍历文件夹(和子文件夹)中的文件

    很多时候,我们都想要遍历文件夹中的每个文件,例如在工作表中列出所有文件名、对每个文件进行修改。VBA给我们提供了一些方式:(1)Dir函数;(2)File System Object。...早期绑定 在VBE编辑器中,单击“工具——引用”。在“引用”对话框中,找到并选取“MicrosoftScripting Runtime”,单击“确定”按钮。 ?...图1 后期绑定 后期绑定不需要任何特定操作来启用FSO库,确保在VBA代码中需要时打开库。 遍历文件夹中所有文件 下面的示例代码将文件名打印到立即窗口,很容易修改这些代码以更适合你的具体情况。...当文件存储在子文件夹中时,可能就需要一些技巧了。...现在需要找到一种方法来钻取到这些子文件夹中。我们将使用上述相同的Dir和FSO方法。为了确保这些代码可以处理任意数量的子文件夹,宏实际上会调用自身(一种称为递归的技术)。

    10.6K30

    ExcelVBA文件操作-获得文件夹中的所有子文件夹

    ExcelVBA文件操作-获得文件夹中的所有子文件夹 图片 上一期,学习了 今天我们来学习如果取得文件夹中的子文件夹路径 如图 图片 在我们可以先用上一节选择取得【test目录】 再读取【1目录、2...) If .Show = -1 Then 'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。...Set fs = CreateObject("Scripting.FileSystemObject") 返回一个对象 对象中有一个方法:GetFolder方法 可返回fs对象中的子对象...Folder对象中有一个属性是: SubFolders 可返回文件夹中的子文件夹 例如: Sub ShowFolderList(folderspec) Dim fs, f,...1 Loop Until sDic.Count = n GetAllPath = sDic.keys End Function 【主程序如下】 Sub yhd_ExcelVBA获得文件夹中的所有子文件夹

    3.1K40

    ExcelVBA文件操作-获得文件夹中的所有子文件夹

    ExcelVBA文件操作-获得文件夹中的所有子文件夹 上一期,学习了 今天我们来学习如果取得文件夹中的子文件夹路径 如图 在我们可以先用上一节选择取得【test目录】 再读取【1目录、2目录、3目录...) If .Show = -1 Then 'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。...对象是这样创建的Set fs = CreateObject("Scripting.FileSystemObject")返回一个对象 对象中有一个方法:GetFolder方法可返回fs对象中的子对象...Folder对象中有一个属性是: SubFolders可返回文件夹中的子文件夹例如:Sub ShowFolderList(folderspec) Dim fs, f, f1, fc,...+ 1 Loop Until sDic.Count = n GetAllPath = sDic.keys End Function 【主程序如下】 Sub yhd_ExcelVBA获得文件夹中的所有子文件夹

    61120

    python 如何删除文件夹下的所有文件和子文件夹?

    前言 删除文件夹下的所有的文件,以及子文件下所有的文件,把这个文件夹全部删除。...283340479 # blog:https://www.cnblogs.com/yoyoketang/ def delete_dir_file(dir_path): """ 递归删除文件夹下文件和子文件夹里的文件.../data') 上面代码删除的时候,如果想保留我们文件夹以及子文件夹,仅仅只删除文件,可以去掉这句 # 递归删除空文件夹 if os.path.exists(dir_path):...blog:https://www.cnblogs.com/yoyoketang/ def delete_dir2(dir_path): # os.walk会得到dir_path下各个后代文件夹和其中的文件的三元组列表...283340479 # blog:https://www.cnblogs.com/yoyoketang/ def delete_dir_file(dir_path): """ 递归删除文件夹下文件和子文件夹里的文件

    64010

    找出文件夹(及其子文件夹)中的文件并复制到目标文件夹中

    测试结果 文本提示 找出文件夹(及其子文件夹)中的文件并复制到目标文件夹中 1.问题引出 下载了整个2018年和2019年上半年的经济学人,不过是根据发刊日期建立了多个文件夹,我想复制出里面所有的*.epub...而且为了便于按照名字排序,最后复制后的名字做了处理,只保留了文件名中的数字(经济学人发布的年份,因为不是一个人发布的名字多少不统一。...os import shutil #import copy def list_folders_files(path): """ 返回 "文件夹" 和 "文件" 名字 :param...path: "文件夹"和"文件"所在的路径 :return: (list_folders, list_files) :list_folders: 文件夹...# 递归遍历当前目录和所有子目录的文件和目录 for name in files: # files保存的是所有的文件名

    3.1K20

    VBA程序:列出文件夹及其子文件夹中的指定文件

    标签:VBA,自定义函数 我想要列出文件夹及其子文件夹中名为test的Excel文件,如何使用VBA程序实现?...使用下面的程序,假设文件夹路径为:C:\Users\excelperfect\Desktop\未完成。你可以根据实际情况修改该路径。...Resume Next For i = 0 To lst.ListCount - 1 Debug.Print lst.List(i).Value Next End Sub '目的: 列出路径中的文件...'参数: strPath = 要搜索的路径. ' strFileSpec = "*.*" 除非另有指定. ' bIncludeSubfolders: 如果为True,同时从strPath的子文件夹中返回结果...如果不, 则将文件在立即窗口列出. ' 列表框必须具有其Row Source Type属性设置为Value列表. '方法:FilDir()添加项到集合, 对子文件夹递归调用自身.

    14610

    Android中asset文件夹和raw文件夹区别

    转载自:CSDN博客 这阵子有位同学在一个命名非“raw”的文件夹中放置mp3文件,导致R文件报错,故此研究,寻得此篇文章,特做分享。...---- 摘自:http://www.cnblogs.com/leizhenzi/archive/2011/10/18/2216428.html Android中asset文件夹和raw文件夹区别 *res.../raw和assets的相同点: 1.两者目录下的文件在打包后会原封不动的保存在apk包中,不会被编译成二进制。...*res/raw和assets的不同点: 1.res/raw 中的文件会被映射到R.java文件中,访问的时候直接使用资源ID即R.id.filename;assets文件夹下的文件不会被映射到R.java...注意2:assets 文件夹是存放不进行编译加工的原生文件,即该文件夹里面的文件不会像 xml, java 文件被预编译,可以存放一些图片,html,js, css 等文件。

    1.2K20

    ExcelVBA文件操作-选择文件夹(含子文件夹)获取所有文件列表

    到目前 我们已完成:1.先打开对话框2.选择文件夹3.获取文件夹4.得到文件夹(包含子文件夹)的路径5. 获取文件夹(不含子文件夹)内的文件列表 今天我们将解决问题是: 6....获取文件夹(含子文件夹)内的文件列表 【问题】 选择文件夹(含子文件夹)获取所有文件列表 【解决思路】 第【1-3】步:可以用自定义函数(PS:此函数返回要进行是否为空的判断,如果为空要exit sub...(PS:返回的数组是以0为下标的) '输入文件夹,返回数组=文件夹(含子文件夹)的路径 Function GetAllFolderPath(sPath As String) Dim aRes,...,返回数组=本文件夹的文件名列表(不包含子文件夹) Function GetFolderFiles(folderspec) Dim sFso As Object, sfld, sff, sffs...Else SelectGetFolder = "" End If End With End Function '输入文件夹,返回数组=文件夹包含子文件夹列表

    5K21

    ExcelVBA文件操作-选择文件夹(含子文件夹)获取所有文件列表

    ExcelVBA文件操作-选择文件夹(含子文件夹)获取所有文件列表 【回顾】 近期我们学习了 1.ExcelVBA-打开对话框取得文件夹路径2种方法 2.ExcelVBA文件操作-获得文件夹中的所有子文件夹...3.ExcelVBA文件操作-选择文件夹获取文件列表 到目前 我们已完成:1.先打开对话框2.选择文件夹3.获取文件夹4.得到文件夹(包含子文件夹)的路径5....获取文件夹(不含子文件夹)内的文件列表 今天我们将解决问题是: 6....获取文件夹(含子文件夹)内的文件列表 【问题】 选择文件夹(含子文件夹)获取所有文件列表 【解决思路】 第【1-3】步:可以用自定义函数(PS:此函数返回要进行是否为空的判断,如果为空要exit sub...-选择文件夹获取文件列表 ExcelVBA文件操作-获得文件夹中的所有子文件夹 ExcelVBA-打开对话框取得文件夹路径2种方法 Excel VBA取白色单元格内容黄色的单元格的Address ExcelVBA

    97830

    spark读取多个文件夹(嵌套)下的多个文件

    在正常调用过程中,难免需要对多个文件夹下的多个文件进行读取,然而之前只是明确了spark具备读取多个文件的能力。...针对多个文件夹下的多个文件,以前的做法是先进行文件夹的遍历,然后再进行各个文件夹目录的读取。 今天在做测试的时候,居然发现spark原生就支持这样的能力。 原理也非常简单,就是textFile功能。...编写这样的代码,读取上次输出的多个结果,由于RDD保存结果都是保存为一个文件夹。而多个相关联RDD的结果就是多个文件夹。...          val alldata = sc.textFile("data/Flag/*/part-*")           println(alldata.count())    经过测试,可以实现对多个相关联

    3.2K20
    领券