【魍生技】快速统计文件名

魍者归来

有时候我们统计当前文件夹内某种文件的文件名，少的时候当然手打就ok，面对几百张图纸的时候这并不是个理智的方法。

# `/ e" B8 J0 r所以这个时候就可以祭出【批处理】了：
( H9 [+ z0 L( {& |/ k# m1 T
1、新建一个.txt文件。
2、打开，输入以下红字内容（这里以统计.PDF文件为例）：
DIR *.pdf /B >LIST.TXT
. V' H5 h: r/ j1 j' ?
3、保存文件，将.txt后缀改为.bat。
! d4 L! x5 a# Y+ L1 U4、双击运行，会在当前文件夹生成一个LIST.TXT文件，打开可以看到里面的内容就是当前文件夹下全部PDF文件清单。
4 `1 A8 w! }" a( c" }3 k' W
特别的说明：
5 ?* p% T, Y/ M: z% B0 U/ {% U

• 上述红色字体的部分可以直接复制黏贴，所有字符（包括空格）均为英文半角。
• .pdf可以替换成自己需要的后缀名，比如统计图纸的时候可以改成.dwg等。
• LIST.TXT是用来存储清单的文本文档，其中LIST可以替换成自己习惯的名字，但不要用中文，会出现乱码。
• 保存好的.bat文件复制到任何有权限的文件夹都可以使用。（注意：不会统计子文件夹中的文件）
  

% Z+ T! p1 r! U) V$ t: ]

shaokuang

转帖
批量获取文件名
这里分享工具下载链接：

http://pan.baidu.com/s/1o8u6aiY

" k$ Q7 u0 V8 }; k功能：批量获取同一个文件夹内的文件名，并根据文件名统计分支机构的文档报送情况。

使用方式：将表格文件放入存放需要统计各种文件的文件夹内，打开EXCEL表格，选择需要统计的文件类型，点击按钮运行宏即可。

% T- j0 T, K, _注意事项：最好在收集保存文件时，按照报送机构关键字重命名文件（可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名，这个以后再和大家分享）。

+ H) r* W2 C5 D7 ~授人以鱼不如授人以渔，这里直接上代码：
9 M0 M6 B' N- {
& a% R% n! b5 WPrivate Sub 提取文件名()
1 q* ~9 ~ G% F
; v; T, t9 m) Q4 n! D' R) M% kDim FileName As String
/ P1 p% ]; L0 L1 N0 Q/ I, |( V- Y
. ?* b4 `' G" _' G0 j2 hDim i As Long

% j9 q: l# m* ?; qDim tmp As String

mypath = ActiveWorkbook.Path
8 m8 [# q1 g7 _% w3 F; M$ t# I7 c
5 p+ W( Y# x( X8 s+ DFileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推
' I& n/ S0 ]+ t+ t$ d3 I/ N
: \1 _' _( V" q! L- h/ |i = 0

# Z4 L- U1 @) O% LRange("N:N").ClearContents

Do While FileName > ""

. p. L- [3 h9 b9 ?& U/ u0 ^i = i + 1
' x$ n" f2 @4 r
$ q5 g' w& [5 a# [1 B2 {Range("N" & i) = FileName
% e0 W8 T, F, P! P7 B" i
FileName = Dir

& f7 d8 ~; S; ]+ r% gLoop
4 y5 T" ~! M7 Q% I& h. Y
! p5 @" G& [ N2 B' a/ AEnd Sub

007learn

收藏了，感谢分享。

晓昀

“/B”代表的含义是什么？

远祥

这是个好主意！

魍者归来

晓昀 发表于 2020-5-5 23:04
6 i( Q$ n T. f- e: u( ?2 P% Y& w“/B”代表的含义是什么？

; U4 S4 X8 \2 ] P( e! w) N
% {% ^, e5 B3 ^1 k. l% w上图是命令行中的提示信息，/B相当于输出简化的格式（也就是文件名或文件夹名）
6 f( `5 z1 p9 B3 I" Z8 k

上图是两个命令的对比：①用了dir /b，输出的是所在文件夹包含的子文件夹名和文件名；②用了dir，输出的是驱动器和文件（夹）的信息。

sf-1224

收藏了，谢谢！

苏州万坤信息

分享

妖洞两拐

怎么批量在文件名中汉字前后加上括号？

魍者归来

妖洞两拐 发表于 2021-8-15 10:01
2 O$ ^" u- I% V) M! k+ `怎么批量在文件名中汉字前后加上括号？

这个需求很古怪，一般都是要去括号的。可以拿excel中的替换功能当桥梁，批量修改文件名。或者有闲暇时间的，可以直接摞代码搞定。
+ B( i+ P& F8 W6 ~1 ~