【魍生技】快速統計文件名

魍者歸來

有時候我們統計當前文件夾內某種文件的文件名，少的時候當然手打就ok，面對幾百張圖紙的時候這并不是個理智的方法。
( W& N! N& x! m# h; t* {* W
所以這個時候就可以祭出【批處理】了：
& t* d1 d9 K4 D2 D" V: F7 |
1、新建一個.txt文件。
2、打開，輸入以下紅字內容（這里以統計.PDF文件為例）：
DIR  *.pdf /B  >LIST.TXT

3、保存文件，將.txt后綴改為.bat。
4、雙擊運行，會在當前文件夾生成一個LIST.TXT文件，打開可以看到里面的內容就是當前文件夾下全部PDF文件清單。

特別的說明：
2 x+ g- m9 b" s$ ]' t- r- w

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

shaokuang

轉帖
! `" T6 `  }# c+ p& X批量獲取文件名
這里分享工具下載鏈接：
# c' c% V8 {: i  f$ n; K
' [8 a5 F/ [, D) F1 ehttp://pan.baidu.com/s/1o8u6aiY
2 H  B/ ]/ B6 [- ?
功能：批量獲取同一個文件夾內的文件名，并根據文件名統計分支機構的文檔報送情況。
( X+ D7 N, u5 T+ `) A
/ @! K+ S) x% G% L使用方式：將表格文件放入存放需要統計各種文件的文件夾內，打開EXCEL表格，選擇需要統計的文件類型，點擊按鈕運行宏即可。
3 g/ V, K, [+ o- C7 r; L8 z4 i
5 Z9 I3 N: |+ g7 \: }1 V1 r5 c) B注意事項：最好在收集保存文件時，按照報送機構關鍵字重命名文件（可以通過VBA代碼在OUTLOOK中自動存儲郵件的附件并重命名，這個以后再和大家分享）。
+ P7 @7 [: a% U) M& o3 B2 L
授人以魚不如授人以漁，這里直接上代碼：
+ [( P2 f; W# S( B
Private Sub 提取文件名()
* n" q. K0 W8 k# H% |: m
5 d  }" Z5 j8 Z' {. [Dim FileName As String
- B+ k9 `( ]4 c6 i' ~
Dim i As Long
6 E7 L) U: O' y: j1 K' m( z, e
Dim tmp As String
8 ]" V4 E1 w' |  J! E) U- X
2 z) t' d+ Q0 v7 }mypath = ActiveWorkbook.Path

; y& F; X# ^$ x$ C& m3 Y2 ]9 jFileName = Dir(mypath & "\*.*")'如果是僅需要統計特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推
) g7 v! a8 t* d0 o3 Z: d* z3 n
i = 0
  A3 y( o3 k8 p$ b1 x( \- F& `
Range("N:N").ClearContents

Do While FileName > ""

i = i + 1

) z# G6 N5 Z# c9 y% K2 b3 gRange("N" & i) = FileName

; L$ t& h% h* f2 M+ l  JFileName = Dir
! p5 @% T6 [& d# E$ F9 u
Loop
2 @3 v7 A5 A& P3 ^5 b+ H
End Sub

007learn

收藏了，感謝分享。

曉昀

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

遠祥

這是個好主意！

魍者歸來

曉昀 發表于 2020-5-5 23:04
$ E4 _( c& X7 J0 r5 ~8 t“/B”代表的含義是什么？

" C# }( Y# Q+ w' A+ l( k- L) c上圖是命令行中的提示信息，/B相當于輸出簡化的格式（也就是文件名或文件夾名）
. B6 w& J, L+ b4 u

上圖是兩個命令的對比：①用了dir /b，輸出的是所在文件夾包含的子文件夾名和文件名；②用了dir，輸出的是驅動器和文件（夾）的信息。
% h6 w% k1 ?: P

sf-1224

收藏了，謝謝！

蘇州萬坤信息

分享

妖洞兩拐

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

魍者歸來

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

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