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

魍者归来

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

所以这个时候就可以祭出【批处理】了：
6 [4 M6 E4 E8 V. N
1、新建一个.txt文件。
) N) {# g; b- ^8 b. X6 ^6 _$ I" _2、打开，输入以下红字内容（这里以统计.PDF文件为例）：
DIR  *.pdf /B  >LIST.TXT
8 t& N5 a% b- l) |2 |* a
3、保存文件，将.txt后缀改为.bat。
; x5 N0 N7 z+ Q6 I: e4、双击运行，会在当前文件夹生成一个LIST.TXT文件，打开可以看到里面的内容就是当前文件夹下全部PDF文件清单。

- P% m- v, E) U4 e% C' |特别的说明：
% D: a  {  \0 @5 P4 h

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

! a# P. v. @# Y% o* h
8 m0 n( S* t& p2 j

shaokuang

转帖
# e0 m, `& @0 c8 W$ `7 K批量获取文件名
" w5 o2 x; L- q( r6 G这里分享工具下载链接：
/ G, j# e3 d8 H. f' r% u/ A6 V
7 Y& T8 q9 K% p  e5 y8 Ihttp://pan.baidu.com/s/1o8u6aiY
0 @' |3 k# v0 O4 l& [
功能：批量获取同一个文件夹内的文件名，并根据文件名统计分支机构的文档报送情况。
, n( B  z3 B: N- `; F% G" Y3 W+ S
使用方式：将表格文件放入存放需要统计各种文件的文件夹内，打开EXCEL表格，选择需要统计的文件类型，点击按钮运行宏即可。
1 s+ o+ Y1 y! r9 p
注意事项：最好在收集保存文件时，按照报送机构关键字重命名文件（可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名，这个以后再和大家分享）。
6 o4 |9 [; F/ O
授人以鱼不如授人以渔，这里直接上代码：

Private Sub 提取文件名()
0 @: ~1 I7 s( I+ ]& [7 x, b# O: b
Dim FileName As String
+ e, x/ S) S* |6 {. }$ S
Dim i As Long

Dim tmp As String

& w0 {$ o: c/ nmypath = ActiveWorkbook.Path
2 W; t+ Q/ z# D+ p& V: W
5 [' t" J+ X3 Q( I# a  lFileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推
% P3 U2 @: [3 A
i = 0
. m  N% K1 `+ o3 {8 F' p0 D( O
; N4 L( `" y* P4 j4 `' U, [- r; aRange("N:N").ClearContents
5 B& z4 w1 a& f. P; g! O% C
( O% g! L8 J+ @Do While FileName > ""
7 a7 @( v# W  \0 w+ d
i = i + 1

6 x0 w; ?) E/ ?6 l, iRange("N" & i) = FileName

8 z7 Z( n  {3 qFileName = Dir

. y1 n  L8 x6 A. E4 uLoop

8 n+ \4 H5 _  j# [; P/ D) }End Sub

007learn

收藏了，感谢分享。

晓昀

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

远祥

这是个好主意！

魍者归来

晓昀 发表于 2020-5-5 23:04
3 q' Y/ R/ P9 @“/B”代表的含义是什么？

$ i) l8 e' p) v5 X: J! C" t6 F上图是命令行中的提示信息，/B相当于输出简化的格式（也就是文件名或文件夹名）

0 K- o% i/ m) e2 ]( A
上图是两个命令的对比：①用了dir /b，输出的是所在文件夹包含的子文件夹名和文件名；②用了dir，输出的是驱动器和文件（夹）的信息。

sf-1224

收藏了，谢谢！

苏州万坤信息

分享

妖洞两拐

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

魍者归来

妖洞两拐 发表于 2021-8-15 10:01
) K  `5 |. a  L怎么批量在文件名中汉字前后加上括号？

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