ドライブ情報の取得方法

Question

HTMLでランチャーを作成しています。

HTMLをCDRに焼きこみ、autorunで自動再生させ
HTML内のボタンをクリックすれば
プログラムをパソコン（WindowsXP）へ
ダウンロードできるというものです。

困っていることですが、
HTML内のボタンをクリックした際にバッチファイルを立ち上げ、
DLLファイルなどを指定のディレクトリへ
自動的にコピーを行いたいのですが、
ホームディレクトリがCドライブとなってしまっているため、
CDR内のファイルをうまくファイル指定することが出来ません。

CDRは固定の客先に配布するわけではないので
バッチファイル内は絶対パス（ドライブ指定など）では書けません。

上記のような状況ですが、
PCのCDRドライブ名をバッチファイルから
DOSコマンドなどで取得することは可能でしょうか。
また、ホームディレクトリをバッチファイル内で
強制的に変更することは可能なのでしょうか。

DOSに関する知識も乏しく、プログラミングに関しても
胸を張れるほどの実力もなく、困っております。

皆さんのお力をお貸しください。
よろしくお願いいたします。

nicotinism · Accepted Answer

'下記を拡張子 VBS で保存して試してみて下さい
'WSHに関しては下記が参考となると思います
http://wwwroy.hi-ho.ne.jp/mutaguchi/wsh/wshtop.htm
'html に関してはサッパリ分かりませんのでご勘弁を
'多分・・Windows2000以降であれば大丈夫かも。
'>DLLファイルなどを指定のディレクトリへ
'とあるのでVBなどでは、フリーのインストーラも有るのでは？
'アンインストールの事も考えてあげないといけないし・・
'社内向けand単一ファイルなら下記の感じでも構わなくもありませんが
'顧客相手では大問題かと？
'とりあえずご参考までに

txtOut=""
Set objShell = CreateObject("Wscript.Shell")
Set objFso   = CreateObject("Scripting.FileSystemObject")

For Each objDrive in objFso.Drives
    txtOut = txtOut & objDrive.DriveLetter & "ドライブ - " & _
            drvType(objDrive.DriveType) & vbCrLf
Next
txtOut = txtOut & vbCrLf & "ここのフォルダは" & objShell.CurrentDirectory
txtOut = txtOut & vbCrLf & "ここのドライブは" & objFso.GetDriveName(Wscript.ScriptFullName)
Wscript.Echo txtOut

IF objFso.FolderExists("c:\後で消してね") = Faulse Then
objFso.CreateFolder("c:\後で消してね")
End If
objFso.CopyFile Wscript.ScriptFullName,"c:\後で消してね\あれ.txt",true 

Function drvType(tyNum)
    Select Case tyNum
        Case 1
            retval = "フロッピーディスク"
        Case 2
            retval = "ハードディスク"
        Case 3
            retval = "ネットワークドライブ"
        Case 4
            retVal = "CD-ROM/DVD"
        Case 5
            retVal = "RAMディスク"
        Case Else
            retval = "不明"
    End Select
    drvType = retVal
End Function

ドライブ情報の取得方法

'下記を拡張子 VBS で保存して試してみて下さい

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング