ASPUpload check om der er noget i formen

For Each File in Upload.Files


   
            If FILE1.ImageType = "UNKNOWN" Then
            FILE1.Delete
            End If
           
            If FILE1.ImageType <> "JPG" Then
            FILE1.Delete
            End If
   
    '---- Lave nyt thumbnail navn
    Newname = Replace(FILE1.FileName,".jpg","")
    Newname = fixString(Newname)&"_"
    Newname = Newname&Replace(FormatDateTime(now(),3),"-","")
    Newname = Replace(Newname," ","")
    Newname = Replace(Newname,":","")
    Newname = Newname&".jpg"
    '---- Lave nyt thumbnail navn

            Name = Newname
            PathToImages = BaseDir & Name
            FILE1.Copy PathToImages
            FILE1.Delete   

                Set Jpeg = Server.CreateObject("Persits.Jpeg")
                Jpeg.Open PathToImages
                L = 640
                OriginalWidth = Jpeg.OriginalWidth
                If OriginalWidth > L Then
                Jpeg.Width = L
                Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
                Jpeg.Save PathToImages
                End if
                Set Jpeg = Nothing           



            If FILE2.Ext <> ".pdf" Then
            FILE2.Delete
            End If               
                '---- Lave nyt PDF navn
                Newname = Replace(FILE2.FileName,".pdf","")
                Newname = fixString(Newname)&"_"
                Newname = Newname&Replace(FormatDateTime(now(),3),"-","")
                Newname = Replace(Newname," ","")
                Newname = Replace(Newname,":","")
                Newname = Newname&".pdf"
                '---- Lave nyt PDF navn
            Name = Newname
            PathToImages = BaseDir & Name
            FILE2.Copy PathToImages
            FILE2.Delete   
           
Next




Giver fejlen:


Persits.Upload.1 error '800a0020'

The system cannot find the file specified.

ret.asp, line 99


99 er             FILE1.Copy PathToImages

PathToImages er korrekt det er som om filen er slettet.