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

魍者归来

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

所以这个时候就可以祭出【批处理】了：
* P6 Z( N! z7 S' Z5 F4 B+ }
. G5 Y6 r* x7 ?: O% L( ]1、新建一个.txt文件。
; N5 }; n6 B) _. ~) ]2、打开，输入以下红字内容（这里以统计.PDF文件为例）：
5 u% X) |/ N3 T) t2 I; tDIR  *.pdf /B  >LIST.TXT

% {8 `1 K8 B. O9 O* w. a. e7 L$ S- z3、保存文件，将.txt后缀改为.bat。
4、双击运行，会在当前文件夹生成一个LIST.TXT文件，打开可以看到里面的内容就是当前文件夹下全部PDF文件清单。

特别的说明：

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

4 M; n6 f( Q2 I

shaokuang

转帖
. x  g6 N4 {$ U" p% _批量获取文件名
. N3 i. A8 C/ ~/ M这里分享工具下载链接：
* o+ G  H4 w- Y9 t
http://pan.baidu.com/s/1o8u6aiY

功能：批量获取同一个文件夹内的文件名，并根据文件名统计分支机构的文档报送情况。
9 _$ @$ k- j2 R6 {( g  y
使用方式：将表格文件放入存放需要统计各种文件的文件夹内，打开EXCEL表格，选择需要统计的文件类型，点击按钮运行宏即可。
; r* c7 ~. P1 ?: S% Q3 E* ~, g
" ?5 J9 }0 D9 s; |$ n注意事项：最好在收集保存文件时，按照报送机构关键字重命名文件（可以通过VBA代码在OUTLOOK中自动存储邮件的附件并重命名，这个以后再和大家分享）。

0 H8 l2 Q" `9 l- o0 p授人以鱼不如授人以渔，这里直接上代码：
' B* L% u  G- S7 v- H& J, m7 l
! G! [  E; ]4 ]+ |( F( J# f6 `Private Sub 提取文件名()
5 B0 t% t# q5 o2 `( Y
Dim FileName As String
& z6 D/ B! X. H8 {4 A4 O
9 Z2 z4 U7 D: c0 p+ K5 oDim i As Long

" e7 c* b, s, A- sDim tmp As String

mypath = ActiveWorkbook.Path
3 x1 V% U- A3 f# \1 d& o+ y
FileName = Dir(mypath & "\*.*")'如果是仅需要统计特定类型的文件如EXCEL,将*.*改为*.xlsx即可,以此类推

i = 0
) b  y$ |, m! `7 Y* d/ B* d6 x0 y* ~
Range("N:N").ClearContents
; K& |3 F" R" O) ?
Do While FileName > ""

6 T) @3 l6 [( R6 r) f. H& K+ Li = i + 1

. I, @6 w  ^. B9 _. A9 ?# JRange("N" & i) = FileName

: |1 W, M/ C, o9 F$ @FileName = Dir
5 V* ^1 @, l4 J" X" ~
Loop
$ g( p  O- k' i4 p+ L
End Sub

007learn

收藏了，感谢分享。

晓昀

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

远祥

这是个好主意！

魍者归来

晓昀 发表于 2020-5-5 23:04
  z, d+ S' ~% |% i) r" M% V“/B”代表的含义是什么？

上图是命令行中的提示信息，/B相当于输出简化的格式（也就是文件名或文件夹名）
; Z6 L3 \' p& K/ P# Q& r

& f' r9 h$ T, `上图是两个命令的对比：①用了dir /b，输出的是所在文件夹包含的子文件夹名和文件名；②用了dir，输出的是驱动器和文件（夹）的信息。
; ^1 `  E7 d1 k4 |1 l' B2 I

sf-1224

收藏了，谢谢！

苏州万坤信息

分享

妖洞两拐

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

魍者归来

妖洞两拐 发表于 2021-8-15 10:01
' w. q# o' V: W: I2 }1 @" n怎么批量在文件名中汉字前后加上括号？

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