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

魍者归来

有时候我们统计当前文件夹内某种文件的文件名，少的时候当然手打就ok，面对几百张图纸的时候这并不是个理智的方法。
/ q, c% p0 B/ b- R/ b7 C/ S
所以这个时候就可以祭出【批处理】了：
5 n2 O6 I- ^* R. n8 s' k/ w
( V2 F0 Z0 {" N6 t5 X- g7 n9 `1、新建一个.txt文件。
- q" q3 d% j* u, R" M& s2、打开，输入以下红字内容（这里以统计.PDF文件为例）：
DIR  *.pdf /B  >LIST.TXT
9 C* [1 \' [: K9 A/ p
) Y' r5 j, h3 n9 w3、保存文件，将.txt后缀改为.bat。
4、双击运行，会在当前文件夹生成一个LIST.TXT文件，打开可以看到里面的内容就是当前文件夹下全部PDF文件清单。
; u3 _& G9 E  T& u- z8 Q
$ J; H* P# a# s6 L, W! x特别的说明：

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

魍者归来

妖洞两拐 发表于 2021-8-15 10:01
, K6 _+ P0 n! h* T5 j& i- s怎么批量在文件名中汉字前后加上括号？

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

妖洞两拐

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

苏州万坤信息

分享

sf-1224

收藏了，谢谢！

魍者归来

晓昀 发表于 2020-5-5 23:04
) l0 m6 F" Y% _: t“/B”代表的含义是什么？

$ c( C, y7 s1 M7 o
上图是命令行中的提示信息，/B相当于输出简化的格式（也就是文件名或文件夹名）
% c) G; t1 K% x8 X- P. D; ]9 u+ D

9 J" }2 S" Z3 Y% ?% _+ Q上图是两个命令的对比：①用了dir /b，输出的是所在文件夹包含的子文件夹名和文件名；②用了dir，输出的是驱动器和文件（夹）的信息。

远祥

这是个好主意！

晓昀

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

007learn

收藏了，感谢分享。

shaokuang

转帖
! l0 s8 `( h* m- `  [批量获取文件名
9 c# a  b' ]$ _6 ^9 q9 g( ]+ R9 t/ x4 k这里分享工具下载链接：

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

9 k. p+ \7 [8 J, \  {/ C功能：批量获取同一个文件夹内的文件名，并根据文件名统计分支机构的文档报送情况。

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

注意事项：最好在收集保存文件时，按照报送机构关键字重命名文件（可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名，这个以后再和大家分享）。
) i# Z. Y! r2 ^* C1 B
授人以鱼不如授人以渔，这里直接上代码：
8 G3 o8 I% y. j0 F
& l8 A" J& K" F4 \Private Sub 提取文件名()
1 o( |8 }7 q) R9 j. y1 ~- Z
Dim FileName As String

Dim i As Long
2 O$ m/ D0 q" I4 ^6 \5 x% H
Dim tmp As String
4 i) i/ K: p% ~% g
mypath = ActiveWorkbook.Path
& N+ I5 R6 F9 h1 E) x
6 P' o7 g" g+ F- CFileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推

i = 0

Range("N:N").ClearContents

$ K. y6 X7 P9 |% Q% j! WDo While FileName > ""
5 y& d$ e4 X- b; N1 ]( m
; R5 B6 e8 x+ B! k$ M. |i = i + 1
  [( }5 }5 j2 x+ {
; y9 o: \+ g! |4 iRange("N" & i) = FileName

0 }6 Q) A$ t& N) Z7 {FileName = Dir

9 Z$ L" h! G4 rLoop

End Sub