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

魍者歸來

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

所以這個時候就可以祭出【批處理】了：

* N* K) i' s. T5 _: b; L1、新建一個.txt文件。
2、打開，輸入以下紅字內(nèi)容（這里以統(tǒng)計.PDF文件為例）：
DIR  *.pdf /B  >LIST.TXT

3、保存文件，將.txt后綴改為.bat。
0 Z1 E1 \* V- X: l. s+ q4、雙擊運行，會在當前文件夾生成一個LIST.TXT文件，打開可以看到里面的內(nèi)容就是當前文件夾下全部PDF文件清單。
/ ]8 R+ a' S- q
$ Y" B) i5 o/ }$ a特別的說明：

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

" O7 y! z3 M( g' e/ M, w

shaokuang

轉(zhuǎn)帖
批量獲取文件名
這里分享工具下載鏈接：
, |( c6 q5 u& C& Z
/ ^) u) _! \+ R/ h. K0 T/ khttp://pan.baidu.com/s/1o8u6aiY

6 }% @4 L% z3 i* b% l. X  P) E功能：批量獲取同一個文件夾內(nèi)的文件名，并根據(jù)文件名統(tǒng)計分支機構(gòu)的文檔報送情況。
  h7 C4 N4 Y$ K7 I
使用方式：將表格文件放入存放需要統(tǒng)計各種文件的文件夾內(nèi)，打開EXCEL表格，選擇需要統(tǒng)計的文件類型，點擊按鈕運行宏即可。
0 r, _2 S! P9 p. J2 M$ K
( d6 b$ o5 w9 q) z. e5 u注意事項：最好在收集保存文件時，按照報送機構(gòu)關(guān)鍵字重命名文件（可以通過VBA代碼在OUTLOOK中自動存儲郵件的附件并重命名，這個以后再和大家分享）。

/ [  D( Z) R) ^# M6 B# Z. \授人以魚不如授人以漁，這里直接上代碼：
- W; x9 X- W* q* s, i4 ]
) F2 }5 y3 c# y5 U5 sPrivate Sub 提取文件名()
& M4 s! E( @, L
Dim FileName As String

Dim i As Long

Dim tmp As String
0 N+ O1 a- k+ u0 j+ v1 C
* @/ ~) T' X, a+ I  `mypath = ActiveWorkbook.Path
6 z7 a& B% G% d1 b0 }8 L
FileName = Dir(mypath & "\*.*")'如果是僅需要統(tǒng)計特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推
$ @; ^. I5 V6 L* ]
i = 0

Range("N:N").ClearContents
2 ]; @, i' b# f* D* V  f
Do While FileName > ""
; ^- `; `' P* o& {4 S
$ Q$ Q! `' I- S! pi = i + 1
! Q5 l* h4 \' p
# Z) b9 b% `8 D( f1 a  ORange("N" & i) = FileName

- z  Y% h/ W5 SFileName = Dir
" s- f. d, s. U3 _
5 p, l1 O5 i1 jLoop
& }, u' y3 a! c/ j
: }* F) g0 G) o: J- |* Y6 k0 M. xEnd Sub

007learn

收藏了，感謝分享。

曉昀

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

遠祥

這是個好主意！

魍者歸來

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

- G2 N: q) m2 f上圖是命令行中的提示信息，/B相當于輸出簡化的格式（也就是文件名或文件夾名）
! n/ E  D$ Q7 D  i

上圖是兩個命令的對比：①用了dir /b，輸出的是所在文件夾包含的子文件夾名和文件名；②用了dir，輸出的是驅(qū)動器和文件（夾）的信息。

sf-1224

收藏了，謝謝！

蘇州萬坤信息

分享

妖洞兩拐

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

魍者歸來

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

這個需求很古怪，一般都是要去括號的。可以拿excel中的替換功能當橋梁，批量修改文件名。或者有閑暇時間的，可以直接摞代碼搞定。