刚好闲着没事干。所以就分享下自己在学习、实习中碰到的实际问题的时候，就自己编些小程序。同大家分享。


比如：我现在要想批量修改文件夹中全部或者部分文件的文件名。显然，当文件的量比较大的时候，手动修改起来比较麻烦。

附件只是提取出文件的文件名，修改的话再补充一段程序就可以了，再用name等接着编。



主要代码如下：
Private Sub CommandButton1_Click() 'shell 方法
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "选择文件夹", 0, 0)
If Not objFolder Is Nothing Then
MsgBox objFolder.self.Path
'使用shell方法得到文件夹路径
Range("a2:b65536").ClearContents
With Application.FileSearch
.LookIn = objFolder.self.Path
.Filename = "*.*" ’如果需要不同的文件类型，只需要修改扩展名比如改为“*.xls”
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
x = Split(.FoundFiles(i), "\")
Cells(i + 1, 1) = i
Cells(i + 1, 2) = x(UBound(x))
Next i
End If
End With
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub

说明：上面的程序在2007及以上的版本中不能用，因为filesearch不一样。待会再传个2007能用的版本