{"provider_name":"Hatena Blog","title":" \u30c9\u30e9\u30a4\u30d6\u30bf\u30a4\u30d7\u306e\u53d6\u5f97","type":"rich","categories":["VB-TIPS"],"author_url":"https://blog.hatena.ne.jp/chaichanPaPa/","version":"1.0","url":"https://chaipa.hateblo.jp/entry/20070830/1188474597","width":"100%","provider_url":"https://hatena.blog","author_name":"chaichanPaPa","height":"190","blog_url":"https://chaipa.hateblo.jp/","image_url":null,"blog_title":"\u65e7\u71c8\u660e\u65e5\u8a18","published":"2007-08-30 20:49:57","description":"\u4ee5\u4e0b\u3067\u3001PC\u306b\u5b9f\u88c5\u3055\u308c\u3066\u3044\u308b\u30c9\u30e9\u30a4\u30d6\u306e\u7a2e\u985e\u3092\u53d6\u5f97\u3059\u308b\u3053\u3068\u304c\u51fa\u6765\u307e\u3059\u3002 Dim allDrives() As DriveInfo = DriveInfo.GetDrives() Dim d As DriveInfo For Each d In allDrives If d.IsReady = True And d.DriveType = DriveType.Fixed Then MsgBox(d.Name & \"\u306f\u3001\u56fa\u5b9a\u30c7\u30a3\u30b9\u30af\u3067\u3059\u3002\") End If Next \uff0a\u30dd\u30a4\u30f3\u30c8\u89e3\u8aac DriveInfo\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306eGetDrives()\u30e1\u30bd\u30c3\u30c9\u3067\u3001\u5b9f\u88c5\u3055\u308c\u3066\u3044\u308b\u3059\u3079\u3066\u306e\u30c9\u30e9\u30a4\u30d6\u60c5\u5831\u304c\u3001\u30c9\u30e9\u30a4\u30d6\u6bce\u306b\u914d\u2026","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fchaipa.hateblo.jp%2Fentry%2F20070830%2F1188474597\" title=\" \u30c9\u30e9\u30a4\u30d6\u30bf\u30a4\u30d7\u306e\u53d6\u5f97 - \u65e7\u71c8\u660e\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>"}