在vb.net中，如何基于逗号分隔的字符串从目录中获取文件？

Question

I need to create an array() from files in a folder. Here's an example of how I would get all files within a folder.

Dim filesList = New DirectoryInfo("MyPath").GetFiles("*", SearchOption.TopDirectoryOnly).Where(Function(f) Not f.Attributes.HasFlag(FileAttributes.Hidden)).[Select](Function(f) New AClassNameHere(f)).ToArray()

I want to do the exact same thing, but only get files that exist in a comma separated string.

Dim myFiles as String = "filename1.jpg,filename2.jpg,filename3.jpg"

Where you see the AClassNameHere is a class I need to send each file to, and it would also be great if I knew how to send additional data about each file, like its type, size, etc.

Thank you kindly!

Answer 1

You could narrow the query results by adding an additional .Where() filter

Dim myFiles as String = "filename1.jpg,filename2.jpg,filename3.jpg"
Dim filesList = New DirectoryInfo("MyPath")
                .GetFiles("*", SearchOption.TopDirectoryOnly)
                .Where(Function(f) Not f.Attributes.HasFlag(FileAttributes.Hidden))
                .Where(Function(f) myFiles.Contains(f.Name))
                .[Select](Function(f) New AClassNameHere(f)).ToArray()

A better option would be to ensure that all filenames follow a pattern.

New DirectoryInfo("MyPath").GetFiles("filename*.jpg", SearchOption.TopDirectoryOnly)

Answer 2

Use this...

    Dim Files() As String
    Files= filesList.Split(",")

    For each File In Files
    Msgbox(File)
    Next