asimage findes filen og upload
Hvordan får jeg tjekket om filen fra "cover" findes i mappen "cover_lille" og hvis den ikke findes uploader den filen med ny størelse jeg har prøvet uden held med koden nedeunder.folder = "cover\"
folder_lille = "cover_lille\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(folder))
For Each File In f.files
response.write "Denne fil findes tjekkes -- " & folder_lille & file.name & "<br>"
if fs.FileExists(folde_lille & file.name & "") = false then
'response.write "Uploadning -- " & file.name & "<br>"
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage folder & file.name
Image.FileName = folder_lille & file.name
Image.ImageFormat = 1
Image.JPEGQuality = 70
IMAGE.RESIZE 150, 100
IMAGE.SaveImage
end if
Next
Set folder = Nothing
Set folder_lille = Nothing
Set fs = Nothing