易语言 遍历指定路径下所有文件夹 包括子文件夹

超级列表框1全部删除 ()

目录 ＝ 驱动器框1驱动器 ＋ “:\”

link ＝ 寻找文件 (目录, #子目录)

判断循环首 (link ≠ “”)

如果真 (link ≠ “” 且 link ≠ “”)

超级列表框1插入表项 (, link, 0, , , )

如果真结束

link ＝ 寻找文件 (, #子目录)

判断循环尾 ()

link1 ＝ 寻找文件 (目录, #子目录)

判断循环首 (link1 ≠ “”)

如果真 (link1 ≠ “” 且 link1 ≠ “”)

超级列表框1插入表项 (, link1, 1, , , )

如果真结束

link1 ＝ 寻找文件 (, )

判断循环尾 ()

子程序 _驱动器框1_驱动器被改变

目录文件夹 ()

试编写代码如下：

$dir="D:/WWW/ftp"; //指定的路径

$sitepath = 'http://localhost/ftp/';

//遍历文件夹下所有文件

if (false != ($handle = opendir ( $dir ))) {

    echo "$dir 目录下的文件列表：<BR/>";

    $i = 0;

    while (false !== ($file = readdir($handle))) {

        if ($file != "" && $file != "" && !is_dir($dir'/'$file)) {

            echo '<a href="'  $sitepath  $file  '">'$file '</a><br/>';

        }

    }

    //关闭句柄

    closedir($handle);

}

>

代码中需要提示的是：

如果是运行于互联网上，需要考虑文件的访问安全性。

运行截图：