Type mismatch: 'GetFolder' scrivendo così:
codice:
Set fs = Server.CreateObject("Scripting.FileSystemObject")
if FolderExists(GetFolder(Server.MapPath("/public/" & nomeazienda & ""))) then
Set Folder = fs.GetFolder(Server.MapPath("/public/" & nomeazienda & ""))