[Creat0R]

amel27,

без контроля ошибок и разделения пути

Но оно работает у тебя? у меня нет - если задать пустое значение для verb, то открывает файл в программе по умолчанию.

Вот версия с разделением путей, но у меня по прежнему не работает:

Код:

_OpenFileProperties("C:\Test.txt", "Сво&йства")

Func _OpenFileProperties($sFilePath, $Verb='Open')
    Local $sFileName = StringRegExpReplace($sFilePath, '.*\\|\.[^.]*$', '')
    Local $sPath = StringRegExpReplace($sFilePath, '\\[^\\]*$', '')

    Local $oShellApp = ObjCreate('shell.application')
    Local $oDir = $oShellApp.Namespace($sPath), $oName

    For $oName In $oDir.Items
        If $oName.Name = $sFileName Then
            ;$objVerbs = $oDir.Self.Verbs
            ;$Verb = $objVerbs.Item(0).Name
            $oName.InvokeVerb($Verb)
        EndIf
    Next
EndFunc