フォルダの画像一覧
下記の画像一覧のcgiを下位フォルダをリンク表示して下位フォルダにも進んでいけるようにしたいのですが、どのようにしたらよいでしょうか。下記も教えていただいたものを利用している素人です。よろしくお願いいたします。
$width_height = 'WIDTH=40 HEIGHT=55';
$dir = './';
####################
print "Content-type: text/html;CHARSET=x-sjis\n\n";
print "$dir の jpg一覧<P>\n";
print "<TABLE BORDER>\n";
print "<TR><TH>イメージ<TH>ファイル名<TH>サイズ(k)\n";
opendir(DIR, "$dir");
while ($_ = readdir(DIR)) {
if (substr($_,-4,4) eq "\.jpg") { # jpgだけ出力
($size) = (stat("$dir/$_"))[7]; # ファイルサイズ所得
print "<TR>";
print "<TD><A HREF=\"$dir/$_\" TARGET=\"jpg\"><IMG SRC=\"$dir/$_\" $width_height></A>"; # 画像(リンクあり)
print "<TD><A HREF=\"$dir/$_\" TARGET=\"jpg\">$_</A>"; # ファイル名(リンクあり)
print "<TD ALIGN=RIGHT>$size\n"; # サイズ
}
}
closedir(DIR);
print "</TABLE>\n";
exit:
お礼
早速コメントありがとうございます! フリーソフトがあるのですね、知りませんでした… 情報ありがとうございます!