【魍生技】快速統(tǒng)計(jì)文件名

魍者歸來(lái)

有時(shí)候我們統(tǒng)計(jì)當(dāng)前文件夾內(nèi)某種文件的文件名，少的時(shí)候當(dāng)然手打就ok，面對(duì)幾百?gòu)垐D紙的時(shí)候這并不是個(gè)理智的方法。

所以這個(gè)時(shí)候就可以祭出【批處理】了：
8 l3 E3 [9 R9 ^( J4 L: P
$ Y/ k( ?! V5 t1、新建一個(gè).txt文件。
; ]$ g" O2 D+ l" x2、打開(kāi)，輸入以下紅字內(nèi)容（這里以統(tǒng)計(jì).PDF文件為例）：
! n+ W6 }: X5 z) r' `2 @7 ?1 wDIR  *.pdf /B  >LIST.TXT
6 k/ T% u8 j3 \3 ~& s' T2 W
3、保存文件，將.txt后綴改為.bat。
4、雙擊運(yùn)行，會(huì)在當(dāng)前文件夾生成一個(gè)LIST.TXT文件，打開(kāi)可以看到里面的內(nèi)容就是當(dāng)前文件夾下全部PDF文件清單。

特別的說(shuō)明：

• 上述紅色字體的部分可以直接復(fù)制黏貼，所有字符（包括空格）均為英文半角。
• .pdf可以替換成自己需要的后綴名，比如統(tǒng)計(jì)圖紙的時(shí)候可以改成.dwg等。
• LIST.TXT是用來(lái)存儲(chǔ)清單的文本文檔，其中LIST可以替換成自己習(xí)慣的名字，但不要用中文，會(huì)出現(xiàn)亂碼。
• 保存好的.bat文件復(fù)制到任何有權(quán)限的文件夾都可以使用。（注意：不會(huì)統(tǒng)計(jì)子文件夾中的文件）
  

9 l7 o  ?! h: C7 e7 _8 p8 b/ o" ~  T( e
) V; a; j+ w, m# N8 q9 ^+ U( K

shaokuang

轉(zhuǎn)帖
批量獲取文件名
' }6 V' k+ G( f8 ~: j( W' a- H這里分享工具下載鏈接：
5 l+ Z0 M0 }3 Z) t2 m8 s
http://pan.baidu.com/s/1o8u6aiY
3 ~$ u* A+ a: h
4 d% J; q! U. g% [7 |8 K功能：批量獲取同一個(gè)文件夾內(nèi)的文件名，并根據(jù)文件名統(tǒng)計(jì)分支機(jī)構(gòu)的文檔報(bào)送情況。
) e+ {, S" \0 P5 ^/ K
3 V& C2 P( K% z1 J使用方式：將表格文件放入存放需要統(tǒng)計(jì)各種文件的文件夾內(nèi)，打開(kāi)EXCEL表格，選擇需要統(tǒng)計(jì)的文件類(lèi)型，點(diǎn)擊按鈕運(yùn)行宏即可。
$ T0 ]* N0 J7 [2 ^; z8 v6 a
注意事項(xiàng)：最好在收集保存文件時(shí)，按照?qǐng)?bào)送機(jī)構(gòu)關(guān)鍵字重命名文件（可以通過(guò)VBA代碼在OUTLOOK中自動(dòng)存儲(chǔ)郵件的附件并重命名，這個(gè)以后再和大家分享）。
/ X* F/ s5 p( P1 g' l! p' l: s4 Z
+ q- z# u3 \4 x1 p- R# V' t授人以魚(yú)不如授人以漁，這里直接上代碼：

/ z' O7 Z  S* t9 b( c4 j* XPrivate Sub 提取文件名()
0 W. O, j3 p3 m- N$ J/ [
Dim FileName As String

. d% H& k; Y% I/ o- S' DDim i As Long
8 z& c3 U- b6 m5 y, T- M% R9 n6 D
Dim tmp As String

* n. A" B, d' A, o2 Xmypath = ActiveWorkbook.Path

( T$ N' y& E- q7 u7 H3 t+ TFileName = Dir(mypath & "\*.*")'如果是僅需要統(tǒng)計(jì)特定類(lèi)型的文件如EXCEL,將*.*改為*.xlsx即可,以此類(lèi)推
& U! s/ r1 r+ c  E
i = 0
, T) X2 f" g& S" x
( O3 o3 U. ~, I8 N; IRange("N:N").ClearContents

& F- M  X. i9 X* v: A; ~% [Do While FileName > ""

+ B- A" J& r' i5 [: @& c$ ]i = i + 1

# Z5 T' k" M* C: T. y0 vRange("N" & i) = FileName
8 X/ ]1 W; C& k/ K; d
1 @: @( U0 c+ j, L  }FileName = Dir
) W& ^7 C+ ^4 @2 q9 K4 R$ l" w5 F6 p
* d# \+ v$ z8 C) |Loop

End Sub

007learn

收藏了，感謝分享。

曉昀

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

遠(yuǎn)祥

這是個(gè)好主意！

魍者歸來(lái)

曉昀 發(fā)表于 2020-5-5 23:04
“/B”代表的含義是什么？

* N; z8 R0 `$ G
" o, G! A+ \+ Q/ ?9 a  t. c上圖是命令行中的提示信息，/B相當(dāng)于輸出簡(jiǎn)化的格式（也就是文件名或文件夾名）
" A4 ^5 w7 _6 @8 D  @0 F
; T/ _# H8 W6 ^
上圖是兩個(gè)命令的對(duì)比：①用了dir /b，輸出的是所在文件夾包含的子文件夾名和文件名；②用了dir，輸出的是驅(qū)動(dòng)器和文件（夾）的信息。

sf-1224

收藏了，謝謝！

蘇州萬(wàn)坤信息

分享

妖洞兩拐

怎么批量在文件名中漢字前后加上括號(hào)？

魍者歸來(lái)

妖洞兩拐 發(fā)表于 2021-8-15 10:01
5 Q/ L) Y) `9 r# j怎么批量在文件名中漢字前后加上括號(hào)？

3 ^* l7 M  k  m' F/ q這個(gè)需求很古怪，一般都是要去括號(hào)的。可以拿excel中的替換功能當(dāng)橋梁，批量修改文件名。或者有閑暇時(shí)間的，可以直接摞代碼搞定。
! G3 J5 @$ R! N7 x5 X