[amel27]

Creat0R

если дата файла в сети имеет не чётные секунды, то у меня всегда будет разница в данных »

не понял в чем проблема?.. просто округляй секунды перед сравнением до четного числа

Нужно напечатать файл-изображение, но при печати должен быть выведен диалог Мастера печати...

можно и через Shell.Application:

Код:

_FileOpenPrint("D:\BUF\P1010376.JPG")

While 1
    Sleep (100)
WEnd

Func _FileOpenPrint ($sFilePath)
    Local $oShellApp = ObjCreate('shell.application')
    Local $sPath = StringRegExpReplace($sFilePath, "\\[^\\]+$", "")
    If @extended =0 Then $sPath = @WorkingDir
    Local $oPath = $oShellApp.Namespace ($sPath), $oItem
    For $oItem In $oPath.items
        If $oItem.Path = $sFilePath Then
            ConsoleWrite($oItem.Path &@CRLF)
            $oItem.InvokeVerb('&Печать')
        EndIf
    Next
EndFunc ; => _FileOpenPrint

; Эта UDF может быть полезна для просмотра поддерживаемых Verbs
Func _FileListVerbs($sFilePath)
    Local $oShellApp = ObjCreate('shell.application')
    Local $sPath = StringRegExpReplace($sFilePath, "\\[^\\]+$", "")
    If @extended =0 Then $sPath = @WorkingDir
    Local $oPath = $oShellApp.Namespace ($sPath), $oItem
    For $oItem In $oPath.items
        If $oItem.path = $sFilePath Then
            Local $oVerbs = $oItem.Verbs
            For $oVerb In $oVerbs
                ConsoleWrite($oVerb.Name &@CRLF)
            Next
        EndIf
    Next
EndFunc ; => _FileListVerbs