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

求助,大家来看看帮忙指点指点..多谢!
假如AAAA文件夹下有很多个子文件夹,每个子文件夹里又有很多文件,文件名如:880-3301-M11A-4T05
我现在想要做的是把那个名件名中的"-"去掉,变成"8803301M11A4T05"该怎么做呢..
这么多文件夹,这么多文件怎么做好呢...

[解决办法]
遍历所有

搜索一下有遍历的现成代码
[解决办法]

VB code

Sub main()    File_Folder_List ("D:\AAAAA")End SubPrivate 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 = NothingEnd Sub
[解决办法]
楼上很详细了，真正关键的就是
If InStr(1, f1, "-") Then Name f1 As Replace(f1, "-", "")
  这段代码了。其他你可以根据实际情况发挥了。
[解决办法]
根本用不着 if
直接 f1=replace(f1,"-","")不就行了.
[解决办法]
探讨

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

[解决办法]
探讨

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