Compile and Execute VB.Net Online

Imports System
Imports System.IO
Public Module VBModule
 
Sub Main()
'Dim Directory As New IO.DirectoryInfo("C:\")
'Dim allFiles As IO.FileInfo() = Directory.GetFiles("*.txt")
Dim oShell 
Set oShell = CreateObject("WScript.Shell")
Dim LogFile As IO.FileInfo
oShell.CurrentDirectory = "C:\Users\ps87462\Documents\"

For Each LogFile In Directory.GetFiles("C:\Users\ps87462\Documents\*.txt")
    Console.WriteLine(LogFile.FullName)
Next

'For Each singleFile In allFiles
 '   Console.WriteLine(singleFile.FullName)
'Next
End Sub
  
End Module