Replace, Left, and Right Functions

[krammer]

Any idea's on how to make these statements any shorter?

strDrive = iMBS.DBPath
strDrive = (Left(strDrive,1))
strDrive = Replace(strDrive, strDrive, strDrive & "$")
strPath = iMBS.DBPath
strPath = Right(strPath,Len(strPath)-2)
strNetPath = strDrive & strPath

 

[krammer]

I cut it down to 4 lines...

strDBPath = iMBS.DBPath
strDrive = Replace(strDBPath, Right(strDBPath,Len(strDBPath)-1), "$")
strLocal = Right(strDBPath,Len(strDBPath)-2)
strNetPath = strDrive & strLocal

 

[krammer]

Ok I don't know why I was making this so complicated...all I had to do was replace a colon!

strLocalPath = iMBS.DBPath
strNetPath = Replace(strLocalPath, ":", "$")