古书排版模板:这段代码哪里错了?为什么没有反应?
来源:百度文库 编辑:高校问答 时间:2024/10/02 17:50:45
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"
……