8.3路径格式的生成!

Question

各位大侠:小弟有如下问题请教:如何在VB中,用APP.PATH生成一个8.3格式的路径?另外,如何将长文件名变为8.3格式?
多谢!

Answer 1

if 如果目录的名称长度>8 then
    取前6个字符
    统计前6个字符相同的目录数
    分别命名为：前6个字符+N
end if