Question

vb 中 判断给定路径中是否存在某excel文件，存在则删掉它，新建一个excel,不存在则直接新建即可

问题如题，望各大侠帮帮忙。感激不尽
请给出程序，然后作较详细的注解。新建excel文件这部分程序我会，判断和删除这两步操作我不会，谢谢

Answer 1

Private Sub Command1_Click() '打开EXCEL过程
If Dir("D:\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\bb.xls") '打开EXCEL工作簿
Set xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表
Else
Kill "d:\bb.xls" '删除文件
End If
End Sub

Answer 2

最简单的办法就是添加一个 filelistbox 把扩展名设置成 excel文件扩展名，路径设置成你需要的路径；
然后根据列表中的地址和文件名循环 删除

还有一个简单的办法就是

直接用VB自带函数kill
Kill "C:\abc\*.*" '表示删除C盘abc目录下的所有文件。 注意扩展名 我这里是所有文件

如果要将文件夹删除只需加上以下语句：
RmDir "C:\abc"