{"id":2873,"date":"2009-04-23T14:53:00","date_gmt":"2009-04-23T14:53:00","guid":{"rendered":"https:\/\/blogs.msdn.microsoft.com\/vbteam\/2009\/04\/23\/how-to-get-a-list-of-all-files-of-a-directory-subdirectories-included-daniel-walzenbach\/"},"modified":"2024-07-05T13:20:58","modified_gmt":"2024-07-05T20:20:58","slug":"how-to-get-a-list-of-all-files-of-a-directory-subdirectories-included-daniel-walzenbach","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/vbteam\/how-to-get-a-list-of-all-files-of-a-directory-subdirectories-included-daniel-walzenbach\/","title":{"rendered":"How to get a list of all files of a directory (subdirectories included) (Daniel Walzenbach)?"},"content":{"rendered":"

I needed to create a list of all Code Snippets<\/a> we ship in Visual Studio<\/a> the other day containing their title, description and path on disc and size. As you might know, Code Snippets are stored in multiple directories below “%ProgramFiles%Microsoft Visual Studio 10.0” so I had to traverse all the subdirectories of the aforementioned path to find all snippets. <\/p>\n

Fortunately – linq to the rescue – this came down to a few lines of code \ud83d\ude42<\/p>\n\n\n\n
<\/p>\n

Dim<\/span> query = <\/font>From<\/span> file <\/font>In<\/span> <\/font>My<\/span>.Computer.FileSystem.GetFiles(<\/font>“C:Program FilesMicrosoft Visual Studio 10.0”<\/span>, FileIO.SearchOption.SearchAllSubDirectories) _<\/font><\/span><\/p>\n

            <\/font><\/span>Where<\/span> file.EndsWith(<\/font>“.snippet”<\/span>) _<\/font><\/span><\/p>\n

            <\/font><\/span>Order<\/span> <\/font>By<\/span> file<\/font><\/span><\/p>\n

<\/span><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

This statement gives you a List of Strings (or, to be a bit more precise, a System.Linq.IOrderedEnumerable(Of String)) which you can walk over to do all kinds of crazy things. <\/p>\n

Here is what I did to solve the problem I described above:<\/p>\n\n\n\n
\n

Imports<\/span> <\/font><<\/span>xmlns<\/span>=<\/span>“<\/span>http:\/\/schemas.microsoft.com\/VisualStudio\/2005\/CodeSnippet<\/span>“<\/span>><\/span><\/span> <\/span><\/p>\n

<\/span> <\/p>\n

Public<\/span> Class<\/span> Form1<\/span><\/p>\n

<\/span><\/p>\n

    <\/span>Private<\/span> Sub<\/span> Button1_Click(ByVal<\/span> sender As<\/span> System.Object, ByVal<\/span> e As<\/span> System.EventArgs) Handles<\/span> Button1.Click<\/span><\/p>\n

<\/span><\/p>\n

        <\/span>Dim<\/span> query = From<\/span> file In<\/span> My<\/span>.Computer.FileSystem.GetFiles(txtPath.Text, FileIO.SearchOption.SearchAllSubDirectories) _<\/span><\/p>\n

                    <\/span>Where<\/span> file.EndsWith(“.snippet”<\/span>) _<\/span><\/p>\n

                    <\/span>Order<\/span> By<\/span> file<\/span><\/p>\n

<\/span><\/p>\n

        <\/span>Dim<\/span> snippets As<\/span> New<\/span> List(Of<\/span> Snippet)<\/span><\/p>\n

        <\/span>Dim<\/span> snippetDocument As<\/span> XElement<\/span><\/p>\n

        <\/span>Dim<\/span> snippet As<\/span> Snippet<\/span><\/p>\n

<\/span><\/p>\n

        <\/span>For<\/span> Each<\/span> item In<\/span> query<\/span><\/p>\n

            <\/span>snippetDocument = XElement.Load(item)<\/span><\/p>\n

            <\/span>If<\/span> snippetDocument…<<\/span>Title><\/span>.Value IsNot<\/span> Nothing<\/span> Then<\/span><\/span><\/p>\n

<\/span><\/p>\n

                <\/span>snippet = New<\/span> Snippet With<\/span> {.Title = snippetDocument…<<\/span>Title><\/span>.Value.ToString _<\/span><\/p>\n

                                            <\/span>, .Description = snippetDocument…<<\/span>Description><\/span>.Value.ToString _<\/span><\/p>\n

                                            <\/span>, .Path = item _<\/span><\/p>\n

                                            <\/span>, .Size = New<\/span> System.IO.FileInfo(item).Length}<\/span><\/p>\n

<\/span><\/p>\n

                <\/span>snippets.Add(snippet)<\/span><\/p>\n

<\/span><\/p>\n

            <\/span>End<\/span> If<\/span><\/span><\/p>\n

        <\/span>Next<\/span><\/span><\/p>\n

<\/span><\/p>\n

        <\/span>DataGridViewSnippets.AutoGenerateColumns = True<\/span><\/span><\/p>\n

        <\/span>DataGridViewSnippets.DataSource = snippets<\/span><\/p>\n

<\/span><\/p>\n

    <\/span>End<\/span> Sub<\/span><\/span><\/p>\n

<\/span><\/p>\n

End<\/span> Class<\/span><\/span><\/p>\n

<\/span><\/p>\n

<\/span> <\/p>\n

Public<\/span> Class<\/span> Snippet<\/span><\/p>\n

<\/span><\/p>\n

    <\/span>Private<\/span> _Title As<\/span> String<\/span><\/span><\/p>\n

    <\/span>Private<\/span> _Description As<\/span> String<\/span><\/span><\/p>\n

    <\/span>Private<\/span> _Path As<\/span> String<\/span><\/span><\/p>\n

    <\/span>Private<\/span> _Size As<\/span> Long<\/span><\/span><\/p>\n

<\/span><\/p>\n

    <\/span>Public<\/span> Property<\/span> Title() As<\/span> String<\/span><\/span><\/p>\n

        <\/span>Get<\/span><\/span><\/p>\n

            <\/span>Return<\/span> _Title<\/span><\/p>\n

        <\/span>End<\/span> Get<\/span><\/span><\/p>\n

        <\/span>Set<\/span>(ByVal<\/span> value As<\/span> String<\/span>)<\/span><\/p>\n

            <\/span>_Title = value<\/span><\/p>\n

        <\/span>End<\/span> Set<\/span><\/span><\/p>\n

    <\/span>End<\/span> Property<\/span><\/span><\/p>\n

<\/span><\/p>\n

    <\/span>Public<\/span> Property<\/span> Description() As<\/span> String<\/span><\/span><\/p>\n

        <\/span>Get<\/span><\/span><\/p>\n

            <\/span>Return<\/span> _Description<\/span><\/p>\n

        <\/span>End<\/span> Get<\/span><\/span><\/p>\n

        <\/span>Set<\/span>(ByVal<\/span> value As<\/span> String<\/span>)<\/span><\/p>\n

            <\/span>_Description = value<\/span><\/p>\n

        <\/span>End<\/span> Set<\/span><\/span><\/p>\n

    <\/span>End<\/span> Property<\/span><\/span><\/p>\n

<\/span><\/p>\n

    <\/span>Public<\/span> Property<\/span> Path() As<\/span> String<\/span><\/span><\/p>\n

        <\/span>Get<\/span><\/span><\/p>\n

            <\/span>Return<\/span> _Path<\/span><\/p>\n

        <\/span>End<\/span> Get<\/span><\/span><\/p>\n

        <\/span>Set<\/span>(ByVal<\/span> value As<\/span> String<\/span>)<\/span><\/p>\n

            <\/span>_Path = value<\/span><\/p>\n

        <\/span>End<\/span> Set<\/span><\/span><\/p>\n

    <\/span>End<\/span> Property<\/span><\/span><\/p>\n

<\/span><\/p>\n

    <\/span>Public<\/span> Property<\/span> Size() As<\/span> Long<\/span><\/span><\/p>\n

        <\/span>Get<\/span><\/span><\/p>\n

            <\/span>Return<\/span> _Size<\/span><\/p>\n

        <\/span>End<\/span> Get<\/span><\/span><\/p>\n

        <\/span>Set<\/span>(ByVal<\/span> value As<\/span> Long<\/span>)<\/span><\/p>\n

            <\/span>_Size = value<\/span><\/p>\n

        <\/span>End<\/span> Set<\/span><\/span><\/p>\n

    <\/span>End<\/span> Property<\/span><\/span><\/p>\n

<\/span><\/p>\n

End<\/span> Class<\/span><\/span><\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

Btw, if you bind the result to a DataGridView you can copy&paste from there into excel. Needo \ud83d\ude42<\/p>\n

Cheers!<\/p>\n

   Daniel<\/p>\n

Edited April 29, 2009: Included the “Imports” statement and did some cleanup work.<\/p><\/p>\n","protected":false},"excerpt":{"rendered":"

I needed to create a list of all Code Snippets we ship in Visual Studio the other day containing their title, description and path on disc and size. As you might know, Code Snippets are stored in multiple directories below “%ProgramFiles%Microsoft Visual Studio 10.0” so I had to traverse all the subdirectories of the aforementioned […]<\/p>\n","protected":false},"author":260,"featured_media":8818,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[192,195],"tags":[52,94],"class_list":["post-2873","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-featured","category-visual-basic","tag-daniel-walzenbach","tag-linqvb9"],"acf":[],"blog_post_summary":"

I needed to create a list of all Code Snippets we ship in Visual Studio the other day containing their title, description and path on disc and size. As you might know, Code Snippets are stored in multiple directories below “%ProgramFiles%Microsoft Visual Studio 10.0” so I had to traverse all the subdirectories of the aforementioned […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts\/2873","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/users\/260"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/comments?post=2873"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts\/2873\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/media\/8818"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/media?parent=2873"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/categories?post=2873"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/tags?post=2873"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}