you can use vbscript instead
strData = "\Rock and Roll\Music \Dance"
ArrayData = Split(strData,"\")
For i=LBound(ArrayData) To UBound(ArrayData)
ArrayData(i) = Trim(ArrayData(i))
Next
strFinal = Join(ArrayData,"\")
WScript.Echo strFinal
'or another way, using replace
WScript.Echo Replace(strData," \","\")