🚀 go-pugleaf

穐谷（あきや）です。

ichiura <ichiura@mbox.kyoto-inet.or.jp> wrote in article
<69ji82$9hc$1@news.kyoto-inet.or.jp>...
> 　そこで、デスクトップやエクスプローラー上のファイルをＶＢの
> ＥＸＥファイルのアイコンにドラッグ＆ドロップすることにより、目的の
> フォルダに飛んで起動させたいのです。
> （そのファイルの位置情報をＶＢに与えて起動）

「ＥＸＥファイルへのショートカット」にドラッグ＆ドロップするのならば、
Command$関数で。既に実行しているものへのドラッグ＆ドロップならば、
(Form_)OleDragDropイベントで処理をして下さい。

--------------------------------------------------
		差出人:	穐谷 三郎
		E-Mail:	akiya@cmpk.or.jp

城井一輝です。

ichiura さんの
<69ji82$9hc$1@news.kyoto-inet.or.jp> に関してですが・・・

>ルのアイコンにドラッグ＆ドロップすることにより、目的のフォルダに飛んで起
>動させたいのです。（そのファイルの位置情報をＶＢに与えて起動）
　ＶＢ５なら簡単です。

>　ちなみにパソコンはPC9821NP(486-50hz)メモリー36MB、VB4.0の環境です。
　ＶＢ４なら、そのＥｘｅのショートカットを作り、
　それにＤ＆Ｄすると、Command$ に、ファイル名が
　入ります。

===============
Sirai@mcn.ne.jp
===============

$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

$B!!0l1:!w5~ET$G$9!#(B
$B!!>k0f$5$s!"CY$/$J$j?=$7$o$1$"$j$^$;$s$G$7$?!#(B

$B5-;v(B<69mcol$pvd$5@cad10.bpr.oki.co.jp>$B$G$N(B,
Sirai Kazuki<Sirai@mcn.ne.jp> $B$5$s$N<!$N5-=R$K4X$7$F(B:
>> $B!!#V#B#5$J$i4JC1$G$9!#(B

$B!!#O#L#E(B...$B$G$G$-$k$HJ9$-$^$7$?!#(B
$B!!$7$+$7$J$,$i;d$N4D6-$G$OF0:n$9$kB.EY$b4|BT$G$-$^$;$s$7!"%$%s%9%H!<(B
$B%k$9$k#H#D#D$NM>M5$b$"$j$^$;$s!#!JJL$N%O!<%IMQ$KGc$C$F$O$$$k$N$G$9$,(B
$B!K(B
$B!!%=%U%H$N@lLgIt=p$G$O$J$/!"%O!<%I$NIt=p$J$N$G(B(;_;)

>> $B!!#V#B#4$J$i!"$=$N#E#x#e$N%7%g!<%H%+%C%H$r:n$j!"(B
>> $B!!$=$l$K#D!u#D$9$k$H!"(BCommand$ $B$K!"%U%!%$%kL>$,(B
>> $B!!F~$j$^$9!#(B

$B!!$O$$!"$3$l$OB>$NJ}$+$i65$($F$$$?$@$$$F$d$C$F$_$^$7$?!#(B
$B!!$*$*$h$=$G$-$?$N$G$9$,!"%U%!%$%kL>$NItJ,$G%(%i!<$,5/$3$jF\:C$7$F$$(B
$B$^$9!#(B

$B!!$I$&$b$"$j$,$H$&$4$6$$$^$7$?!#(B
$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!0l1:!w5~ET(B