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


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

附件只是提取出文件的文件名，修改的话再补充一段程序就可以了，再用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能用的版本