2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« エクスプローラのフォルダペインだけにする。 | トップページ | IEで任意のフォルダを表示する。 »

2010年10月19日 (火)

HTAで任意のフォルダを表示する。

.htaファイルの場合は引数が使えるので、

[mshta.exe] folder.hta c:\temp

<html>
<head>
<hta:application id=hta></hta:application>
<script language=vbscript>
Option Explicit
Sub window_onload
Dim fQuoting
Dim k
fQuoting=False
For k=1 To Len(hta.commandLine)
  Select Case Mid(hta.commandLine,k,1)
  Case Chr(34) fQuoting=Not fQuoting
  Case Chr(32) If Not fQuoting Then Exit For
  End Select
Next
document.all.f1.src=Replace(Mid(hta.commandLine,k+1),"""","")
document.title=document.all.f1.src
End Sub
</script>
</head>
<frameset>
<frame id=f1 src="about:blank">
</frameset>
</html>

« エクスプローラのフォルダペインだけにする。 | トップページ | IEで任意のフォルダを表示する。 »