🚀 go-pugleaf

$B!!0l1:!w5~ET$G$9!#(B

$B5-;v(B<69jm1l$jq1@rorty.mim.co.jp>$B$G$N(B,
"AKIYA Saburou" <akiya@cmpk.or.jp> $B$5$s$N<!$N5-=R$K4X$7$F(B:
>> $B!V#E#X#E%U%!%$%k$X$N%7%g!<%H%+%C%H!W$K%I%i%C%0!u%I%m%C%W$9$k$N$J$i$P!"(B
>> Command$$B4X?t$G!#4{$K<B9T$7$F$$$k$b$N$X$N%I%i%C%0!u%I%m%C%W$J$i$P!"(B
>> (Form_)OleDragDrop$B%$%Y%s%H$G=hM}$r$7$F2<$5$$!#(B

$B!!$I$&$b!"%3%a%s%H$"$j$,$H$&$4$6$$$^$7$?!#(B

$B!!L\E*$O5/F0;~$N%U%!%$%kL>3NG'$N4JN,2=$J$N$G!"A0<T$K$J$j$^$9!#(B
$B!!$5$C$=$/(B Command$$B4X?t$r3NG'$7$F$d$C$F$_$^$9!#(B

$B!!!%!%!%!%$d$C$F$_$^$7$?!#(B
$B!!7k9=4JC1$KEO$;$k$N$G$9$M!#(B(^o^)
$B!!!J<B$O(BVB$B#5$G$J$$$H%@%a$HJ9$$$F!":$$C$F$$$^$7$?!#!K(B

$B!!!%!%!%$7$+$7$J$,$i!"<B:]$K%W%m%0%i%`$KAH$s$@$H$3$m!"(Bdir$B$^$G$O$&$^$/(B
$B9T$/$N$G$9$,!"(Bfile$B$N$H$3$m$GA4$/8+Ev0c$$$NB8:_$7$J$$$O$:$N%U%!%$%kL>(B
$B$rI=<($7!V(BXXXX$B$,8+$D$+$j$^$;$s!W$H%(%i!<$GDd$^$C$F$7$^$$$^$9!#(B

$B!!!!(BTMP = Left(Command,2)
    drive1.Drive = TMP
    
    For I = Len(Command) To 1 Step -1
        If Mid(Command,I,1)  = "\" Then TMP2=I:I=0
    Next
    tmp = Left(Command,TMP2-1)
    Dir1.Path = tmp
    
    tmp = Right(Command,Len(Command)-TMP2)
    File1.Path = Dir1.Path
    File1.filename = TMP
    
   $B!J(BTMP,TMP2$B$OJQ?t$G$9!K(B
   
  $B$3$l$r<B9T$9$k$H!V<B9T;~%(%i!<#5#3!!%U%!%$%k$,8+$D$+$j$^$;$s(B'005S.BMP'$B!W(B
$B$HI=<($5$lDd$^$j$^$9!#(B
$B!!!J$3$N%U%!%$%k$O#1$D>e0L$N(BEXE$B%U%!%$%k$HF1$83,AX$K$"$j$^$9$,!">e$N:G=*9T(B
$B$GF~$k!V(BTMP$B!W$NFbMF$H$OA4$/0c$&$b$N$J$N$G$9!#(B

$B!!$b$7$+$7$?$i!"%G%#%l%/%H%j%\%C%/%9$N@_Dj$,$&$^$/$$$C$F$J$$$N$+$H;W$$!"(B
$B:G8e$N(B3$B9T$r(BREM$B$7$F$_$?$N$G$9$,!"$3$3$^$G$O$&$^$/9T$C$F$^$7$?!#!J$"$H%U%!%$(B
$B%k%\%C%/%9$G%U%!%$%k$rA*$Y$P$h$$$@$1$N>uBV!K(B

$B!!$"$H9M$($i$l$k$N$O%U%!%$%k%\%C%/%9$N%G%#%l%/%H%j$J$N$G$9$,!"$3$l$O>e$N(B
$B$h$&$K!V(BFile1.Path = Dir1.Path$B!W$H$7$F$^$9$N$G!"LdBjL5$$$O$:$@$H;W$$$^$9!#(B

$B!!$J$K$,860x$J$N$G$7$g$&$+!)(B

$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!0l1:!w5~ET(B