【魍生技】快速統(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í)候就可以祭出【批處理】了：

/ {# A4 s8 ?8 y: R1,、新建一個(gè).txt文件,。
2,、打開(kāi),，輸入以下紅字內(nèi)容（這里以統(tǒng)計(jì).PDF文件為例）：
DIR  *.pdf /B  >LIST.TXT

0 [2 B) _2 Q, F+ t! }3,、保存文件，將.txt后綴改為.bat,。
4,、雙擊運(yùn)行，會(huì)在當(dāng)前文件夾生成一個(gè)LIST.TXT文件,，打開(kāi)可以看到里面的內(nèi)容就是當(dāng)前文件夾下全部PDF文件清單,。
( D( i) u& U5 _  k0 V8 ^7 R* z
" H9 u+ {8 p9 u7 o特別的說(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ì)子文件夾中的文件）
  & B" [* j0 X  y# J

shaokuang

轉(zhuǎn)帖
批量獲取文件名
. {& G7 Q. `/ p' ?& `+ ^這里分享工具下載鏈接：
, c0 R1 r$ d) F! L( r
http://pan.baidu.com/s/1o8u6aiY
) O4 N3 I2 l/ g: s+ c
功能：批量獲取同一個(gè)文件夾內(nèi)的文件名，并根據(jù)文件名統(tǒng)計(jì)分支機(jī)構(gòu)的文檔報(bào)送情況。

/ a2 b$ m2 Q+ x, y' N- P使用方式：將表格文件放入存放需要統(tǒng)計(jì)各種文件的文件夾內(nèi),，打開(kāi)EXCEL表格,，選擇需要統(tǒng)計(jì)的文件類型，點(diǎn)擊按鈕運(yùn)行宏即可,。

注意事項(xiàng)：最好在收集保存文件時(shí),，按照?qǐng)?bào)送機(jī)構(gòu)關(guān)鍵字重命名文件（可以通過(guò)VBA代碼在OUTLOOK中自動(dòng)存儲(chǔ)郵件的附件并重命名，這個(gè)以后再和大家分享）,。
& b, a5 d: v8 {9 y% x5 q8 ~
1 ]$ w4 g% Z4 }, @' V& _6 |授人以魚(yú)不如授人以漁,，這里直接上代碼：

Private Sub 提取文件名()
4 y" z/ n! b' c2 j" }- M5 d
: i4 ~" o4 W; M7 a6 EDim FileName As String

Dim i As Long
! U9 h3 e2 F" n/ D2 o$ N  U
Dim tmp As String
3 @" W! Q: T  t
# u7 [/ {8 G4 u7 B. Cmypath = ActiveWorkbook.Path

FileName = Dir(mypath & "\*.*")'如果是僅需要統(tǒng)計(jì)特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推
: c, T* V4 q- ]% A- ?* b
# v# z0 T' @3 y/ T6 M  _- {" Qi = 0
1 S' |7 a5 U9 ^+ O4 p7 e$ y
5 U8 |$ g8 A+ U+ A. R4 BRange("N:N").ClearContents

( D+ R1 r% \# c6 Y9 SDo While FileName > ""

& \. A! q% c/ U8 m# _i = i + 1

0 d! C% P$ w$ F, P3 ERange("N" & i) = FileName
  |+ ^6 x" r: o* G; j4 \3 C
FileName = Dir

, C! O# }' c3 }6 r& ^, Q! ZLoop

& T3 x& z; q# @0 o9 j4 u) Y+ pEnd Sub

007learn

收藏了,，感謝分享。

曉昀

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

遠(yuǎn)祥

這是個(gè)好主意,！

魍者歸來(lái)

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

6 C* K6 m  H3 Y/ K9 ]8 \/ d' K上圖是命令行中的提示信息,，/B相當(dāng)于輸出簡(jiǎn)化的格式（也就是文件名或文件夾名）

7 F6 @- L  K. l* G3 |
: D! Z4 b( i+ V上圖是兩個(gè)命令的對(duì)比：①用了dir /b,，輸出的是所在文件夾包含的子文件夾名和文件名；②用了dir,，輸出的是驅(qū)動(dòng)器和文件（夾）的信息,。
$ q% Q# c! X9 |3 T) G/ w

sf-1224

收藏了，謝謝,！

蘇州萬(wàn)坤信息

分享

妖洞兩拐

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

魍者歸來(lái)

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

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