Visualizzare tutte le immagini in una cartella...ok ...ma...

[Pius]

ragazzi con questo script:

<%
Set fs = Server.CreateObject ( "Scripting.FileSystemObject" )
Set dir = fs.GetFolder( "D:\Inetpub\webs\...ecc...ecc.." )
For Each File In dir.Files
Response.Write( "[img]& File.Name &[/img]" & File.Name )&"


"
Next
%>

Visualizza tutte le immagini presenti in ana cartella. Però ho un problema: mi visualizza oltre a tutte le immagini, anche tutti i file di altro tipo presenti nella cartella cercando di aprirli come immagini. Chi mi può consigliare uno script per far aprire solo i file con estensione gif, jpg,png ?

[gold]

For Each File In dir.Files
nomeFile=File.Name 
if mid(nomeFile,len(nomeFile)-3,3) = "gif" or mid(nomeFile,len(nomeFile)-3,3) = "jpg" or mid(nomeFile,len(nomeFile)-3,3) = "png" then
Response.Write( "[img]& File.Name &[/img]" & File.Name )&"


" 
end if
Next

prova cosi'

[Pius]

Unexpected 'Next'

??? mi sembra strano...

[Pius]

risolto..l'errore precedente..

ora però non mi fa vedere nulla...

[Pius]

così:

<%
Set fs = Server.CreateObject ( "Scripting.FileSystemObject" )
Set dir = fs.GetFolder( "D:\Inetpub\webs...ecc...ecc" )

For Each File In dir.Files
'if mid(File.Name,len(File)-3,3) = "gif" then 'or mid(File.Name,len(File)-3,3) = "jpg" or mid(File.Name,len(File)-3,3) = "png" then
Nome= File.Name
estensione = fs.GetExtensionName("D:\Inetpub\webs...ecc...ecc "& Nome)
if estensione = "jpg" or estensione = "gif" or estensione = "bmp" then
Response.Write( "[img]& Nome &[/img]"&" ../public/" & Nome & "" & estensione )&"


"
end if
Next
%> GRAZIE!!! per l'aiuto!

[gold]

[Roby_72]

Ma se usavi la right(nomeFile, 3) = "gif"... non facevi prima?

Roby

[gold]

Originariamente inviato da Roby_72
Ma se usavi la right(nomeFile, 3) = "gif"... non facevi prima?

Roby

pienamente d'accordo ma ho postato la prima cosa che mi è venuta in mente e a quest'ora dopo 35 ore da sveglio incomincio a perdere colpi e meglio che vada a fare un po di sonno

[weppos]

A dire il vero converrebbe usare

Right(fileName, Len(fileName) - InStrRev(fileName, "."))

In questo modo anche estensioni tipo .jpeg verranno considerate.
Quasi quasi scrivo un nuovo script.

[weppos]

Originariamente inviato da weppos
A dire il vero converrebbe usare

Right(fileName, Len(fileName) - InStrRev(fileName, "."))

In questo modo anche estensioni tipo .jpeg verranno considerate.
Quasi quasi scrivo un nuovo script.

Detto fatto.
http://www.weppos.com/asp/script_sho...ipt=774&cat=23