Il codice che da problemi è il seguente:

dim objFS
dim cartellaAllegati
dim listaFilesAllegati
dim objFile
dim FileProgetto

set objFS = Server.CreateObject("Scripting.FileSystemObject")
set cartellaAllegati = objFS.GetFolder(pathCartelleFilesAllegati)

Su questa riga di codice si blocca, qualcuno sa da cosa può dipendere.
Il server è localhost.

grazie mille il problema era quello!
TXS