Pages

Wednesday 18 July 2012

Remove Trailing Backslash - VBScript




On Error Resume Next


Dim strNewValue, Path, slash


       Path = InputBox("Enter Folder Path", "Please Enter", "")


       slash = Len(DatabasePath1)-1


       strNewValue = mid(Path, 1, slash)


msgbox StrNewValue

No comments:

Post a Comment