Dim i As Integer
For i = SavedPath.Length - 1 To 0 Step -1
Dim SubStr As String = SavedPath.Substring(i, 1)
If SubStr = "\" Then
Exit For
End If
For i = SavedPath.Length - 1 To 0 Step -1
Dim SubStr As String = SavedPath.Substring(i, 1)
If SubStr = "\" Then
Exit For
End If
Next
Dim FileName As String = Mid(SavedPath, i + 2)