Перевод пути с Win в Dos

[sQx]

Т.е. вот такая задача: нужно перевести такую строку:
c:\mamamamam\mamama\mamamamamama\
в
c:\mamama~1\mamama\mamama~1\

Может кто сделает более рационалнным способом, ато у меня много цтклов вышло!

[ShadowCaster]

function WTD(byval txt as string) as string()
dim rs() as string
ar = split(txt, "\")
redim rs(ubound(ar))
rs(0) = ar(0)
for a=1 to ubound(ar)
rs(a) = iif(len(ar(a)>8, left(ar(a),6)+"~1", ar(a))
next

WTD = rs
end function

[sanches]

с ~1 проблемы будут. dos-ные имена заканчиваются и на другие символы.

[sQx]

Да вот именно у меня с ~1 и эти глюки.. это сделать не так просто....

[GSerg]

RTFM.