Dim FileExists As Boolean
Dim filePath = "D:\Book1.xls"
fileExists = My.Computer.FileSystem.FileExists(filePath)
If fileExists = False Then
MsgBox("文件不存在")
Else
'文件存在则删除文件
My.Computer.FileSystem.DeleteFile(filePath, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
End If