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

魍者歸來

有時候我們統(tǒng)計當(dāng)前文件夾內(nèi)某種文件的文件名,，少的時候當(dāng)然手打就ok，面對幾百張圖紙的時候這并不是個理智的方法,。
7 n( n2 f+ v& o! j" o3 i
所以這個時候就可以祭出【批處理】了：
, R" Z, G6 V; e4 O  D  O
1,、新建一個.txt文件。
. h- ~' A5 I$ Z) z/ G: B2,、打開,，輸入以下紅字內(nèi)容（這里以統(tǒng)計.PDF文件為例）：
& h8 t: D+ c) B% }; |DIR  *.pdf /B  >LIST.TXT
# V8 }; R8 s  O) W4 N3 ~
3、保存文件,，將.txt后綴改為.bat,。
5 G9 Z2 X2 l/ H3 o9 B4 M, c4、雙擊運行,，會在當(dāng)前文件夾生成一個LIST.TXT文件,，打開可以看到里面的內(nèi)容就是當(dāng)前文件夾下全部PDF文件清單。
9 i, V# q5 K' i& v2 M
特別的說明：
# S) V; L3 U/ n8 v' R3 N# ~# x: Y

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

% o7 ~0 ]2 b2 Q' E9 z

shaokuang

轉(zhuǎn)帖
批量獲取文件名
0 t" x3 {; `8 h9 k! y) g* U7 W- R這里分享工具下載鏈接：

http://pan.baidu.com/s/1o8u6aiY

, o3 W) _+ f# T! D功能：批量獲取同一個文件夾內(nèi)的文件名,，并根據(jù)文件名統(tǒng)計分支機構(gòu)的文檔報送情況,。
9 b. z5 z( f7 U1 L; b
7 K' |. x  l: X) @- C+ B使用方式：將表格文件放入存放需要統(tǒng)計各種文件的文件夾內(nèi)，打開EXCEL表格,，選擇需要統(tǒng)計的文件類型,，點擊按鈕運行宏即可。
  c5 m; W8 D) a7 v
6 n; q5 w/ J8 [1 s1 s# C注意事項：最好在收集保存文件時,，按照報送機構(gòu)關(guān)鍵字重命名文件（可以通過VBA代碼在OUTLOOK中自動存儲郵件的附件并重命名,，這個以后再和大家分享）。

授人以魚不如授人以漁，這里直接上代碼：
. j7 N; n: z, k3 F/ T4 N8 o3 u
, ^& Z! l: a. N5 MPrivate Sub 提取文件名()

0 e* x$ p7 t" yDim FileName As String

Dim i As Long

Dim tmp As String
$ Z- W: Y- ]% [; f& j# q
% ?: s& D9 _/ L) c9 o$ c( Y. g$ smypath = ActiveWorkbook.Path
* q' z9 K) t5 M, t! r4 {  }
FileName = Dir(mypath & "\*.*")'如果是僅需要統(tǒng)計特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推

i = 0

/ }9 Z8 U1 R' |# r: X. cRange("N:N").ClearContents

Do While FileName > ""

1 x) v* c. u1 T% z$ ?* h+ oi = i + 1

Range("N" & i) = FileName
/ l1 s2 ^3 m' P0 E
( B7 ~. `2 K# M# n) Q+ Y" _FileName = Dir
. y$ u7 t9 _3 Y* s
Loop
* Z/ O5 h) @" @6 W: c# V7 f
End Sub

007learn

收藏了，感謝分享,。

曉昀

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

遠祥

這是個好主意！

魍者歸來

曉昀 發(fā)表于 2020-5-5 23:04
: X2 y! m* r" ?! m! K5 o. S“/B”代表的含義是什么,？

% ^0 r7 n3 ?- t$ K0 q+ `
上圖是命令行中的提示信息,，/B相當(dāng)于輸出簡化的格式（也就是文件名或文件夾名）


, W3 ]& Q# f. A- X, |/ Q% Z) `上圖是兩個命令的對比：①用了dir /b，輸出的是所在文件夾包含的子文件夾名和文件名,；②用了dir,，輸出的是驅(qū)動器和文件（夾）的信息。

sf-1224

收藏了,，謝謝,！

蘇州萬坤信息

分享

妖洞兩拐

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

魍者歸來

妖洞兩拐 發(fā)表于 2021-8-15 10:01
" c4 [* w3 C+ b5 g怎么批量在文件名中漢字前后加上括號,？

3 l7 o0 q% g0 m6 P7 Z  C1 a% b9 C這個需求很古怪,，一般都是要去括號的�,？梢阅胑xcel中的替換功能當(dāng)橋梁,，批量修改文件名�,；蛘哂虚e暇時間的,，可以直接摞代碼搞定。