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

魍者歸來

有時候我們統(tǒng)計當(dāng)前文件夾內(nèi)某種文件的文件名,，少的時候當(dāng)然手打就ok,，面對幾百張圖紙的時候這并不是個理智的方法,。
% ?+ H1 D! M  E0 @8 g
所以這個時候就可以祭出【批處理】了：

1、新建一個.txt文件,。
2,、打開，輸入以下紅字內(nèi)容（這里以統(tǒng)計.PDF文件為例）：
- U  d' H5 m" P8 A; ]DIR  *.pdf /B  >LIST.TXT

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

特別的說明：
% g$ n( z/ \3 E9 ?

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

shaokuang

轉(zhuǎn)帖
, t0 E  ~4 W7 N# f. C批量獲取文件名
! V, t2 p/ H# e" s8 m! d7 G' s這里分享工具下載鏈接：

& K% e6 W' `. s8 Y, Z6 f# Q4 _http://pan.baidu.com/s/1o8u6aiY

8 l. c: {6 C9 Z' p功能：批量獲取同一個文件夾內(nèi)的文件名,，并根據(jù)文件名統(tǒng)計分支機構(gòu)的文檔報送情況,。

4 T- S5 G" z0 a& R使用方式：將表格文件放入存放需要統(tǒng)計各種文件的文件夾內(nèi)，打開EXCEL表格,，選擇需要統(tǒng)計的文件類型,，點擊按鈕運行宏即可。

5 y/ z: N8 L- b. s0 G8 }* M注意事項：最好在收集保存文件時,，按照報送機構(gòu)關(guān)鍵字重命名文件（可以通過VBA代碼在OUTLOOK中自動存儲郵件的附件并重命名,，這個以后再和大家分享）。
) K, `& s& D4 n/ d. V- q5 S( M' ?
授人以魚不如授人以漁,，這里直接上代碼：
" ?& Z2 x, }4 n
Private Sub 提取文件名()
, O& x8 m3 ]3 }
Dim FileName As String
" b  s- l+ z; x) l3 y
% S) v/ p9 |; B# @: x* X9 TDim i As Long

Dim tmp As String

mypath = ActiveWorkbook.Path

FileName = Dir(mypath & "\*.*")'如果是僅需要統(tǒng)計特定類型的文件如EXCEL,將*.*改為*.xlsx即可,以此類推

2 [0 N% q- K$ O0 h6 `/ X* w* Gi = 0

; z+ t4 N' t" ~Range("N:N").ClearContents

- _2 L! E. T* L/ `" w) zDo While FileName > ""

( I" V# J' U. l; Q( ni = i + 1
$ P+ @  u; R4 C' W& \; ?0 c" Z
! l( i0 _4 Y, o% K; {Range("N" & i) = FileName
7 q6 c' s0 X4 I: R, S" \
FileName = Dir

9 ]2 E7 U- l6 {8 \Loop
; c; Z8 v. W: n5 v
End Sub

007learn

收藏了,，感謝分享。

曉昀

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

遠(yuǎn)祥

這是個好主意,！

魍者歸來

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

上圖是命令行中的提示信息,，/B相當(dāng)于輸出簡化的格式（也就是文件名或文件夾名）
2 D" O- v; p$ m6 k$ G

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

sf-1224

收藏了，謝謝,！

蘇州萬坤信息

分享

妖洞兩拐

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

魍者歸來

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

1 B' G2 k2 F7 R! @* x) T這個需求很古怪,，一般都是要去括號的,。可以拿excel中的替換功能當(dāng)橋梁,，批量修改文件名,。或者有閑暇時間的,，可以直接摞代碼搞定,。
0 @. X: G$ m) y. N4 I5 O# l