Realizzare una DLL ActiveX per l'upload di file (Parte VII)

Pagina 7 di 7

Nessun errore fino a questo punto, allora possiamo associareil valore OK alla variabile strUploadReport perindicare che il trasferimento è avvenuto con successo.

strUploadReport = "OK"ExitFunction:

Gestiamo gli eventuali errori non gestiti sin'ora:

Select Case Err

Codice di errore 0 (zero): Nessun errore

Case 0: strUploadReport = "OK"

Codice di errore 76: Percorso non trovato

Case 76: strUploadReport = "ERR NO DIRECTORY"

Codice di errore sconosciuto: viene riportato sia il numeroche la descrizione

Case Else: strUploadReport = "ERR UNKNOW: " & Err.Number & " - " & Err.DescriptionEnd Select

Assegnamo a Upload il valore di strUploadReport

Upload = strUploadReportEnd Function

Abbiamo terminato: salviamo il progetto e compiliamo la DLL(menù File ... Compila MMKit.DLL)

Logicamente sappiate che non mi ritengo responsabile qualora,un errato utilizzo di questa DLL comportasse gravi danni aServer Web o qualsiasi altro tipo di Server.