{"id":1606,"date":"2016-07-20T02:08:35","date_gmt":"2016-07-19T17:08:35","guid":{"rendered":"http:\/\/stuffy.dip.jp\/wordpress\/?p=1606"},"modified":"2017-05-29T16:16:09","modified_gmt":"2017-05-29T07:16:09","slug":"get-file-list-from-mymusic-by-excel","status":"publish","type":"post","link":"https:\/\/www.stuffy.site\/wordpress\/?p=1606","title":{"rendered":"Excel\u3067\u30d5\u30a1\u30a4\u30eb\u30ea\u30b9\u30c8\u3092\u53d6\u5f97\u3059\u308b"},"content":{"rendered":"<p>\u4eca\u65e5\u306fVBA\u306e\u304a\u52c9\u5f37\u3067\u3059\u3002[\u30df\u30e5\u30fc\u30b8\u30c3\u30af]\u30d5\u30a9\u30eb\u30c0\u306e\u30a2\u30fc\u30c6\u30a3\u30b9\u30c8\u3001\u30a2\u30eb\u30d0\u30e0\u3001\u66f2\u540d\u3092\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306b\u30ea\u30b9\u30c8\u51fa\u529b\u3057\u307e\u3059\u3002\u66f2\u540d\u30d5\u30a1\u30a4\u30eb\u304c\u30ab\u30ec\u30f3\u30c8\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306e2\u6bb5\u4e0b\u306b\u3042\u308b\u306e\u3067\u3001For Each\u6587\u30923\u56de\u30cd\u30b9\u30c8\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n<pre class=\"brush: actionscript3; gutter: false; first-line: 1\"><span style=\"font-size: 9pt;\">Public Sub get_music_list()\r\n\u00a0 Dim Obj, f, g, h As Object\r\n\u00a0 Dim DirName as String\r\n\u00a0 Set Obj = CreateObject(\"Scripting.FileSystemObject\")\r\n\u00a0 Set DirName = Environ(\"UserProfile\") &amp; \"\\Music\"\r\n\u00a0 Dim i, j As Long\r\n\u00a0 i = 1: j = 0\r\n\u00a0 \r\n\u00a0 For Each f In Obj.GetFolder(DirName).SubFolders\r\n\u00a0\u00a0\u00a0 For Each g In Obj.GetFolder(DirName &amp; \"\\\"\u00a0&amp; Obj.GetFolder(f).Name).SubFolders\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ActiveSheet.Cells(1, i).Value = Obj.GetFolder(f).Name\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ActiveSheet.Cells(2, i).Value = Obj.GetFolder(g).Name\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 For Each h In Obj.GetFolder(DirName &amp; \"\\\"\u00a0&amp; Obj.GetFolder(f).Name &amp; \"\\\" &amp; Obj.GetFolder(g).Name).Files\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ActiveSheet.Cells(3 + j, i) = h.Name\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 j = j + 1\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Next h\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 i = i + 1\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 j = 0\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Set h = Nothing\r\n\u00a0\u00a0\u00a0 Next g\r\n\u00a0\u00a0\u00a0 Set g = Nothing\r\n\u00a0 Next f\r\n\u00a0 i = 0\r\n\u00a0 Set Obj = Nothing\r\n\u00a0 Set f = Nothing\r\nEnd Sub<\/span><\/pre>\n<p>http:\/\/www.moug.net\/tech\/exvba\/0060001.html<br \/>\nhttp:\/\/vba-geek.jp\/blog-entry-52.html<\/p>\n<p>\u3061\u306a\u307f\u306bPowerShell\u3067\u306f\u3001\u540c\u3058\u69d8\u306a\u3053\u3068\u3092\u4ee5\u4e0b\u306e\u30b3\u30de\u30f3\u30c9\u3067\u53ef\u80fd\u3067\u3059\u3002<\/p>\n<pre class=\"brush: actionscript3; gutter: false; first-line: 1\">&gt;cd $HOME\\Music\r\n&gt;Get-ChildItem -Recurse -Name &gt;C:\\src\\music.txt<\/pre>\n<p>http:\/\/www.atmarkit.co.jp\/ait\/articles\/0808\/22\/news129.html<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u4eca\u65e5\u306fVBA\u306e\u304a\u52c9\u5f37\u3067\u3059\u3002[\u30df\u30e5\u30fc\u30b8\u30c3\u30af]\u30d5\u30a9\u30eb\u30c0\u306e\u30a2\u30fc\u30c6\u30a3\u30b9\u30c8\u3001\u30a2\u30eb\u30d0\u30e0\u3001\u66f2\u540d\u3092\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306b\u30ea\u30b9\u30c8\u51fa\u529b\u3057\u307e\u3059\u3002\u66f2\u540d\u30d5\u30a1\u30a4\u30eb\u304c\u30ab\u30ec\u30f3\u30c8\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306e2\u6bb5\u4e0b\u306b\u3042\u308b\u306e\u3067\u3001For Each\u6587\u30923\u56de\u30cd\u30b9\u30c8\u3057\u3066\u3044\u307e\u3059\u3002 Publ &hellip; <a href=\"https:\/\/www.stuffy.site\/wordpress\/?p=1606\" class=\"more-link\">\u7d9a\u304d\u3092\u8aad\u3080 <span class=\"screen-reader-text\">Excel\u3067\u30d5\u30a1\u30a4\u30eb\u30ea\u30b9\u30c8\u3092\u53d6\u5f97\u3059\u308b<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[67,68,5,4],"tags":[],"class_list":["post-1606","post","type-post","status-publish","format-standard","hentry","category-excel","category-powershell","category-software","category-windows"],"_links":{"self":[{"href":"https:\/\/www.stuffy.site\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/1606","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.stuffy.site\/wordpress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.stuffy.site\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.stuffy.site\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.stuffy.site\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1606"}],"version-history":[{"count":18,"href":"https:\/\/www.stuffy.site\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/1606\/revisions"}],"predecessor-version":[{"id":1625,"href":"https:\/\/www.stuffy.site\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/1606\/revisions\/1625"}],"wp:attachment":[{"href":"https:\/\/www.stuffy.site\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1606"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.stuffy.site\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1606"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.stuffy.site\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1606"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}