Asp na upload file de file deleten op de server

[Verwijderd]

Ik heb een script gemaakt waarbij men via html formulier een file upload naar een directory, deze file word vervolgens als attachment naar mijn mail gestuurd, hierna wil ik een stuk script dat de file delete op de server. Ik heb het volgende maar dit pikt hij niet.

code:

' Create the file, change the path to the path U use for temp storage of the file
                ' make sure you have the IUSR_YOURCOMPUTER granted WRITE access to the uploads dir
                Set fso = CreateObject("Scripting.FileSystemObject")
                    Set f = fso.OpenTextFile(server.mappath("../cgi-bin") & "\" & FileName, ForWriting, True)
                        f.Write strFileData
    
                        ' Get full Path, you need it for deleting the file later    
                        Dim ThisFile
                    ThisFile = server.MapPath("../cgi-bin") & "/" & filename
    
                lngNumberUploaded = lngNumberUploaded + 1
            
            ' destroy f, free memory
            set f = nothing
            
        'Get then next boundry postitions if any
        lngCurrentBegin = instr(1,strDataWhole,strBoundry)
        lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1
loop
        
      if mailComp = "mail" then
    
      set cdoMessage = Server.CreateObject("CDO.Message")
       set cdoConfig = Server.CreateObject("CDO.Configuration")
       cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
       cdoConfig.Fields.Update
       set cdoMessage.Configuration = cdoConfig
       cdoMessage.From =  "[e-mail]"
       cdoMessage.ReplyTo = replyTo
       cdoMessage.To = "[e-mail]"
       cdoMessage.Subject = subject
       cdoMessage.HtmlBody = body
       cdoMessage.AddAttachment ThisFile
       on error resume next
       cdoMessage.Send
       fs.DeleteFile = ThisFile
       
       if Err.Number <> 0 then
        SendMail = "Email send failed: " & Err.Description & "."
       end if
       set cdoMessage = Nothing
       set cdoConfig = Nothing

Ziet iemand wat ik verkeerd doe?

[gorgi_19]

"Hij doet het niet" is nogal vaag, dan kunnen we alleen zeggen: "Er zit een fout in je code en / of configuratie"

Je zal toch echt met meer info moeten komen, zoals een exacte foutmelding en op welke regel hij fout gaat.

Zie ook De quickstart

[ Voor 30% gewijzigd door gorgi_19 op 25-03-2006 13:53 ]

[Verwijderd]

Hij geeft geen foutmelding, het probleem is dat hij de file niet delete op de server. Hij stuurt me een mail en de bijbehorende attachment die eerst naar de server gekopieerd wordt. Maar hij delete me de file niet van de server zodra ik de mail binnen heb..

[gorgi_19]

Verwijderd schreef op zaterdag 25 maart 2006 @ 13:54:
Hij geeft geen foutmelding, het probleem is dat hij de file niet delete op de server. Hij stuurt me een mail en de bijbehorende attachment die eerst naar de server gekopieerd wordt. Maar hij delete me de file niet van de server zodra ik de mail binnen heb..

Nee, die foutmelding onderdruk je ook door de On Error Resume Next, daardoor kan die niet crashen.

[NMe]

Sorry hoor, maar hier beginnen we niet aan. Lees Programming FAQ - De "quickstart" maar eens door, aan dit topic ontbreekt gewoon veel teveel info. Daarnaast is het overduidelijk dat dit niet je eigen script is, aangezien ik die code met Google talloze keren tegenkom op forums en dergelijke. We geven hier in Programming geen support op scripts van derden, dus mail de maker maar.