,大家来看看帮忙指点指点.谢谢

Sub main()
    File_Folder_List ("D:\AAAAA")
End Sub

Private Sub File_Folder_List(ByVal source As String)
    '循环处理文件集合
    Dim fs, f, f1, d1, dFileList, dFolderList
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(source)    'fs 有 Files 和 SubFolders 集合
    
    Set dFileList = f.Files
    For Each f1 In dFileList
        '处理集合中的文件
        If InStr(1, f1, "-") Then Name f1 As Replace(f1, "-", "") '改名
    Next f1
    If IsObject(f1) Then Set f1 = Nothing
    If IsObject(dFileList) Then Set dFileList = Nothing

    Set dFolderList = f.SubFolders
    For Each d1 In dFolderList
        '处理集合中的文件夹
        File_Folder_List d1 '进入子文件夹
    Next d1
    If IsObject(d1) Then Set d1 = Nothing
    If IsObject(dFolderList) Then Set dFolderList = Nothing
    
    If IsObject(f) Then Set f = Nothing
    If IsObject(fs) Then Set fs = Nothing
End Sub

------解决方案--------------------
楼上很详细了，真正关键的就是
If InStr(1, f1, "-") Then Name f1 As Replace(f1, "-", "")
  这段代码了。其他你可以根据实际情况发挥了。

------解决方案--------------------
根本用不着 if
直接 f1=replace(f1,"-","")不就行了.

------解决方案--------------------