关于用AUTOIT删除解压出来的文件目录的问题，知道的请进。

oldbie

我做了一个SQL2000 SP4补丁的自动安装脚本，因为要刻盘所以SP4补丁是压缩包，我选择解压出来运行，但希望安装完毕后把我解压出来的文件删除掉，但是加了删除的脚本，每次都不会执行我的删除代码，请问有没有人知道是怎么回事呀？下面是我的代码。最后面“If FileExists("C:\SQL2KSP4) Then
    DirRemove("C:\SQL2KSP4", 1)
EndIf “这段代码使终不会执行，文件夹是存在的，但是就是不会给我删除掉，如果是单独把这段代码写成一个文件又能删除掉。

TrayTip("","正在进行Microsoft SQL Server2000 SP4补丁的安装,请勿对键盘及鼠标进行操作直到安装结束!",6,1)
       
Sleep(4000)

If FileExists("c:\SQL2KSP4")=1 Then
    DirRemove("c:\SQL2KSP4", 1)
EndIf

run("..\software\SQL2KSP4.exe")

WinWait(" - InstallShield Wizard","将文件保存到文件夹")
If Not WinActivate(" - InstallShield Wizard","将文件保存到文件夹") Then
        WinActivate(" - InstallShield Wizard","将文件保存到文件夹")
winwaitactive(" - InstallShield Wizard","将文件保存到文件夹")
EndIf

ControlSetText(" - InstallShield Wizard","将文件保存到文件夹","Edit1","C:\SQL2KSP4")

Sleep(500)

ControlClick(" - InstallShield Wizard", "", "Button3")


IF WinWaitActive("覆盖保护","全部覆盖",1)=1 Then
       
        ControlClick("覆盖保护", "", "Button4")
EndIf

WinWait(" - InstallShield Wizard","InstallShield Wizard 已完成在计算机中安装 ")
If Not WinActivate(" - InstallShield Wizard","InstallShield Wizard 已完成在计算机中安装 ") Then
        WinActivate(" - InstallShield Wizard","InstallShield Wizard 已完成在计算机中安装 ")
winwaitactive(" - InstallShield Wizard","InstallShield Wizard 已完成在计算机中安装 ")
EndIf
ControlClick(" - InstallShield Wizard", "", "Button4")

run("c:\SQL2KSP4\x86\setup\setupsql.exe")

WinWait("欢迎","安装向导允许您升级 SQL Server 2000 的现有实例")
If Not WinActivate("欢迎","安装向导允许您升级 SQL Server 2000 的现有实例") Then
        WinActivate("欢迎","安装向导允许您升级 SQL Server 2000 的现有实例")
winwaitactive("欢迎","安装向导允许您升级 SQL Server 2000 的现有实例")
EndIf
    ;等待窗体"欢迎","安装向导允许您升级 SQL Server 2000 的现有实例"出现

ControlClick("欢迎", "", "Button1")

WinWait("软件许可证协议","阅读协议的其它部分")
If Not WinActivate("软件许可证协议","阅读协议的其它部分") Then
        WinActivate("软件许可证协议","阅读协议的其它部分")
WinWaitActive("软件许可证协议","阅读协议的其它部分")
EndIf
ControlClick("软件许可证协议", "", "Button2")

WinWait("实例名","新名称必须不超过 16 个字符")
If Not WinActivate("实例名","新名称必须不超过 16 个字符") Then
        WinActivate("实例名","新名称必须不超过 16 个字符")
WinWaitActive("实例名","新名称必须不超过 16 个字符")
EndIf

ControlClick("实例名", "", "Button3")

WinWait("连接到服务器","身份验证模式")
If Not WinActivate("连接到服务器","身份验证模式") Then
        WinActivate("连接到服务器","身份验证模式")
WinWaitActive("连接到服务器","身份验证模式")
EndIf

ControlClick("连接到服务器", "", "Button1")

WinWait("SA 密码警告","即便已使用 Windows 身份验证")
If Not WinActivate("SA 密码警告","即便已使用 Windows 身份验证") Then
        WinActivate("SA 密码警告","即便已使用 Windows 身份验证")
WinWaitActive("SA 密码警告","即便已使用 Windows 身份验证")
EndIf

ControlClick("SA 密码警告", "", "Button2")

Sleep(500)

ControlClick("SA 密码警告", "", "Button3")


IF WinWaitActive("SQL Server 2000 Service Pack 4 安装程序","对所有数据库启用跨数据库的所有权链接",1)=1 then

ControlClick("SQL Server 2000 Service Pack 4 安装程序", "", "Button2")

Sleep(500)

ControlClick("SQL Server 2000 Service Pack 4 安装程序", "", "Button5")

EndIf

WinWait("错误报告","确定")
If Not WinActivate("错误报告","确定") Then
        WinActivate("错误报告","确定")
WinWaitActive("错误报告","确定")
EndIf

ControlClick("错误报告", "", "Button1")

WinWait("开始复制文件","请单击“下一步”开始复制文件")
If Not WinActivate("开始复制文件","请单击“下一步”开始复制文件") Then
        WinActivate("开始复制文件","请单击“下一步”开始复制文件")
WinWaitActive("开始复制文件","请单击“下一步”开始复制文件")
EndIf

ControlClick("开始复制文件", "", "Button1")

WinWait("安装","确定")
If Not WinActivate("安装","确定") Then
        WinActivate("安装","确定")
WinWaitActive("安装","确定")
EndIf

ControlClick("安装", "", "Button1")

WinWait("安装完毕","完成")
If Not WinActivate("安装完毕","完成") Then
        WinActivate("安装完毕","完成")
WinWaitActive("安装完毕","完成")
EndIf

ControlClick("安装完毕", "", "Button4")

Sleep(2000)

If FileExists("C:\SQL2KSP4) Then
    DirRemove("C:\SQL2KSP4", 1)
EndIf

TrayTip("","Microsoft SQL Server2000 SP4补丁已经安装完毕!现在可以进行其他的操作了",5,1)
sleep(5000)

rho123

你手动能删掉么？

oldbie

手动是肯定能删除的，而且把删除代码单独出来运行也是能删除，就是放在这整个脚本的后面貌似就没有起作用了。

liongodmien

原帖由 oldbie 于 2008-11-13 16:15 发表
手动是肯定能删除的，而且把删除代码单独出来运行也是能删除，就是放在这整个脚本的后面貌似就没有起作用了。

在删除前的延时长一点或监察某个进程结束后进行删除

shijincun

ProcessWaitClose("SETUP")
等待进程完成再进行下面操作

yellow881

前面两位的正解