Function AddFinalSlash(sFile) If right(sfile,1) = "\" Then AddFinalSlash = sFile else AddFinalSlash = sFile & "\" end if End function