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

魍者归来

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

. b1 o, m/ ~% T. M8 s" G所以这个时候就可以祭出【批处理】了：
9 o% ~6 u" B, @
" c- ^$ b/ h" }# W, q1、新建一个.txt文件。
% k! E( }! l9 l9 G" p0 B2、打开，输入以下红字内容（这里以统计.PDF文件为例）：
DIR  *.pdf /B  >LIST.TXT
3 u) `9 \" o" F$ h
. m/ q6 g2 o+ Q0 q8 g) q% D; Z$ X& b3、保存文件，将.txt后缀改为.bat。
9 A. r9 h6 E0 n2 G4、双击运行，会在当前文件夹生成一个LIST.TXT文件，打开可以看到里面的内容就是当前文件夹下全部PDF文件清单。

& `, @0 P/ t3 P8 A特别的说明：
: Y: d) ]- G( M

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

shaokuang

转帖
批量获取文件名
这里分享工具下载链接：
0 e5 c/ m  K. `( X9 M) j. T
http://pan.baidu.com/s/1o8u6aiY

功能：批量获取同一个文件夹内的文件名，并根据文件名统计分支机构的文档报送情况。
, L6 S( {- W' K$ N" H
# P2 \: }; E" ]1 f5 H- z8 u使用方式：将表格文件放入存放需要统计各种文件的文件夹内，打开EXCEL表格，选择需要统计的文件类型，点击按钮运行宏即可。
$ i+ b# i* g4 M! t% }
注意事项：最好在收集保存文件时，按照报送机构关键字重命名文件（可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名，这个以后再和大家分享）。

# \# F" ?; [) e$ j8 w- D" J6 D授人以鱼不如授人以渔，这里直接上代码：
3 U+ g' Z3 }3 G5 C* K! s3 w
4 v2 N7 A2 c5 E5 {3 |Private Sub 提取文件名()

Dim FileName As String

Dim i As Long
7 h4 g' l6 ], t! V
Dim tmp As String

0 C; D1 L5 w/ @0 _9 R: y- F, Dmypath = ActiveWorkbook.Path
$ D- j$ [9 J2 T: z
FileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推

i = 0
8 _2 X2 f5 b7 m4 Q4 c! w
1 u) O9 S: i& Z! }8 A+ q* mRange("N:N").ClearContents
* U( `0 [# S3 A( ?& j8 y; m# e
Do While FileName > ""
; D0 `: ?' B* Q" a
+ ]2 ^/ k! j7 n0 K! |0 hi = i + 1

, ]4 w  M& R5 \8 F$ ]! [  NRange("N" & i) = FileName

FileName = Dir

3 }9 x* I& {" V; W2 ~, Y- {( tLoop

End Sub

007learn

收藏了，感谢分享。

晓昀

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

远祥

这是个好主意！

魍者归来

晓昀 发表于 2020-5-5 23:04
“/B”代表的含义是什么？

' ~# {0 J9 ~/ ~  E上图是命令行中的提示信息，/B相当于输出简化的格式（也就是文件名或文件夹名）

' ~1 n6 z' z, {9 ]' q* D1 Q
1 z1 i& o7 `& A0 I  [上图是两个命令的对比：①用了dir /b，输出的是所在文件夹包含的子文件夹名和文件名；②用了dir，输出的是驱动器和文件（夹）的信息。

sf-1224

收藏了，谢谢！

苏州万坤信息

分享

妖洞两拐

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

魍者归来

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

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