Syntax error in file open

[Docfxit]

I am trying to send a full path to an open box. The path does have a space in it. I can't figure out how to send it.

This line in the code:

$AddonsFiles[$i] = '"' & $AddonsDir & $AddonsFiles[$i] & '"'

Only puts in $AddonsDir into $AddonsFiles[$i]

If I change that line to:

$AddonsFiles[$i] = $AddonsDir & $AddonsFiles[$i]

It put in $AddonsDir & $AddonsFiles[$i]

but

I then have a problem on this line:

Send($AddonsFiles[$i])

It only shows &AddonsFiles[$i]

There is a space in the path.

I can't figure out how to put quotes around &AddonsFiles[$i] so the entire contents will go into the open box.

expandcollapse popup

#include "File.au3"
; Autoit code to instll extensions and themes into firefox
AutoItSetOption("TrayIconDebug", 1) ;0-off
; Set so that tray displays current line number
If _OSVersion() = "Win7" Or "Win7X64" Then
    $ProgramFiles = "C:\Programs"
Else
    $ProgramFiles = "C:\Program Files"
EndIf
;Declare Variables
$FireFoxDir = $ProgramFiles & '\FireFox\'
$FireFoxExe = $FireFoxDir & 'FireFox.exe'
$ScriptDir = "C:\Dnload\9xAddons"
$AddonsDir = @ScriptDir & '\FireFox Extensions\'
$AddonsFiles = _FileListToArray($AddonsDir)
For $i = 1 To $AddonsFiles[0]
    $AddonsFiles[$i] = ('"' & $AddonsDir & $AddonsFiles[$i] & '"')
Next
$appName = "[CLASS:MozillaWindowClass]"
$appHandle = WinGetHandle($appName, "")
If WinExists($appName) Then
    WinActivate($appHandle)
Else
    Run($FireFoxExe)
EndIf
WinActivate($appHandle)
For $i = 1 To $AddonsFiles[0]
    Switch StringRight($AddonsFiles[$i], 3)
        Case 'xpi'
;MsgBox(48, "File Number", $i)
            Send("{CTRLDOWN}o{CTRLUP}")
            WinWait("Open File", "Namespace Tree Contr")
            If Not WinActive("Open File", "Namespace Tree Contr") Then WinActivate("Open File", "Namespace Tree Contr")
            WinWaitActive("Open File", "Namespace Tree Contr")
MsgBox(48, "File Nname", $AddonsFiles[$i])
Send($AddonsFiles[$i])
            Send("{ALTDOWN}o{ALTUP}")
            WinWait("Software Installation", "")
            If Not WinActive("Software Installation", "") Then WinActivate("Software Installation", "")
            WinWaitActive("Software Installation", "")
;            Sleep(2500)
        Case 'jar'
            ; This is not working
            ;RunWait($FireFoxExe & ' -install-global-theme "' & $AddonsFiles[$i] & '"', $FireFoxDir)
        Case Else
            Sleep(0)
    EndSwitch
    ;close firefox
    ProcessClose('FireFox.exe *32')
Next
Exit
Func _OSVersion()
    Local $OS_Version, $servicepack_version
    $OS_Version = StringStripWS(StringRegExpReplace(@OSVersion, "(WIN_)|(Microsoft )|(Windows )|(\(TM\))|( Ultimate)", ""), 8)
    $OS_Version = StringRegExpReplace(StringRegExpReplace($OS_Version, '2008', 'Win7'), 'VISTA', 'Vista')
    If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", 'CurrentBuildNumber') > 7000 Then $OS_Version = 'Win7'
    $servicepack_version = StringReplace(@OSServicePack, "Service Pack ", "SP")
    If @error = -1 Then $servicepack_version = ""
    ConsoleWrite($OS_Version & $servicepack_version & StringRegExpReplace(@OSArch, '(X86)', '') & @CRLF)
    Return $OS_Version & $servicepack_version & StringRegExpReplace(@OSArch, '(X86)', '')
EndFunc   ;==>_OSVersion

Edited January 7, 2013 by docfxit

[DicatoroftheUSA]

You dont need parentheses around $AddonsFiles[$i] = ('"' & $AddonsDir & $AddonsFiles[$i] & '"').

replace runwait with clipput and paste the results to troubleshoot. It looks like you are adding quotes in the array, then adding more quotes when you run it.

Edited January 7, 2013 by DicatoroftheUSA

[BrewManNH]

Try using

Send($AddonsFiles[$i], 1) ; sends the contents of $AddonsFiles[$i] without parsing its contents

[Docfxit]

Before this code:

For $i = 1 To $AddonsFiles[0]
$AddonsFiles[$i] = '"' & $AddonsDir & $AddonsFiles[$i] & '"'
Next

The contents of the file are:

http://imgbin.org/images/11054.jpg

After the code is executed once the first line changes to this:

http://imgbin.org/images/11055.jpg

Thanks,

Docfxit

Edited January 8, 2013 by docfxit

[kylomas]

docfixit,

I would find out what value is in "$AddonsFiles[0]" as the following code works (quotation marks are similar to your code)

;
;

#include<array.au3>

local $AddonsDir = 'My dir for testing\'
local $AddonsFiles[2] = ['file1.addon','file2.addon']


For $i = 0 To ubound($AddonsFiles) - 1
$AddonsFiles[$i] = '"' & $AddonsDir & $AddonsFiles[$i] & '"'
Next

_arraydisplay($AddonsFiles)

kylomas

[Docfxit]

I have had success in formating the line correctly with this code:

expandcollapse popup

#include "File.au3"

; Autoit code to instll extensions and themes into firefox
AutoItSetOption("TrayIconDebug", 1) ;0-off
; Set so that tray displays current line number
If _OSVersion() = "Win7" Or "Win7X64" Then
$ProgramFiles = "C:\Programs"
Else
$ProgramFiles = "C:\Program Files"
EndIf
;Declare Variables
$FireFoxDir = $ProgramFiles & '\FireFox\'
$FireFoxExe = $FireFoxDir & 'FireFox.exe'
$ScriptDir = "C:\Dnload\9xAddons"
$AddonsDir = @ScriptDir & '\FireFox Extensions\'
$AddonsFiles = _FileListToArray($AddonsDir)
For $i = 1 To $AddonsFiles[0]
$AddonsFiles[$i] = "'" & $AddonsDir & $AddonsFiles[$i] & "'"
Next
$appName = "[CLASS:MozillaWindowClass]"
$appHandle = WinGetHandle($appName, "")
If WinExists($appName) Then
;WinWait("Firefox", "")
If Not WinActive("Firefox", "") Then WinActivate("Firefox", "")
WinWaitActive("Firefox", "")
; WinSetState($appHandle,"",@SW_RESTORE)
WinActivate($appHandle)
MsgBox(48, "Firefox", "Is Active")
WinsetOntop ( $appName, "", 1 )

Else
MsgBox(48, "Firefox", "Is Not Active")
Run($FireFoxExe)
EndIf
WinActivate($appHandle)
WinsetOntop ( $appName, "", 1 )
MsgBox(48, "Firefox", "Should be Active")

For $i = 1 To $AddonsFiles[0]
Switch StringRight($AddonsFiles[$i], 3)
Case 'xpi'
;MsgBox(48, "File Number", $i)
Send("{CTRLDOWN}o{CTRLUP}")
WinWait("Open File", "Namespace Tree Contr")
If Not WinActive("Open File", "Namespace Tree Contr") Then WinActivate("Open File", "Namespace Tree Contr")
WinWaitActive("Open File", "Namespace Tree Contr")
MsgBox(48, "File Nname", $AddonsFiles[$i])
Send($AddonsFiles[$i], 1)
Send("{ALTDOWN}o{ALTUP}")
WinWait("Software Installation", "")
If Not WinActive("Software Installation", "") Then WinActivate("Software Installation", "")
WinWaitActive("Software Installation", "")
; Sleep(2500)
Case 'jar'
; This is not working
;RunWait($FireFoxExe & ' -install-global-theme "' & $AddonsFiles[$i] & '"', $FireFoxDir)
Case Else
Sleep(0)
EndSwitch
;close firefox
ProcessClose('FireFox.exe *32')
Next
Exit
Func _OSVersion()
Local $OS_Version, $servicepack_version
$OS_Version = StringStripWS(StringRegExpReplace(@OSVersion, "(WIN_)|(Microsoft )|(Windows )|(\(TM\))|( Ultimate)", ""), 8)
$OS_Version = StringRegExpReplace(StringRegExpReplace($OS_Version, '2008', 'Win7'), 'VISTA', 'Vista')
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", 'CurrentBuildNumber') > 7000 Then $OS_Version = 'Win7'
$servicepack_version = StringReplace(@OSServicePack, "Service Pack ", "SP")
If @error = -1 Then $servicepack_version = ""
ConsoleWrite($OS_Version & $servicepack_version & StringRegExpReplace(@OSArch, '(X86)', '') & @CRLF)
Return $OS_Version & $servicepack_version & StringRegExpReplace(@OSArch, '(X86)', '')
EndFunc ;==>_OSVersion

I haven't been successful in bringing firefox to the forground.

Any ideas how to make it active?

Thanks,

Docfxit

Edited January 9, 2013 by docfxit