如何取出一个文件夹下文件的 共同路径?

我爱钱钱钱

举个栗子 共同路径是  D:\易语言



如何取出来呢

xiaobaibk47

.版本 2
.支持库 spec

.子程序 扫描文件夹
.参数 文件路径, 文本型
.局部变量 flag, 文本型

.' 如果 (取文本右边 (文件路径, 1) ＝ “\”)
    ' flag ＝ 寻找文件 (文件路径 ＋ “*.*”, 16 ＋ 32)
.否则
    ' flag ＝ 寻找文件 (文件路径 ＋ “\*.*”, 16 ＋ 32)
.如果结束
flag ＝ “.”
调试输出 (flag)
.判断循环首 (flag ≠ “”)
    .如果真 (flag ＝ “.” 或 flag ＝ “..”)
        flag ＝ 寻找文件 (, 16 ＋ 32)
        到循环尾 ()
    .如果真结束

    ' 调试输出 (flag)
    .如果真 (flag ≠ “All Users”)
        .如果 (取文本右边 (文件路径, 1) ＝ “\”)
            列表框1.加入项目 (文件路径 ＋ flag, )
        .否则
            列表框1.加入项目 (文件路径 ＋ “\” ＋ flag, )
        .如果结束

    .如果真结束


    flag ＝ 寻找文件 (, 16 ＋ 32)
    调试输出 (flag)
.判断循环尾 ()

大司命

  

变量名	类 型	静态	数组	备 注
内容	文本型
i	整数型

计次循环首 (超级列表框1.取 表 项 数 (), i)
内容 ＝ 超级列表框1.取 标 题 (i － 1, 1)
如果真 (文本_取出现次数 (子文本替换 (内容, “D:\易语言\”, , , 1, 真), “\”) ＝ 0)
调试输出 (内容, i － 1)

计次循环尾 ()

.局部变量 内容, 文本型<br /> .局部变量 i, 整数型<br /> .计次循环首 (超级列表框1.取 表 项 数 (), i)<br />     内容 ＝ 超级列表框1.取 标 题 (i － 1, 1)<br />     .如果真 (文本_取出现次数 (子文本替换 (内容, “D:\易语言\”, , , 1, 真), “\”) ＝ 0)<br />         调试输出 (内容, i － 1)<br />     .如果真结束<br /> .计次循环尾 ()