File Version

[grtech]

ok got a slight issue here.

basically what i want is, if one file exist then to run it, but if that file doesnt exist and another one does then to run that one, but if none of them exist then to popup and error message and end the script.

CODE

if FileExists("C:\Program Files\Microsoft Office\Office12\Outlook.exe") Then

$ver = FileGetVersion("outlook.exe")

$Version = "12"

EndIf

if FileExists("C:\Program Files\Microsoft Office\Office11\Outlook.exe") Then

$ver = FileGetVersion("outlook.exe")

$Version = "11"

EndIf

#cs MsgBox(0, "outlook version", $version)

#ce

MsgBox(49, "Outlook update.", "Outlook is about to be updated by GROUPIT. Please wait until the process has completed. This message will close in 10 seconds", 10)

Opt("WinWaitDelay",100)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

if not ProcessExists("OUTLOOK.EXE") Then

if $Version = "11" Then

Run('C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE')

WinWait("Inbox - Microsoft Outlook","NUIDocumentWindow")

; EndIf

if $Version = "12" Then

Run('C:\Program Files\Microsoft Office\OFFICE12\OUTLOOK.EXE')

WinWait("Inbox - Microsoft Outlook","NUIDocumentWindow")

Else

MsgBox(17, "Outlook update.", "Error! Unable to locate OUTLOOK. Please report to GROUPIT via an OTIS now.", 10)

exit 1

EndIf

EndIf

[akhenertai]

grtech

try to use the If..ElseIf.. Else statement, might solve it

[Yoriz]

From the help file

If <expression> Then

statements

...

[ElseIf expression-n Then

[elseif statements ... ]]

...

[Else

[else statements]

...

EndIf

Parameters

expression If the expression is true, the first statement block is executed. If not, the first true ElseIf block is executed. Otherwise, the "Else" block is executed.

[bogQ]

ok got a slight issue here.

basically what i want is, if one file exist then to run it, but if that file doesnt exist and another one does then to run that one, but if none of them exist then to popup and error message and end the script.

this can probably work

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Select
    Case FileExists("C:\Program Files\Microsoft Office\Office12\Outlook.exe")
        $ver = FileGetVersion("outlook.exe")
        $Version = "12"
    Case FileExists("C:\Program Files\Microsoft Office\Office11\Outlook.exe")
        $ver = FileGetVersion("outlook.exe")
        $Version = "11"
    Case Else
        MsgBox(17, "Outlook update.", "Error! Unable to locate OUTLOOK. Please report to GROUPIT via an OTIS now.", 10)
        Exit
EndSelect
MsgBox(49, "Outlook update.", "Outlook is about to be updated by GROUPIT. Please wait until the process has completed. This message will close in 10 seconds", 10)
if not ProcessExists("OUTLOOK.EXE") Then
    Run("C:\Program Files\Microsoft Office\OFFICE"&$Version&"\OUTLOOK.EXE")
    WinWait("Inbox - Microsoft Outlook","NUIDocumentWindow")
EndIf

[grtech]

der lol i have used that before as well, yes that works well and have now changed to select script, but not i have added the rest and having an issue with the second part running. this is my full script

expandcollapse popup

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Select
    Case FileExists("C:\Program Files\Microsoft Office\Office12\Outlook.exe")
        $ver = FileGetVersion("outlook.exe")
        $Version = "12"
    Case FileExists("C:\Program Files\Microsoft Office\Office11\Outlook.exe")
        $ver = FileGetVersion("outlook.exe")
        $Version = "11"
    Case Else
        MsgBox(17, "Outlook update.", "Error! Unable to locate OUTLOOK. Please report to GROUPIT via an OTIS now.", 10)
        Exit
EndSelect
MsgBox(49, "Outlook update.", "Outlook is about to be updated by GROUPIT. Please wait until the process has completed. This message will close in 10 seconds", 10)
    if not ProcessExists("OUTLOOK.EXE") Then
        Run("C:\Program Files\Microsoft Office\OFFICE"&$Version&"\OUTLOOK.EXE")
        WinWait("Inbox - Microsoft Outlook","NUIDocumentWindow")
;   EndIf
If Not WinActive("Inbox - Microsoft Outlook","NUIDocumentWindow") Then WinActivate("Inbox - Microsoft Outlook","NUIDocumentWindow")
WinWaitActive("Inbox - Microsoft Outlook","NUIDocumentWindow")
Send("{ALTDOWN}to{ALTUP}")
WinWait("Options","Change the appearanc")
If Not WinActive("Options","Change the appearanc") Then WinActivate("Options","Change the appearanc")
WinWaitActive("Options","Change the appearanc")
Send("{SHIFTDOWN}{TAB}{SHIFTUP}{RIGHT}")
WinWait("Options","Set up e-mail accoun")
If Not WinActive("Options","Set up e-mail accoun") Then WinActivate("Options","Set up e-mail accoun")
WinWaitActive("Options","Set up e-mail accoun")
Send("{RIGHT}")
WinWait("Options","Choose a format for ")
If Not WinActive("Options","Choose a format for ") Then WinActivate("Options","Choose a format for ")
WinWaitActive("Options","Choose a format for ")
Send("{RIGHT}")
#cs
this is outlook 2003
#ce
if $Version = "11" Then
    WinWait("Options","Always &suggest repl")
    If Not WinActive("Options","Always &suggest repl") Then WinActivate("Options","Always &suggest repl")
    WinWaitActive("Options","Always &suggest repl")
    Send("{RIGHT}")
#cs security tab in 2003
#ce
    WinWait("Options","&Encrypt contents an")
    If Not WinActive("Options","&Encrypt contents an") Then WinActivate("Options","&Encrypt contents an")
    WinWaitActive("Options","&Encrypt contents an")
EndIf
#cs
this is outlook 2007
#ce
if $Version = "12" Then
    WinWait("Options","Always &check spell")
    If Not WinActive("Options","Always &check spell") Then WinActivate("Options","Always &check spell")
    WinWaitActive("Options","Always &check spell")
EndIf
Send("{RIGHT}")
WinWait("Options","&Empty the Deleted I")
If Not WinActive("Options","&Empty the Deleted I") Then WinActivate("Options","&Empty the Deleted I")
WinWaitActive("Options","&Empty the Deleted I")
Send("{ALTDOWN}t{ALTUP}")
WinWait("AutoArchive","&Run AutoArchive eve")
If Not WinActive("AutoArchive","&Run AutoArchive eve") Then WinActivate("AutoArchive","&Run AutoArchive eve")
WinWaitActive("AutoArchive","&Run AutoArchive eve")
Send("{ALTDOWN}l{ALTUP}")
;send("{TAB 11}")
;sleep(1000)
WinWaitActive("AutoArchive","&Run AutoArchive eve")
ControlClick("AutoArchive","", 1)
;Send("{ENTER}")
;sleep(1000)
;send("{TAB}")
;Send("{ENTER}")
;sleep(1000)
WinWait("Options","&Empty the Deleted I")
If Not WinActive("Options","&Empty the Deleted I") Then WinActivate("Options","&Empty the Deleted I")
WinWaitActive("Options","&Empty the Deleted I")
ControlClick("Options","&Empty the Deleted I", 1)
;Send("{TAB 11}")
;sleep(1000)
;send("{Enter}")
sleep(1000)
MsgBox(65, "Outlook update.", "Outlook update by GROUPIT. The update is now completed. Thank you for co-operating. Any issues please log an OTIS in the normal manor", 10)
EndIf

Edited June 26, 2009 by grtech

[grtech]

forget it i have solved it, i needed to move an endif...

Thanks for your help guys

GRTech