专栏首页VB小源码VBA批量获取文件夹和文件名

VBA批量获取文件夹和文件名

VBA批量获取文件夹和文件名!!


Sub 获取任意文件夹文件名()

On Error GoTo err

Dim arr()

'默认打开目录;这里是桌面

With Application.FileDialog(msoFileDialogFolderPicker)

.InitialFileName = "C:\Users\" & Environ("username") & "\Desktop\"

If .Show = True Then Path = .SelectedItems(1) & "\"

End With

If Path = "" Then Exit Sub

'判断文件夹是否存在

MyName = Dir(Path, vbDirectory) '

Do

If MyName <> "." And MyName <> ".." Then

n = n + 1

ReDim Preserve arr(1 To n)

'文件夹用<>表示

arr(n) = IIf((GetAttr(Path & MyName) And vbDirectory) = vbDirectory, "<" & MyName & ">", MyName)

End If

MyName = Dir

Loop While MyName <> ""

'文件名写入单元格

With ActiveSheet

ro1 = IIf(.[A1] = "", 1, .Cells(55555, 1).End(3).Row + 1)

.Range("A" & ro1).Resize(n, 1) = WorksheetFunction.Transpose(arr)

ro2 = .Cells(55555, 1).End(3).Row

.Range("A" & ro1 & ":A" & ro2).Sort Key1:=.Range("A" & ro1), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod :=xlPinYin, DataOption1:=xlSortNormal

End With

err:

End Sub

本文分享自微信公众号 - VB小源码(vb_xym),作者:巴西_prince

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2018-07-29

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • #安卓开发# B4A 连接mssql 数据库

    巴西_prince
  • #安卓开发# B4A示例20200217:《抖印无踪》

    这是一款集,权限获取,粘贴板应用,菜单应用,网页跳转,文件下载,创建目录,json解析,网页请求,控件简单使用 ,于一体的教程示例!

    巴西_prince
  • 用VB.NET 撸一个登录界面(开箱即食)

    界面均使用panel、Label、textbox、pictruebox 拼凑而成!

    巴西_prince
  • 0Day技术分析-1-基础知识

    1 基础知识 本章介绍一些与0Day相关的基本概念及基础知识。 1.1. Bug与漏洞 有一个比较有趣的事件,话说某个软件中存在99个Bug,某一天研发人员心血...

    zhisheng
  • LeetCode 922. 按奇偶排序数组 II(双指针)

    对数组进行排序,以便当 A[i] 为奇数时,i 也是奇数;当 A[i] 为偶数时, i 也是偶数。

    Michael阿明
  • 快速使用py构建自己的web渗透框架

    确定需求是最重要的事情,没有挨过打产品经理应该深有体会,挨过打的产品经理体会更深。作为一个想要自我实现某些琐碎功能代替手工的小菜,更要珍惜自己的时间。

    糖果
  • 泛型_TypeScript笔记6

    从类型上看,无论参数是什么类型,返回值的类型都与参数一致,借助重载机制,可以这样描述:

    ayqy贾杰
  • 知识科学家:解锁数据驱动的组织结构(cs.DB)

    所有部门的组织正日益向数据驱动型运营进行深层次的转型和重组。数据的核心问题在于对可靠和干净的数据的需求。不可靠、错误和不完整的数据会导致管道处理中的重点瓶颈,并...

    Donuts_choco
  • Postman使用技巧-1

    上期视频介绍了主流的几款工具, 其中postman是比较轻量级的,简单容易上手,推荐新手可以从postman学习.

    louiezhou001
  • 2018-08-16 一步一步用DDD设计电商网站 —— 回顾与总结

    这是本系列的最后一篇了,后续可能会有一些关于DDD方面新的想法和问题的解决过程的文章,会另起标题来写。所以这篇就把之前的几篇回顾一下,也算是对自己这3个月的内容...

    Albert陈凯

扫码关注云+社区

领取腾讯云代金券