function MyDir
MyDir = "\public\"
End function

Dim oUpload
Set oUpload = new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = False
.Overwrite = True
.SetPath MyDir
.Load

cosa sbaglio? cosi mi da errore missing path