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

魍者归来

有时候我们统计当前文件夹内某种文件的文件名，少的时候当然手打就ok，面对几百张图纸的时候这并不是个理智的方法。
( I+ _7 G" }: |& V
所以这个时候就可以祭出【批处理】了：
/ d" b9 N3 Z% k4 z3 a
1、新建一个.txt文件。
2、打开，输入以下红字内容（这里以统计.PDF文件为例）：
% z( P. O- \7 J' g6 b, V8 pDIR  *.pdf /B  >LIST.TXT
- V) e4 v6 A) ^+ {$ d
4 i) F6 b/ n1 E/ B3、保存文件，将.txt后缀改为.bat。
# B6 |" N9 O# ]3 i* h# \4、双击运行，会在当前文件夹生成一个LIST.TXT文件，打开可以看到里面的内容就是当前文件夹下全部PDF文件清单。
1 q4 s* M  a; ]4 Q  }  S
9 Z2 I  |6 s% j1 ~' f1 V特别的说明：

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

7 d. q5 p( S5 M  j
$ R7 u0 K+ ^4 G$ g: G2 e8 c  _( i

shaokuang

转帖
批量获取文件名
5 C  B5 l9 R+ t; y# p. i1 N. L% k3 N这里分享工具下载链接：

http://pan.baidu.com/s/1o8u6aiY
2 f3 X1 `  C" |: w6 ]; M
功能：批量获取同一个文件夹内的文件名，并根据文件名统计分支机构的文档报送情况。
2 D$ T: e. G6 l' L
( d* z3 j1 @, n+ |6 ?4 n2 N使用方式：将表格文件放入存放需要统计各种文件的文件夹内，打开EXCEL表格，选择需要统计的文件类型，点击按钮运行宏即可。

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

4 i* s2 n7 X, P0 w1 ?授人以鱼不如授人以渔，这里直接上代码：
5 _6 k/ N) p6 L5 h
Private Sub 提取文件名()

: A7 A0 Q# I/ b0 \' `# T/ GDim FileName As String
9 L1 g. \  K' q: V% t
Dim i As Long
4 [  f2 N# f& Q/ b' U
Dim tmp As String

mypath = ActiveWorkbook.Path
% B: d5 N  ?( t( V" A4 R* ^
FileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推
& a8 @, x+ k# }, i3 c) N( C
i = 0
$ B8 \  K! c/ G/ D$ S8 w9 x
  I" Q3 h8 C+ p2 n& E3 W  JRange("N:N").ClearContents
% V5 p7 ], J4 b
1 }  i" A0 t2 b0 l0 V1 X' P7 `Do While FileName > ""
  J7 y' d7 I  q8 X
9 m& \% |- p% k8 ?) c' Ci = i + 1

/ i+ j9 }+ ]# e) x% C( w4 {Range("N" & i) = FileName

FileName = Dir

Loop
0 W# g2 c* |) ]
End Sub

007learn

收藏了，感谢分享。

晓昀

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

远祥

这是个好主意！

魍者归来

晓昀 发表于 2020-5-5 23:04
0 O( U+ q  X1 w, s“/B”代表的含义是什么？

上图是命令行中的提示信息，/B相当于输出简化的格式（也就是文件名或文件夹名）
) M% d' e' q) o; y

, D  \; e( w# Q! H. {0 m$ @上图是两个命令的对比：①用了dir /b，输出的是所在文件夹包含的子文件夹名和文件名；②用了dir，输出的是驱动器和文件（夹）的信息。
6 `8 V( M+ m6 q9 v( f+ R4 R

sf-1224

收藏了，谢谢！

苏州万坤信息

分享

妖洞两拐

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

魍者归来

妖洞两拐 发表于 2021-8-15 10:01
# y& h3 O2 F+ t怎么批量在文件名中汉字前后加上括号？

8 Y& U0 r6 e/ c) Z, k6 H% S2 F这个需求很古怪，一般都是要去括号的。可以拿excel中的替换功能当桥梁，批量修改文件名。或者有闲暇时间的，可以直接摞代码搞定。