Avatar billede jobb Nybegynder
10. april 2005 - 15:10 Der er 1 løsning

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
Avatar billede jobb Nybegynder
18. oktober 2005 - 16:28 #1
Hmm
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester