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