Scripting.FileSystemObject hjælp
strPathInfo = Request.ServerVariables("APPL_PHYSICAL_PATH")folder = "../db/pictures/"
Set fs = CreateObject("Scripting.FileSystemObject")
Set objFolder = fs.GetFolder(strPathInfo & folder)
Set objFolderContents = objFolder.Files
open()
For Each objFileItem in objFolderContents
SQL = "SELECT Filnavn FROM PICTURES WHERE Filnavn = '" & objFileItem.Name & "'"
PicturesInDB = Conn.Execute(SQL)
If PicturesInDB.EOF then
'Add picture
end if
Next
close()
Jeg har fået sat følgene op. nogen der har link til en side hvor jeg kan se kommands til at få højde og brede, dato for hvornår billedet er taget(filen created) og sådan noget.
Det er udelukkende billeder der kommer til at ligge i folderen, men det kan koden jo ikke se pt, skal nok få det fixed :) hvis nogen har et par gode sidder eller ideer så skriv gerne
