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

魍者歸來

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

所以這個(gè)時(shí)候就可以祭出【批處理】了：
* @7 T# X  l5 Y* S* v. w5 Z$ k+ l
1,、新建一個(gè).txt文件,。
. P( R% S+ }5 Z8 m! o$ X) `" R2,、打開，輸入以下紅字內(nèi)容（這里以統(tǒng)計(jì).PDF文件為例）：
DIR  *.pdf /B  >LIST.TXT

3,、保存文件,，將.txt后綴改為.bat。
( O! ~9 O* o4 T5 D2 O+ S4,、雙擊運(yùn)行,，會(huì)在當(dāng)前文件夾生成一個(gè)LIST.TXT文件，打開可以看到里面的內(nèi)容就是當(dāng)前文件夾下全部PDF文件清單,。
1 U9 d3 c: R$ m' g& h# {
9 d6 D; U& E' G6 e) v( [' b特別的說明：

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

shaokuang

轉(zhuǎn)帖
批量獲取文件名
這里分享工具下載鏈接：

7 Y$ R8 E0 m) a# ~& fhttp://pan.baidu.com/s/1o8u6aiY
6 J  m, ]0 W  e' x  u' G
功能：批量獲取同一個(gè)文件夾內(nèi)的文件名，并根據(jù)文件名統(tǒng)計(jì)分支機(jī)構(gòu)的文檔報(bào)送情況,。
) j. k. z: {( z$ Y; ^9 `8 R
9 o( q$ Y# S: `$ q, W0 C使用方式：將表格文件放入存放需要統(tǒng)計(jì)各種文件的文件夾內(nèi),，打開EXCEL表格，選擇需要統(tǒng)計(jì)的文件類型,，點(diǎn)擊按鈕運(yùn)行宏即可,。
) k1 K, I% g  P, a3 H
4 ]* A  }9 L0 C/ |' M- i注意事項(xiàng)：最好在收集保存文件時(shí)，按照報(bào)送機(jī)構(gòu)關(guān)鍵字重命名文件（可以通過VBA代碼在OUTLOOK中自動(dòng)存儲(chǔ)郵件的附件并重命名,，這個(gè)以后再和大家分享）,。
$ y2 W% K/ T3 H
7 J: X# @% Y9 E. X* P- _授人以魚不如授人以漁，這里直接上代碼：

Private Sub 提取文件名()

Dim FileName As String
! C) ^+ f! t& y) D9 x  t! {6 q" _
Dim i As Long

- o5 m3 s- n# @3 p3 Z1 W$ X8 ODim tmp As String
; U. }2 t$ c* t6 a  k- u
mypath = ActiveWorkbook.Path
9 `/ W9 f: r( h* r! r: G% m3 X; |
; K1 G: F+ q: n, K: bFileName = Dir(mypath & "\*.*")'如果是僅需要統(tǒng)計(jì)特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推

i = 0

Range("N:N").ClearContents

Do While FileName > ""
0 K$ p, i5 Z5 X; g
3 W4 I0 S' G6 P5 ?i = i + 1
6 }8 B: M/ P9 D# W: U
Range("N" & i) = FileName

- D: ?4 a+ P) U% A  P+ wFileName = Dir
7 W* O* l# ~: B. l, {" ]$ M* P
( }1 g& Y$ u- GLoop
/ [, M3 f8 `. q" @8 n
! G, `1 o% |5 t+ i3 e! \5 W3 FEnd Sub

007learn

收藏了，感謝分享,。

曉昀

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

遠(yuǎn)祥

這是個(gè)好主意！

魍者歸來

曉昀 發(fā)表于 2020-5-5 23:04
+ K- c* J" c) a“/B”代表的含義是什么？

% C3 a+ b4 g. V8 w上圖是命令行中的提示信息,，/B相當(dāng)于輸出簡化的格式（也就是文件名或文件夾名）

1 }7 s# s  {1 I/ L
3 i+ U3 V) w' i% E  f8 l4 k1 E上圖是兩個(gè)命令的對比：①用了dir /b,，輸出的是所在文件夾包含的子文件夾名和文件名；②用了dir,，輸出的是驅(qū)動(dòng)器和文件（夾）的信息,。

sf-1224

收藏了，謝謝,！

蘇州萬坤信息

分享

妖洞兩拐

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

魍者歸來

妖洞兩拐 發(fā)表于 2021-8-15 10:01
怎么批量在文件名中漢字前后加上括號(hào)？

這個(gè)需求很古怪,，一般都是要去括號(hào)的,。可以拿excel中的替換功能當(dāng)橋梁,，批量修改文件名,。或者有閑暇時(shí)間的,，可以直接摞代碼搞定,。
9 o* O2 ], @4 T& l4 Q3 m