Torrent File Info

1 Like

I tried with (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.

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


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