WN - Skriva ut alla filer som bara slutar med .jpg ?

WN (https://www.wn.se/forum/index.php)

- Serversidans teknologier (https://www.wn.se/forum/forumdisplay.php?f=4)

- - Skriva ut alla filer som bara slutar med .jpg ? (https://www.wn.se/forum/showthread.php?t=14053)

Milad

2006-05-12 15:01

Hur gör jag om jag vill skriva ut alla filer i en mapp som bara slutar med .jpg och inget annat? Hur ser for lopen ut?

Max	2006-05-12 15:17

Vilket språk pratar vi om? Jag skulle använda right$ eller möjligtvis instr.

Jens	2006-05-12 15:30

I php skulle det kunna se ut såhär.

Kod:

<?php

$directory = "."; // punkten är nuvarande arbetskatalog

if ($handle = opendir($directory)) {

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

 * * * if (strpos(strtolower($file),".jpg") ) {

 * * * * * echo "$file\n";

 * * * }

 * }

 * closedir($handle);

}

?>

Men du verkar använda asp vid närmare efterforskning.

Westman

2006-05-12 15:37

ASP/VB:

Kod:

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder(folderspec)

Set fc = f.Files

For Each f1 in fc

  if right(lcase(f1.name),4) = ".jpg" then response.write(f1.name & "<br>" & vbcrlf)

Next

Lindahl

2006-05-12 16:42

Westmans funkar bra, men jag skulle vilja modifiera den lite:

Kod:

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder(folderspec)

Set fc = f.Files

For Each f1 in fc

 *if fso.GetExtensionName(f1) = "jpg" then response.write(f1.name & "<br>" & vbcrlf)

Next

Alla tider är GMT +2. Klockan är nu 09:40.