有什么好方法吗？

nbzzh

在1个文件夹目录中，分别存放相同文件名，不同后缀名的文件数百个文件，如图所示；如何只保留相同的文件名文件，有什么好的方法吗？

super26

消灭0回复，，
是删文件夹里的文件操作？
还是删图片中的数据？
删文件，bat里的del命令，应该很方便，先找到文件名及路径，然后可以批量。

nbzzh

谢谢回复，仅根据要求将把 2.xls  9.xls  181.xls  4.xlsx  7.xlsx 在目录中删除，图片列示400个文件名，还会有不同的文件，如何处理呀，批处理如何写？

super26

用记事本写
del   2.xls  
del  9.xls
del  181.xls
del  4.xlsx  
del  7.xlsx

然后保存在和要删除文件相同目录下，扩展名是   .bat

文件删除有危险性！不进入回收站！！！谨慎操作。

nbzzh

4楼你好，你这只是个列，唯一性的，我要的是有没有适合共性的批处理语句。保留相同文件名的(如1.xls和1.xlsx等等文件),删除不相同的文件（如2.xls和4.xlsx等等文件）。

super26

nbzzh 发表于 2019-10-10 08:47
4楼你好，你这只是个列，唯一性的，我要的是有没有适合共性的批处理语句。保留相同文件名的(如1.xls和1.xls ...

如果是这种操作，那得试试python。

xiangbaoan

Option Explicit
Sub test()
Dim d As Object, p$, f$, s$
Set d = CreateObject("Scripting.Dictionary")
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.xls*")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        s = Replace(f, ".xlsx", ".xls")
        d(s) = d(s) + 1
    End If
    f = Dir
Loop
f = Dir(p & "*.xls*")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        s = Replace(f, ".xlsx", ".xls")
        If d(s) = 1 Then Kill p & f
    End If
    f = Dir
Loop
Set d = Nothing
End Sub