By Excellion on Apr 24, 2007The original Explorer code I did was with @windows, now instead using dialogs. I know you could always just do /run explorer but this is smaller and personally I get tired of swtiching tasks in the windows taskbar.
alias exdialog {
dialog -m Explorer Explorer
}
dialog Explorer {
title Explorer
size 200 400 600 330
list 1, 0 0 600 300 sort extsel
button "Change Dir" 2, 10 300 75 20
button "Close" 3, 515 300 75 20
}
on *:dialog:Explorer:init:0:{
explorer
}
on *:dialog:Explorer:dclick:1:{
if ($did(1).seltext == ...) {
set %x.dir $deltok(%x.dir,-1,92)
explorer2
}
elseif (*.??? iswm $gettok($did(1).seltext,1,32)) {
run $gettok($did(1).seltext,1,32)
}
else {
set %x.dir $did(1).seltext
explorer2
}
}
on *:dialog:Explorer:sclick:2:{
set %x.dir $sdir(*,Select New Dir)
explorer2
}
on *:dialog:Explorer:sclick:3:{
dialog -x Explorer
}
alias explorer {
set %x.dir C:\mIRC\
var %numdirs = $finddir(%x.dir,*,*,1)
var %numfiles = $findfile(%x.dir,*,*,1)
var %a = 1
did -a Explorer 1 ...
while (%a <= %numdirs) {
did -a Explorer 1 $finddir(%x.dir,*,%a)
inc %a
}
var %b = 1
while (%b <= %numfiles) {
var %e.file = $findfile(%x.dir,*,%b)
did -a Explorer 1 $nopath(%e.file) $bytes($file(%e.file).size).suf
inc %b
}
}
alias explorer2 {
if (*...* iswm %x.dir) {
var %numdirs = $finddir(%e.pd,*,*,1)
var %numfiles = $findfile(%e.pd,*,*,1)
did -r Explorer 1
var %a = 1
did -a Explorer 1 ...
while (%a <= %numdirs) {
did -a Explorer 1 $finddir(%e.pd,*,%a)
inc %a
}
var %b = 1
while (%b <= %numfiles) {
var %e.file = $findfile(%e.pd,*,%b)
did -a Explorer 1 $nopath(%e.file) $bytes($file(%e.file).size).suf
inc %b
}
}
else {
var %numdirs = $finddir(%x.dir,*,*,1)
var %numfiles = $findfile(%x.dir,*,*,1)
did -r Explorer 1
var %a = 1
var %b = 1
did -a Explorer 1 ...
while (%a <= %numdirs) {
did -a Explorer 1 $finddir(%x.dir,*,%a)
inc %a
}
while (%b <= %numfiles) {
var %e.file = $findfile(%x.dir,*,%b)
did -a Explorer 1 $nopath(%e.file) $bytes($file(%e.file).size).suf
inc %b
}
}
}
menu channel {
Explorer:{ exdialog }
}
yours froze up when i hit properties and half of the time it would not display the contents in a directory, not sure if it was the naming or not....besides i didn\'t have the use for having all of the options you have...was just a quick way to see or open files and i did not see yours, my apologies.
Does hte job, clean and nice. Although, you could work through the dialog a little, and improve the coding of it. (It does the job, but could be remade to look more professional etc).
Also, a tip for the aliases:
instead of
alias exdialog {
dialog -m Explorer Explorer
}
use
alias exdialog {
if (!$dialog(explorer)) {
dialog -m Explorer Explorer
}
}
Just to avoid any errors ;p.
I didnt test it indeeph really, just generally.