chibi:bitアップローダーを作る(1)~chibitのドライブをサーチする

とりあえずVBSでCHIBIBITのボリュームラベルを持つドライブを探すところまではやってみた

VBSは始めてだったので、DriveExistsでドライブの存在を確認しても、メモリカードリーダーが大量にドライブを確保していて、メディアが刺さっていないドライブでエラーがでまくったので、さらにIsReadyプロパティで調べる必要があった
dim d,drv,a
Set fso = CreateObject("Scripting.FileSystemObject")
drv=-1
'on error resume next
for d=65 to 65+26
  if fso.DriveExists(Chr(d)) then
    if fso.GetDrive(Chr(d)).IsReady then
      Set src=fso.GetDrive(Chr(d))
        if src.VolumeName="CHIBIBIT" then
          drv=d
        end if
      Set src=Nothing
    end if
  end if
Next
WScript.echo "FIND="&Chr(drv)

https://www.switch-science.com/catalog/2900/