回 帖 发 新 帖 刷新版面

主题:if 跟 select case 语句

If Dir("桌面上有1.txt") <> "" Then 检测是否存在 文件名.exe
msgbox "1"
If Dir("桌面上有2.txt") <>"" Then
msgbox "2"
If Dir("如果这两个都没有 ") ="" Then
 
 msgbox "3"
  
怎么实现啊···

回复列表 (共3个回复)

沙发

If Len(Dir("路径\1.txt")) Then
  检测是否存在 文件名.exe
  msgbox "1"
ElseIf Len(Dir("路径\2.txt"))  Then
  msgbox "2"
Else
  msgbox "3"
End If

板凳

select case
    case "桌面上有0.txt"
        Print #1, "MovementZones" + "="; Infantry; ""
    case "桌面上有1.txt" 
        Print #1, "MovementZones" + "="; Fly; ""
    case "桌面上有2.txt"
        Print #1, "MovementZones" + "="; Destroyer; ""
    case "桌面上有3.txt"
        Print #1, "MovementZones" + "="; Water; ""
end select

这个语句  可以实现么

3 楼

不但不能,而且语法错误:select case 后面要有一个表达式

我来回复

您尚未登录,请登录后再回复。点此登录或注册