Hämta bilder från FTP!

Detta kanske !

<%
Response.Write(ReadDir(Server.MapPath("/bilder")))

Function ReadDir(FolderName)
  Dim objFSO
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

  ''Kontrollera att mappen finns
  If Not objFSO.FolderExists(FolderName) Then
    ReadDir = "Mappen <B>" & FolderName & "</B> finns inte !"
    Exit Function
  End If

  ''Skapa objekt för aktuell mapp
  Dim objFolder
  Set objFolder = objFSO.GetFolder(FolderName)
  Dim objFile

 ''Loopa igenom alla filer i mappen
  For Each objFile In objFolder.Files
    Response.Write(objFile.Path & "<BR>")
  Next

  Set objFolder = Nothing
  Set objFile = Nothing
  Set objFSO = Nothing

End Function
%>

Fungerar galant! Tack!

Men hur gör jag om jag bara vill lista ut bilder?

If objFile = "" Then
Response.Write(objFile)
End if

Så här kanske;

If (Right(objFile.Path, 4) = ".jpg" OR Right(objFile.Path, 4) = ".gif") Then
  Response.Write(objFile.Path & "<BR>")
End If

Det finns mer att läsa i denna tråden.

Jo, jag tänkte på det med, aja, det får bli så...

men .jpeg, .bmp... men jag använder ändå aldrig det..

För övrigt, har du nåt annat än bilder i den mappen ?

asp skrev:

Om jag har massa bilder i mappen bilder, hur gör jag för att lista ut deras namn?

Kort sagt: Jag vill lista ut alla namn i mappen bilder.

I så fall kan du vända på if-satsen, lista allt UTOM .txt, .htm eller vad det kan vara.

ja, men går det inte med typ...

if filnamn = picture then...

asp skrev:

ja, men går det inte med typ...

if filnamn = picture then...

Nu förstår jag inte vad du menar :q

Går det inte att kontrollera om filen är en bild genom liknande.?

If objFile.Path = Image Then
'weeeeee
End if

Det är utanför mina kunskaper, misstänker dock att det blir minst lika omständigt som att kolla filändelserna en och en.

Det går säkert att göra med någon Image-komponent, men det låter som att gå över ån efter vatten, tappa smöret och sätta eld på björnskinnet när man ändå håller på.

Håll dig till det som är enkelt, jag tror man förlorar mer än man vinner på att göra det mer komplicerat.

okk..