1樓：網海1書生
dim s() as string
d=dir("d:\*.doc")
do until d=""
s=split(d,".")
s(ubound(s)-1)=s(ubound(s)-1) & "b"
name "d:\" & d as "d:\" & join(s,".")
d=dir
loop
msgbox "批量修改檔名完畢！"
如何批量提取多個word的檔名？
2樓：很多很多
批量提取多個word的檔名的具體步驟如下：
需要準備的材料分別是：電腦、word文件。
1、首先開啟電腦，右鍵點選桌面空白處新建一個文字文件。
2、然後在彈出來的視窗中點選開啟「」
4、然後點選檔案中的「儲存」，關閉文字文件。
5、右鍵單擊文字文件選擇重新命名。
6、然後將字尾名改成「.bat」，然後雙擊該程式。
7、然後開啟計算機，點選上方輸入f:\word.txt，回車確定。
8、然後就看到提取的word文件名字了。
3樓：愚喬啊
操作比較簡單，電腦中暫時沒有word文件，以下以txt文件為例，寫一下操作步驟，word文件操作方式相同。
1、進入到要整理的資料夾。
2、然後在資料夾中新建一個txt的文件。
3、開啟文件，在文件中貼上下面一段**：dir /a-d /b *.txt>name.txt
其中txt是檔名的字尾，可以通過更改這個來實現篩選。
4、儲存後，將這個檔案的字尾名稱更改為【.bat】5、雙擊執行這個bat檔案，執行過後就會出現一個名為【name.txt】的檔案。
6、開啟這個檔案，所有的檔名稱就都提取好了。
4樓：匿名使用者
假如你d:\word目錄下
複製如下**:
dir d:\word\*.doc >d:\word.txt在桌面新建一個文字文件，將**貼上進入，將文字文件的字尾名改為.bat
雙擊執行，它會把d:\word目錄下的word檔案全部找出來寫在d:\word.txt檔案裡。。。
vb如何批量更改檔名？
5樓：匿名使用者
name 語句
重新命名一個檔案、目錄、或資料夾。
語法name oldpathname as newpathname
oldpathname --- 原檔名
newpathname --- 新檔名
例如：name "閭撳皬騫蟲椂浠e叏25絝_doc" as "閭撳皬騫蟲椂浠e叏25絝.doc"
6樓：匿名使用者
1、用 dir 遍歷目錄下檔案，
2、然後repalce替換 「_」 為 點，
3、最後 name...as...
用vb批量重新命名檔案，如何實現？
7樓：匿名使用者
replace(a,b,c)
在a中尋找b 替換成c
private sub command1_click()dim oldname
dim newname as string, i as integer, a as integer
oldname = array("z:\1.txt", "z:\2.txt")
for i = 0 to ubound(oldname)a = instr(1, oldname(i), "\")newname = replace(oldname(i), mid(oldname(i), 1, a), mid(oldname(i), 1, a) & chr(97 + i))
name oldname(i) as newnamenext
end sub
自己再加工一下吧
如何用vb修改檔名
8樓：梅萱夫丙
name
"d:\a.txt"
as"d:\b.txt"
同樣有複製的作用.
把後面的換個路徑的話
就會複製到那裡並重新命名
9樓：匿名使用者
private sub form_load()dim i as integer
i=121
end sub
新增一個按鈕，命名「修改」，加入如下**：
name "c:\abc\temp_" & i & ".txt" as "c:\abc\temp.txt"
i=i+1
新增一個按鈕，命名「刪除」，加入如下**：
kill "c:\abc\temp.txt"搞定
10樓：匿名使用者
二次補充：肯定沒問題了，把其他功能都去掉了，只剩下改名和刪除，如果想吧刪除去掉，就去註釋的那一句。
＝＝＝＝＝＝＝＝＝＝＝＝
建一個command1，如果需要，建立command2。
**如下。
＝＝＝＝＝＝＝＝＝＝＝＝
dim t as integer, s as stringprivate sub command1_click()name "c:\abc\temp_" & t & ".txt" as "c:
\abc\temp.txt"
kill "c:\abc\temp.txt" '不刪除的話去掉這一句t = t + 1
if t = 151 then end '比方說你想進行到檔案150，就要寫上151
end sub
private sub form_load()t = 121
end sub
11樓：
修改後全部刪掉,有什麼意義?
temp.txt也刪嗎 ?
樓上的就是全部刪掉了.
12樓：匿名使用者
name 語句
重新命名一個檔案、目錄、或資料夾。
語法name oldpathname as newpathname
name 語句的語法具有以下幾個部分：
部分描述oldpathname
必要引數。字串表示式，指定已存在的檔名和位置，可以包含目錄或資料夾、以及驅動器。
newpathname
必要引數。字串表示式，指定新的檔名和位置，可以包含目錄或資料夾、以及驅動器。而由 newpathname
所指定的檔名不能存在。
說明name 語句重新命名檔案並將其移動到一個不同的目錄或資料夾中。如有必要，name 可跨驅動器移動檔案。 但當 newpathname 和
oldpathname 都在相同的驅動器中時，只能重新命名已經存在的目錄或資料夾。 name 不能建立新檔案、目錄或資料夾。
在一個已開啟的檔案上使用 name，將會產生錯誤。必須在改變名稱之前，先關閉開啟的檔案。name 引數不能包括多字元 (*)
和單字元 (?) 的統配符。
name 語句示例
本示例使用 name 語句來更改檔案的名稱。示例中假設所有使用到的目錄或資料夾都已存在。
dim oldname, newname
oldname = "oldfile": newname = "newfile" ' 定義檔名。
name oldname as newname ' 更改檔名。
oldname = "c:\mydir\oldfile": newname = "c:\yourdir\newfile"
name oldname as newname ' 更改檔名，並移動檔案。
如何用vb批量建立資料夾以及更改檔名
13樓：網海1書生
在程式所在資料夾建立10個資料夾，名字分別是1到10，再在每個資料夾中建立5個子資料夾，名字分別是1到5：
把程式所在資料夾的所有txt檔案改名為1.txt、2.txt、3.txt.......n.txt：
如何批量提取多個的檔名，如何批量提取多個Word的檔名？
批量提取多個word的檔名的具體步驟如下 需要準備的材料分別是 電腦 word文件。1 首先開啟電腦，右鍵點選桌面空白處新建一個文字文件。2 然後在彈出來的視窗中點選開啟 4 然後點選檔案中的 儲存 關閉文字文件。5 右鍵單擊文字文件選擇重新命名。6 然後將字尾名改成 bat 然後雙擊該程式。7 然...
如何批量修改檔案字尾名，Win10怎麼批量修改檔案字尾名
快速批量修改副檔名的方法 步驟2，接下來就是設定的環節，檔案命名方式選擇 替換 副檔名的變更方式選擇 自定義 然後輸入新的副檔名 案例中我們就將輸入html 這時可以在右邊預覽到新的檔名稱。步驟3 確認沒有問題後，就可以點選 開始重新命名 按鈕了，啟動批量修改副檔名字尾的程式了，當軟體彈出 重新命名...
菜鳥級問題vb修改檔案內容，VB菜鳥級問題 高手指點一下 滿意追加分
dim r as integer 定義了兩次，你把錯誤資訊貼一下 vb菜鳥級問題 如何讀取textbox中使用者的輸入內容，將之賦給a呢？private sub command1 click a text1.text text2.text a end sub private sub command2...