konamiabc 发表于 2014-7-14 15:19:29

s大的一段代码,能告诉我怎么错了吗```

Opt("MustDeclareVars",1)
_Main()
Exit
Func _Main()
Local $DriversDir= EnvGet("SystemDrive") & "\Drivers"
Local $CameraDir = $DriversDir & "\Camera"
Local $TemDir = EnvGet("WinDir") & "\Temp"
If FileExists($DriversDir)Then
      Local $r= MsgBox(3+32,"3-3",_
      "发现"&$DriversDir&",是否全部删除？"_
      &@CRLF&@CRLF&_
      "单击"是",全部删除;"&@CRLF&_
      "单击"否",保留摄像头驱动;"&@CRLF&_
      "单击"取消",不删除")
      If $r = 6 Then
                DirRemove($DriversDir,1)
                MsgBox(0+64,"3-3","全部驱动已删除")
      ElseIf $f =7 Then
                DirMove($DriversDir&"\Camera",_
                $TempDir & "\_Camera",1)
                DirRemove($DriversDir,1)\
                DirCreate($DriversDir)
                DirMove($TemDir&"\_Camera",_
                $DriversDir&"\Camera",1)
                MsgBox(0+64,"3-3",_
                "除摄像头以外的驱动已删除！")
      ElseIf $r =2 Then
                MsgBox(0+64,"3+3","全部驱动已保留")
      EndIf
Else
      MsgBox(0,"3-3","未发现"&$DriversDir&"!")
EndIf
EndFunc ;==>_Main

shqf 发表于 2014-7-14 16:08:12

楼主没用SciTE编辑器吗？里面有“语法检查”功能啊。会告诉 你错在哪行，什么样的错。
“ElseIf $f =7 Then ” 一句中的变量$f应该是$r吧！

skyfree 发表于 2014-7-14 18:19:18

这是你自己抄的代码吧？？我原始的范例代码里不可能有错误。

konamiabc 发表于 2014-7-15 17:23:56

回复 3# skyfree


    哇,没想到见到本人~~我是手抄本~~所以才不知道哪抄错了```

konamiabc 发表于 2014-7-15 17:25:59

回复 2# shqf


    说了第10行错了,但怎么写都不对~~
页: [1]
查看完整版本: s大的一段代码,能告诉我怎么错了吗```