Dim myString As String = $"C:\Users\McMahon\Desktop\Test3\BC230896.pdf"$
Dim Parts() As String = Regex.Split("\\", myString)
Dim FileName As String = Parts(Parts.Length - 1)
Log (FileName)
Dim Folder As String =myString.SubString2(0, myString.IndexOf(FileName))
Log(Folder)