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

魍者归来

有时候我们统计当前文件夹内某种文件的文件名，少的时候当然手打就ok，面对几百张图纸的时候这并不是个理智的方法。
* D5 s6 X2 k9 I1 q* u3 v/ ?4 C- R: Z
所以这个时候就可以祭出【批处理】了：
; w7 v2 M$ l, g1 L, k/ h9 q
+ b. s$ f/ S) A4 b1、新建一个.txt文件。
2、打开，输入以下红字内容（这里以统计.PDF文件为例）：
DIR *.pdf /B >LIST.TXT
0 f% X S+ W1 R% U, r. U* J
3、保存文件，将.txt后缀改为.bat。
$ Z+ Z- {* Z2 |' m/ |4 E4、双击运行，会在当前文件夹生成一个LIST.TXT文件，打开可以看到里面的内容就是当前文件夹下全部PDF文件清单。

1 l2 L9 S) ?0 |2 ~( K特别的说明：
1 u |5 t/ m# b, y

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

% F0 W% @, h t

shaokuang

转帖
" N' W6 {" o, Q3 o y; k批量获取文件名
这里分享工具下载链接：
. n Q8 m% l/ `$ ~
http://pan.baidu.com/s/1o8u6aiY

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

/ }% h, v Q3 @1 }/ o, f使用方式：将表格文件放入存放需要统计各种文件的文件夹内，打开EXCEL表格，选择需要统计的文件类型，点击按钮运行宏即可。

: Z7 E2 ?" H7 E) ?: q% c- o7 l, p注意事项：最好在收集保存文件时，按照报送机构关键字重命名文件（可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名，这个以后再和大家分享）。

授人以鱼不如授人以渔，这里直接上代码：

2 T$ R! J z1 O# j( DPrivate Sub 提取文件名()
+ L# l+ r D& j G: g* K) s
6 ]9 H) C( f3 p$ K( o% oDim FileName As String
" m5 J% q3 V. _$ X& G/ E, e \
0 \* L) J" `! `' Y4 \5 UDim i As Long

Dim tmp As String

mypath = ActiveWorkbook.Path

FileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推

% o3 B. w" O. M* i3 a7 M% Q ti = 0
& z% Y' H7 R; d. ]% [6 x
Range("N:N").ClearContents
1 s# n. S0 H: K0 |2 \* I- ~
Do While FileName > ""

( f6 E7 y3 K& v& Qi = i + 1

* ?$ S$ {* P1 U( u8 E- H8 |0 M, RRange("N" & i) = FileName
& j- j# Q$ ~% w F+ K! C. g; W
/ \9 ?$ [/ D- e7 d2 AFileName = Dir

- L% t/ F* W A4 x& ~! y5 F' KLoop
* q, L' k( n f5 p
End Sub

007learn

收藏了，感谢分享。

晓昀

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

远祥

这是个好主意！

魍者归来

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

' T- ~- i& r7 H; A
5 u6 q* M4 S0 q- O7 {* g2 y上图是命令行中的提示信息，/B相当于输出简化的格式（也就是文件名或文件夹名）
% ?, C4 Z, d/ B5 |% W

) u$ Y8 {$ m5 y; n9 t+ f上图是两个命令的对比：①用了dir /b，输出的是所在文件夹包含的子文件夹名和文件名；②用了dir，输出的是驱动器和文件（夹）的信息。

sf-1224

收藏了，谢谢！

苏州万坤信息

分享

妖洞两拐

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

魍者归来

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

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