Nick F0x

$dir = IniRead("odt2any.ini", "Main", "OO", "OpenOffice.org 3")
$ext = IniRead("odt2any.ini", "Main", "ext", "doc")
$int = IniRead("odt2any.ini", "Main", "int", "odt")
$del = IniRead("odt2any.ini", "Main", "delete", "0")
If $CmdLine[0] = 0  Then
        $Dir2Convert = @ScriptDir
Else
        $Dir2Convert = $CmdLine[1]
        If StringRight($Dir2Convert,1) = "\" Then $Dir2Convert = StringTrimRight ($Dir2Convert, 1)
EndIf

; MsgBox(4096, "Result", $dir & $ext)
$command = '"' & @ProgramFilesDir & '\' & $dir &'\program\soffice.exe" -accept="socket,port=8100;urp;"'
Run ($command,@ScriptDir,@SW_MINIMIZE)
ProcessWait("soffice.bin")

; Shows the filenames of all files in the current directory
$search = FileFindFirstFile($Dir2Convert & "\*." & $int)

; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf
$count = 0
While 1
        $file = FileFindNextFile($search)
    If @error Then ExitLoop
        $count = $count + 1
        TrayTip ("&#1054;&#1073;&#1088;&#1072;&#1073;&#1072;&#1090;&#1099;&#1074;&#1072;&#1077;&#1090;&#1089;&#1103;:", $file, 5, 1)

        $newname = StringReplace($file, $int, $ext)
        $command = '"' & @ProgramFilesDir & '\' & $dir &'\program\python.exe" DocumentConverter.py "'  & $Dir2Convert & '\' & $file & '" "' & $Dir2Convert & '\' & $newname & '"'
        Run ($command,@ScriptDir,@SW_MINIMIZE)
        ProcessWaitClose("python.exe")
        $time_file = FileSetTime($Dir2Convert & "\" & $newname, FileGetTime ($Dir2Convert & "\" & $file, 0, 1), 0)
        $time_file = FileSetTime($Dir2Convert & "\" & $newname, FileGetTime ($Dir2Convert & "\" & $file, 1, 1), 1)
        $time_file = FileSetTime($Dir2Convert & "\" & $newname, FileGetTime ($Dir2Convert & "\" & $file, 2, 1), 2)

        If $del = 1 Then
                FileDelete ($Dir2Convert & "\" & $file)
;               TrayTip ("&#1059;&#1076;&#1072;&#1083;&#1103;&#1077;&#1090;&#1089;&#1103;:", $file, 5, 1)
        EndIf
; MsgBox(4096, "File:", $file)

WEnd


; Close the search handle
FileClose($search)

TrayTip ("&#1047;&#1072;&#1074;&#1077;&#1088;&#1096;&#1077;&#1085;&#1086;:", "&#1050;&#1086;&#1085;&#1074;&#1077;&#1088;&#1090;&#1080;&#1088;&#1086;&#1074;&#1072;&#1085;&#1086;: " & $count, 5, 1)
; MsgBox(4096, "&#1047;&#1072;&#1074;&#1077;&#1088;&#1096;&#1077;&#1085;&#1080;&#1077;", "&#1050;&#1086;&#1085;&#1074;&#1077;&#1088;&#1090;&#1080;&#1088;&#1086;&#1074;&#1072;&#1085;&#1086;: " & $count)