用VB批量修改文件名

'一个command1 一个text1 ,text1.text 是目录
Private Sub Command1_Click()
Text1.Text = Trim(Text1.Text)
Call 重命名文件("File", 1, ".Txt", Text1.Text)
End Sub
Private Sub 重命名文件(固定字段 As String, 浮动字段 As Long, 后缀名 As String, 目录 As String)

If Right(目录, 1) <> "\" Then 目录 = 目录 & "\"
If Dir(目录, vbDirectory) = "" Then MsgBox "目录不存在!": Exit Sub
If Left(后缀名, 1) <> "." Then MsgBox "后缀名错误!": Exit Sub
Dim sDir As String
sDir = Dir(目录 & "*.*", vbDirectory)
Do While Len(sDir)
If sDir <> "." And sDir <> ".." Then
If GetAttr(目录 & sDir) And vbDirectory Then
'如果是目录
Else
Name 目录 & sDir As 目录 & 固定字段 & 浮动字段 & 后缀名
浮动字段 = 浮动字段 + 1
End If
End If
sDir = Dir
Loop

End Sub

循环用dir函数遍历d:\a目录下所有文件得到文件名然后改名即可

电脑小技巧之批量提取文件名

先 c=dir(d:\a)
do while not dir()=""
c=dir()
name "d:\a\" & c "d:\a\u" & c
loop

==