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

konamiabc

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

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

skyfree

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

konamiabc

回复 3# skyfree


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

konamiabc

回复 2# shqf


    说了第10行错了,但怎么写都不对~~