Single Post - Autorun :: Total Commander

Hidden text

Code:

SetHotkeyAction /K:A /H:9 SearchForTorrents

Func SearchForTorrents()
Local sTorrents = "d:\Portable\uTorrent\torrents"
Local sPath = RequestCopyDataInfo("SP")
Local sName = RequestCopyDataInfo("SN")
Local sFile = sPath & sName
If Not FileExist(sFile) Then
ShowHint("Файл не существует " & sFile)
Return
EndIf
Local torrents = StrTrim(FileFind(sTorrents, "*.torrent", 1))
If torrents = "" Then
MsgBox("Каталог не содержит файлов .torrent" & auCRLF & auCRLF & sTorrents, "Autorun", 48)
Return
EndIf
Local obj = Plugin("TCTorrent")
If ERROR <> 0 Then
MsgBox("TCTorrent.wdx plugin error " & ERROR, "Autorun", 48)
Return
Endif
Local lst = List()
lst.Text = torrents
Local sFound = ""
WinFindTorrentData(0)
Local size
If StrPos(FileGetAttr(sFile), "D") Then
size = FileFind(sFile, "*.*", 1, 0, "TotalSize")
Else
size = FileGetSize(sFile)
EndIf
For i = 0 To lst.Count - 1
WinSetText(lst[i], h_WinFindTorr)
obj.FileName = lst[i]
If size = obj.GetValue(2,0) Then
sFound = lst[i]
Break
EndIf
Next
Free(lst, obj)
g_FindTorrTask = 0
SendMessage(h_WinFindTorr, 0x0010, 0, 0)
If sFound = "" Then
MsgBox("Найдено: 0" & auCRLF & auCRLF & _
"Каталог: " & sTorrents & auCRLF & _
"Torrent файлов: " & i & auCRLF & auCRLF & _
"Искомый объект: " & auCRLF & auCRLF & sFile & auCRLF & _
"Размер: " & size, "Autorun", 48)
Return
EndIf
ShowRedHint("Автопереход к найденному")
GoToPathFromMsg(sFound)
If FileExist(sFound) Then SendCommand(2002)
EndFunc