[решено] Открытие файла в программе

[cra5h_]

Задача следующая - открыть файл из папки в определенной программе. Слепил скрипт

$message = "Open File"
$var = FileOpenDialog($message,"c:\1\", "Mail (w*.*)", 1 + 4 )
If @error Then
MsgBox(4096,"","No File(s) chosen")
Else
Run ("c:\Program Files\Microsoft Office\Office\WINWORD.EXE" & $var)
EndIf

Но не работает.
Пробовал заменить в Run на :
Run ("c:\Program Files\Microsoft Office\Office\WINWORD.EXE $var")

не помогло.
Что не так я делаю?

[SyDr]

Run ("c:\Program Files\Microsoft Office\Office\WINWORD.EXE" & $var)
Run ("c:\Program Files\Microsoft Office\Office\WINWORD.EXE " & $var)
Пробел забыл.

[cra5h_]

Да точно, изза пробела проблема была.
А как прикрутить проверку файлов по маске - например если файл w*.* он открывается в Word, если g*.* то в Excel ?

[SyDr]

StringMid($Var, 1, 1) - первая буква в строке.
StringSplit ($Var, "\") - разбивает строку на подстроки с указанным разделителем.

$aTempArray = StringSplit ($Var, "\")
$n = $aTempArray[0]
If StringMid($aTempArray[$n], 1, 1) = 'w' Then
Run("word")
Else
Run("Excel")
EndIf

[cra5h_]

Подскажите как отобразить прогресс перемещения файлов (каким нибудь прогресс баром), и вывести список перемещенных файлов? количество файлов может быть разным в папке