ciao a tutti
vorrei visualizzare in automatico con la durata di 5 sec. le immagini (file .jpg, .gif) presenti in una determinata cartella.
leggo i file cosi':
non riesco ad applicare lo slideshow....codice:<% ' Dichiara le variabili necessarie Dim objFso, objFolder, objFiles Dim strFolder, strFile, strPath, strExt ' Definisci il percorso della cartella da leggere strPath = "pics/" strExt = ".jpg" ' Crea gli oggetti FSO necessari Set objFso = Server.createObject("Scripting.FileSystemObject") Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) Set objFiles = objFolder.Files ' Scorri tutti i file nella cartella x=0 for each strFile in objFiles ' Controlla l'estensione if Right(strFile.name, Len(strExt)) = strExt then // qui dovrei/vorrei mettere i nomi in un array 'Response.Write(strFile.name) & " " end if next ' Distruggi oggetti e libera risorse Set objFso = Nothing Set objFolder = Nothing Set objFiles = Nothing //qui vorrei mettere il div in cui visualizzare le immagini una dopo l'altra %>![]()
![]()
chi mi aiuta?
![]()

Rispondi quotando