查人人中国名人网发票专用章还用备案吗:这段代码哪里错了？为什么没有反应？
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/01 14:47:03
Private Sub Command1_Click()
f = Dir("C:\12345.txt")
If f = "C:\12345.txt" Then
Kill "C:\12345.txt"
MsgBox "删除成功！"
If f <> "C:\12345.txt" Then
End
End If
End If
End Sub
f = Dir("C:\12345.txt")
If f = "C:\12345.txt" Then
Kill "C:\12345.txt"
MsgBox "删除成功！"
If f <> "C:\12345.txt" Then
End
End If
End If
End Sub
嵌套错了
Private Sub Command1_Click()
f = Dir("C:\12345.txt")
If f = "C:\12345.txt" Then
Kill "C:\12345.txt"
MsgBox "删除成功！"
End If '<===============这里先end if
If f <> "C:\12345.txt" Then
End
End If
End Sub
不过你另一个IF也没做任何操作。如果没有文件12345.txt的话按了COMMAND就是应该没反应。。
好像我记得Dir是返回文件名啊
f = Dir("C:\12345.txt") 后 如果文件存在
f＝12345.txt
你可以使用Msgbox来验证一下返回值嘛
f = Dir("C:\12345.txt")
MsgBox f
If f = "C:\12345.txt" Then
这里就跳出了吧
对，如果文件存在，Dir返回文件名。
If语句应改成：
If f = "12345.txt" Then
Kill "C:\12345.txt"
……