我正在尝试删除目录中除4个文件之外的所有文件。我知道如何使用下面的代码删除除特定文件以外的所有文件,但是我敢肯定它会得到改善。有没有我没有找到的缩短的命令?
Sub Kill_Files()
Dim fname As String
fname = Dir$(ThisWorkbook.Path & "\*.*")
Do While Len(fname) > 0
If Left(fname, 10) <> "AAAAAAAAAA" Then
If Left(fname, 10) <> "BBBBBBBBBB" Then
If Left(fname, 10) <> "CCCCCCCCCC" Then
If Left(fname, 10) <> "DDDDDDDDDD" Then
Kill fname
End If
End If
End If
End If
fname = Dir$
Loop
End Sub
您可以IF
通过以下方法删除嵌套的:
Sub Kill_Files()
Dim fname As String
fname = Dir$(ThisWorkbook.Path & "\*.*")
Do While Len(fname) > 0
If Not (Left(fname, 10) = "AAAAAAAAAA" _
Or Left(fname, 10) = "BBBBBBBBBB" _
Or Left(fname, 10) = "CCCCCCCCCC" _
Or Left(fname, 10) = "DDDDDDDDDD") Then
MsgBox fname '<-- change this back to a Kill to see the code in action
End If
fname = Dir$
Loop
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句