How to convet the c# to VB.NET

Question

How to convet the c# to VB.NET

Steven Young 261

var files = Directory.GetFiles("C:\path", ".", SearchOption.AllDirectories)
.Where(s => s.EndsWith(".mp3") || s.EndsWith(".jpg"));

How to convert to VB.NET?

Accepted answer

4 additional answers

Your answer

Answer 1

Castorix31 90,686

For example =>

Dim files = Directory.GetFiles("C:\path", ".", SearchOption.AllDirectories).Where(Function(f) f.EndsWith(".mp3") OrElse f.EndsWith(".jpg")).ToArray

Answer 2

The following may not be for you as it's really for large folder structures.

If by chance you have a large folder structure you may consider a different approach that keep the UI responsive. In the screenshot below the code in this case uses recursion to find *.png, *.exe (I used different extensions from you simply because I don't have any mp3 or jpg files). The code presented has plenty of room for customization.

Coded in VS2019

Front-end project, back-end project.

Shows what was searched folder-wise

Shows results (you could add the path on, in the code the path is available)

Answer 3

Sam of Simple Samples 5,546

You can use C# to VB.NET Converter for free for output up to 100 lines per file. There is a snippet option that can convert snippets such as you are asking about.

Answer 4

There's the function below

1.    Dim wildcards As String() = {"*.mp3", "*.jpg"}
    Dim ListFiles As List(Of String) = FileIO.FileSystem.GetFiles("G:\Music", FileIO.SearchOption.SearchAllSubDirectories, wildcards).ToList

But the result is different with

Dim files = Directory.GetFiles("G:\Music", ".", SearchOption.AllDirectories).Where(Function(f) f.EndsWith(".mp3") OrElse f.EndsWith(".jpg")).ToArray

I used two functions to get my music folder, NO1 return 617, NO2 return 593, can you test on your side? thank you.

Answer 5

Steven Young 261

The C# code below is easy for more file types.

var allowedExtensions = new [] {".doc", ".docx", ".pdf", ".ppt", ".pptx", ".xls", ".xslx"};
var files = Directory
.GetFiles(folder)
.Where(file => allowedExtensions.Any(file.ToLower().EndsWith))
.ToList();

How to convert to VB.NET?

Albert Kallal 5,586

That code snip does default some of the types (they are implied). I would have perfered stronger default typing.

So this would be the same:

       Dim folder As String = "c:\test"

        Dim allowedExtensions() As String = {".doc", ".docx", ".pdf", ".ppt", ".pptx", ".xls", ".xslx"}
        Dim files As List(Of String) = Directory.GetFiles(folder).Where(Function(file As String) allowedExtensions.Any(New Func(Of String, Boolean)(AddressOf file.ToLower().EndsWith))).ToList()

        For Each MyFile As String In files
            Console.WriteLine(MyFile)
        Next

Regards,
Albert D. Kallal (Access MVP 2003-2017)
Edmonton, Alberta Canada

Steven Young 261 Reputation points

2021-02-01T02:33:08.36+00:00

Not luck, your code did not work on my PC, it only get one file...
Steven Young 261 Reputation points

2021-02-01T02:34:22.483+00:00

The code below works well.
Dim wildcards As String() = {".mp3", ".jpg"}
Dim ListFiles As List(Of String) = FileIO.FileSystem.GetFiles("G:\Music", FileIO.SearchOption.SearchAllSubDirectories, wildcards).ToList
Albert Kallal 5,586 Reputation points

2021-02-01T18:24:10.357+00:00

Hum, I just converted the C# to vb. I'll have to test closer (it did work for me).

However, using "linq" expressions is often confusing - and in fact it makes a extra copy of the file list and thus gobbles up more ram anyway.

What you cooked up and have (using a filter in the first place) I think is MUCH better anyway.

So go with what you cooked up - I think it less confusing to read the code, write the code, and maintain the code.

Regards,
Albert D. Kallal (Access MVP 2003-2017)
Edmonton, Alberta Canada
Steven Young 261 Reputation points

2021-02-02T01:18:06.63+00:00

Sure, thank you.

Share via

How to convet the c# to VB.NET

4 additional answers

Your answer