Imports System
Imports System.Text.RegularExpressions
Class Program
Public Shared Sub Main()
Dim filePath As String = "c:\path\to\file\WITH Whitespace1 and Whitespace2.vb"
Dim result As String = NormalizeFilename(filePath)
Console.WriteLine(result)
End Sub
Private Shared Function NormalizeFilename(ByVal filePath As String) As String
Dim filename As String = Regex.Replace(filePath, "^.*[\\\/]([^\\\/]*)$", "$1")
filename = filename.Replace(" ", "_")
filename = filename.ToLower()
Return filename
End Function
End Class
' run:
'
' with_whitespace1_and_whitespace2.vb
'