Torrent File Info

qiuqiu · November 16, 2021, 6:41am

laoqiuqiu/DOpus-Script/blob/master/Button/Torrent File Info.dcf

<?xml version="1.0"?>
<button backcol="none" display="both" label_pos="right" textcol="none">
	<label>Torrent File Info</label>
	<tip>show .torrent file information!</tip>
	<icon1>#newcommand</icon1>
	<function type="script">
		<instruction>@disablenosel:numfiles=1,type=*.torrent</instruction>
		<instruction>@script VBScript</instruction>
		<instruction>&apos; show .torrent file information!</instruction>
		<instruction>&apos; qiuqiu</instruction>
		<instruction>&apos; http://script.dopus.net/</instruction>
		<instruction />
		<instruction>Option Explicit</instruction>
		<instruction />
		<instruction>Function OnClick(ByRef clickData)</instruction>
		<instruction>	Dim Dlg, Stream, Torrent, Char, I, TotalSize</instruction>
		<instruction>    Set Dlg = DOpus.Dlg</instruction>
		<instruction>    Dlg.Window = clickData.func.sourcetab</instruction>
		<instruction>    Dlg.Template = &quot;dlgTorrentInfo&quot;</instruction>
		<instruction>	Dlg.Title = &quot;Torrent File Info - &quot; &amp; clickData.func.sourcetab.selected_files(0)</instruction>

This file has been truncated. show original

Leo · November 16, 2021, 7:49am

I tried with ubuntu-21.10-desktop-amd64.iso.zip (232.7 KB) and got an error on line 67:

TotalSize.Add Torrent("length")

Variable uses an Automation type not supported in VBScript: 'TotalSize.Add' (0x800a01ca)

VarType(Torrent("length") returns 0 indicating the value is empty.

Also noticed some resizing bugs in the dialog:

For files hosted on GitHub, it might be worth adding a note about how to download them, as it's not obvious. The best way I found was to right-click the "Raw" button just above the code, then choose Save As.

qiuqiu · November 16, 2021, 8:03am

modify line 64-67

		ItemIndex = ListView.AddItem(Torrent("info")("name"))
		ListView.GetItemAt(ItemIndex).SubItems(0) = DOpus.FSUtil.NewFileSize(Torrent("info")("length")).fmt
		ListView.GetItemAt(ItemIndex).Icon = DOpus.FSUtil.NewPath(Torrent("info")("name")).ext
		TotalSize.Add Torrent("info")("length")

thanks @Leo

khalidhosain · November 20, 2021, 6:08am

This Button Works nicely for me. Thank you so much.