Webページからダウンロードファイル格納ローカルパス(レジストリ)を変更する

VB6,VBA,VBS,EXCEL,DOS,BAT,WSH,WORDの小技メモ

HTML/ CSS/ CGI-Perl/ JavaScript/ JavaApplet/ AccessUp/ Internet/ EnglishLearn/ ちゃいちゃん天使/ 天使メッセージ/ 飯田ワールド/ 結城ワールド/ プロフィール/ WEB相談室/ WEBアンテナ/ 燈明日記/ Perlノート/ 漢字起源/ yahoo

はじめに

本ページは、ウインドウズ系全般のティプスメモです。

そう、はじめはVB系のティプスメモだったのですが…いつの間にか、ウインドウズ系全般のティプスメモになってしまいました。

ちなみに、ティプス(Tips)とは、マニュアルに書かれていない技法や裏わざのことですが、本ページでは、私が経験してこれはと思ったノウハウのメモになっています。

尚、以下は本サイトの最新情報(ブログ)です。

それでは、本ページが何かのお役に立てれば幸いです。ごゆっくりご覧ください。

2008-03-01 Webページからダウンロードファイル格納ローカルパス(レジストリ)を変更する

IE6でサーバーからファイルをダウンロードする時、どこにダウンロードするかのダイアログが表示されます。

そのダイアログには、デフォルトでダウンロードファイル格納ローカルパスがすでに設定されています。

このデフォルトを変更したい場合は、以下の方法で可能です。

まずは、IEのセキュリティ設定で、一箇所を有効にします。

しかし、以下のサンプルは、レジストリ操作なので、操作を誤ると、Windowsが正常に動作しなくなったりします。自己責任で行ってください。

サンプルソース
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>Webページからダウンロードパス(レジストリ)を変更する</title>
</head>
<body>
<script language="VBScript">
chg_download_file_path()
Function chg_download_file_path()
    If msgbox("ダウンロードパスをD:\tmpに変更します。よろしいいですか?",1) = 1 then
       Set WshShell=CreateObject("WScript.Shell")
       msgbox("変更前 -> " & WshShell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Download Directory"))
       WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Download Directory","D:\tmp", "REG_SZ"
       msgbox("変更後 -> " & WshShell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Download Directory"))
       Set WshShell = Nothing
    End If
End Function
</script>
</body>
</html>
留意点

上記設定は、レジストリ操作なのでインターネットではお奨めしません。イントラネットでご利用ください。

おわりに

以下のページには、すべてのTIPSがあります。もしよろしければ、どうぞ!

尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくVB-TIPS掲示板へご指摘ください。