Help for this page

Select Code to Download


  1. or download this
    opendir(DIR, $path);
@files = readdir(DIR);
closedir(DIR);
...
  print "FILE[$ct]: \"$fname\" \"$newfname\"\n";
  $ct++;
  }
  2. or download this
    Skipped "."
Skipped ".."
FILE[0]: "AUTORUN.INF" "autorun.inf"
...
FILE[10]: "private" "private"
FILE[11]: "smbusers" "smbusers"
FILE[12]: "GIFS" "gifs"