学习分享:删除当前目录下面的所定义有文件

jlf2003

删除当前目录下面的“数据”目录中所有文件
Sub Delete_File()
Dim str As String, myfile As String
myfile = ThisWorkbook.Path'当前文件所在路径
str = Dir(myfile & "\数据\*.*", vbReadOnly) '通配符*.*表示任意文件，如果想删除excel文件，用*.xl*
While str <> ""  '判断文件名是否存在
   Kill myfile & "\数据\" & str '如果存在，则进行删除
   str = Dir
Wend
End Sub

xpm130

这个功能的用途不怎么大吧.