如何批量去掉檔案夾中帶數字的TXT檔案名中的數字
如d:\wj\abb123.txt abc124.txt 批量改成 abb.txt abc.txt
uj5u.com熱心網友回復：
怎樣取得各級子目錄下的檔案名（包含全路徑）上個帖子 VB 如何將文本檔案名中的數字去掉，假定你已經封裝成函式 RemoveNumber()
Dim colFiles As Collection
Dim i As Long
Dim s1 As String
Dim s2 As String
Set colFiles = SearchFiles("D:\wj\","*.txt")
For i = 1 To colFiles.Count
s1 = colFiles(i)
s2 = RemoveNumber(s1)
If s1 <> s2 Then
Name s1 As s2
End If
Next
uj5u.com熱心網友回復：
暈，你上次問一個的，現在又問“批量”的，自己不會“轉個彎彎”啊！
Private Sub Command1_Click()
Dim strPath As String
Dim strName As String
Dim strTemp As String
Dim i As Long
strPath = "D:\wj\" ' 路徑最后要有 \
strTemp = Dir$(strPath & "*.txt")
Do
If (strTemp = "") Then Exit Do
strName = strTemp
For i = 0 To 9
strName = Replace(strName, i, "")
Next
If (strName <> strTemp) Then
Name strPath & strTemp As strPath & strName
End If
strTemp = Dir$()
Loop
End Sub
uj5u.com熱心網友回復：
如果樓主只關心功能實作我可以推薦樓主一個工具XRename，對于這個問題一行命令就解決了，簡潔高效易懂。XRename.exe delete -dir d:\wj\ -string /\d+/g
XRename介紹：http://blog.csdn.net/sysdzw/article/details/6198257
本問題完全解決流程：http://blog.csdn.net/sysdzw/article/details/50499279
XRename的相關命令：
uj5u.com熱心網友回復：
挺牛的一個命令列。只是引數太復制，對于沒有基礎的人來說是天書了。
uj5u.com熱心網友回復：
其實慢慢看下去還是挺簡單的。控制臺下的命令不也是一個個學的么。
上面這個命令如果在當前要處理的目錄下更短。看起來就像一句自然英語。。
XRename.exe delete -dir d:\wj\ -string /\d+/g ‘等價于
xrename delete -string /\d+/g
uj5u.com熱心網友回復：
vb能完成的話用vb就好啦完成不了才用命令列吧
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/81861.html
標籤：VB基礎類