chibi:bitアップローダーを作る(2)~ダブルクリックでHEXをアップロードする

ほぼ完成

  • %USERPROFILES%\Downloads (ダウンロードフォルダ) にある HEX を見つけてアップロード
  • アップロード中はコピーダイアログを表示 (アップロードが遅すぎて待ちくたびれるので付けた)
  • アップロードが完了したら HEX は消す

 

Const FOF_CREATEPROGRESSDLG = &H0&
dim d,drv,a,strTargetFolder
Set fso = CreateObject("Scripting.FileSystemObject")
Set shell = WScript.CreateObject("WScript.Shell")
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
if drv=-1 then
  WScript.echo "CHIBI:BITが見つかりません"
else
  Err.Clear
  strTargetFolder=Chr(drv)&":"
  Set objShell = CreateObject("Shell.Application")
  Set objFolder = objShell.NameSpace(strTargetFolder)
  objFolder.CopyHere shell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Downloads\chibibit-*.hex", FOF_CREATEPROGRESSDLG
  fso.DeleteFile shell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Downloads\chibibit-*.hex",true
end if

デバッガなしでVBSなんて死んじゃいそうだった・・・
あとはフォルダ監視で自動アップロードを実装すれば完璧だけどくじけそうだ・・・

chibibit-uploade3
Filename : chibibit-uploade3.vbs (906 B)
Caption :