配布用CD-ROMからワンクリックでフォルダごとコピー

質問

カテゴリごとにフォルダ分けされているファイルをフォルダごと、ワンクリックでCD-ROMからパソコン上にデータ保存をしたいのですが、よい方法がありましたらお知恵をお貸しください。

中高年のパソコン初心者向けのCD-ROMの作成を企画しております。

あくまでも中高年のパソコン初心者向けのCD-ROMなのでCD-ROMを受け取った人が簡単な手順でパソコンにファイルを保存できるものとします。（圧縮ファイルは使用しないものとします）

全体のイメージは
1.CD-ROMを挿入をするとCD-ROMが自動起動されメニューが表示される
2.メニューからパソコンに保存したいカテゴリを選ぶとフォルダごとパソコン上（マイドキュメントやデスクトップ上）に保存される。
3.CD-ROMはファイルの提供を目的としたもの
4.CD-ROMで提供するファイルはカテゴリごとにフォルダ分けされている。
5.中高年の初心者向けなので、圧縮ファイルは使用しない。
こんなイメージです。

htmlで作ろうとしてみたのですが、ファイルを圧縮しないと対応できませんでしたので却下しました。

回答No.2

fx70_2150 · ベストアンサー

＞ＣＤ-ＲＯＭ内のフォルダへのパスをどう記述するか

　以下の内容をメモ帳にコピーして、"FullPath.vbs"で任意のフォルダに保存して下さい。そして、ダブルクリックして実行して下さい。

Option Explicit
Dim strScriptPath
'スクリプト名を含まないフルパスを編集する
strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
'スクリプト名を含むフルパス
WScript.echo "スクリプト名を含む　　　" & WScript.ScriptFullName
'スクリプト名を含まないフルパス
WScript.echo "スクリプト名を含まない　" & strScriptPath

　以下の内容をメモ帳にコピーして、"AUTORUN.INF"で、"FullPath.vbs"と同じフォルダに保存して下さい。

[autorun]
open=wscript.exe FullPath.vbs

　これら２つのファイルを、CD-RWディスクのルートディレクトリに書き込み、一度取り出してから、再度セットして下さい。
　オートラン機能が働き、"FullPath.vbs"が実行され、セットしたCD-RWのドライブレター＆パスが取得できます。

　また、デスクトップやマイドキュメント等の保存場所も環境により異なります。以下の内容をメモ帳にコピーして、"SpecialFolders.vbs"で任意のフォルダに保存して下さい。そして、ダブルクリックして実行して下さい。

Option Explicit
Dim objWshShell
'(1)WScript.Shellオブジェクトの作成
Set objWshShell = CreateObject("WScript.Shell")
'(2)デスクトップ
WScript.echo "DESKTOP = " & objWshShell.SpecialFolders("Desktop")
'(3)お気に入り
WScript.echo "FAVORITES = " & objWshShell.SpecialFolders("FAVORITES")
'(3)フォント
WScript.echo "FONTS = " & objWshShell.SpecialFolders("FONTS")
'(4)マイドキュメント
WScript.echo "MYDOCUMENTS= " & objWshShell.SpecialFolders("MyDocuments")
'(5)NETHOOD
WScript.echo "NETHOOD = " & objWshShell.SpecialFolders("NETHOOD")
'(6)PRINTHOOD
WScript.echo "PRINTHOOD = " & objWshShell.SpecialFolders("PRINTHOOD")
'(7)スタートメニューのプログラム
WScript.echo "PROGRAMS = " & objWshShell.SpecialFolders("PROGRAMS")
'(8)最近使ったファイル
WScript.echo "RECENT = " & objWshShell.SpecialFolders("RECENT")
'(9)送る
WScript.echo "SENDTO = " & objWshShell.SpecialFolders("SENDTO")
'(10)スタートメニュー
WScript.echo "STARTMENU = " & objWshShell.SpecialFolders("STARTMENU")
'(11)スタートアップ
WScript.echo "STARTUP = " & objWshShell.SpecialFolders("STARTUP")
'(12)テンプレート
WScript.echo "TEMPLATES = " & objWshShell.SpecialFolders("TEMPLATES")
'(13)アプリケーションデータ
WScript.echo "Appdata = " & objWshShell.SpecialFolders("Appdata")
'(14)デスクトップ（全ユーザ共通）
WScript.echo "AllUsersDesktop = " & objWshShell.SpecialFolders("AllUsersDesktop")
'(15)スタートメニュー（全ユーザ共通）
WScript.echo "AllUsersStartMenu= " & objWshShell.SpecialFolders("AllUsersStartMenu")
'(16)スタートメニューのプログラム（全ユーザ共通）
WScript.echo "AllUsersPrograms = " & objWshShell.SpecialFolders("AllUsersPrograms")
'(17)スタートアップ（全ユーザ共通）
WScript.echo "AllUsersStartup = " & objWshShell.SpecialFolders("AllUsersStartup")
Set objWshShell = Nothing

　これにより、デスクトップやマイドキュメントのドライブレター＆パスが取得できます。あとは、デスクトップやマイドキュメントに専用フォルダを新たに作って（CreateFolderメソッド）、フォルダのコピー（CopyFolderメソッド）に、得られたドライブレター＆パスを指定すれば、OK!

お礼

詳しいご説明をいただきありがとうございました。
WSHについて教えていただきありがとうございました。
WSHで作成しようとしたのですが、不慣れなもので思い通りにいかず、時間がかかりそうでしたので他の方法を考えてみたところ、結局はhtml+インストーラーを使用するという方法で、望んでいた結果を得ることができました。
今回いただいたご回答がWSHについて勉強するいいきっかけとなりました。貴重なお時間を割いていただいたこと、とてもありがたく思います。またご回答いただいた方法にて実現できなかったことをお詫びいたします。

回答No.1

fx70_2150

ＷＳＨで作ってみては、どうでしょうか？

Microsoft Windows スクリプト テクノロジ ホーム ページ
http://www.microsoft.com/japan/developer/scripting/default.htm

VBScript/JScriptプログラミング＆Tips for WSH
http://www.happy2-island.com/vbs/

補足

ご回答いただき、ありがとうございます。教えていただいたＵＲＬを参照にして大体のイメージができました。しかし、私の中で解決できていない部分があります。それは、ＣＤ-ＲＯＭの中にあるフォルダをパソコン上にコピーするということで、ＣＤ-ＲＯＭ内のフォルダへのパスをどう記述するかということです。ＣＤ-ＲＯＭのドライブ名は、使用者のパソコンの環境によってＤドライブだったりＥドライブだったりすると思うのですが・・・、こういう場合、ＣＤ-ＲＯＭ内のフォルダへのパスの記述はどうすればよいのでしょうか？　コピーしたいフォルダと、実行するスクリプトがＣＤ-ＲＯＭ内の同一ディレクトリ上にあればドライブの指定はしなくていいのかな？とも思ったりしますが。。。お世話をおかけして恐縮ですが、ご指導のほどよろしくお願いいたします。