Sovrascrivere una cartella

[frykky]

Utilizzo questo script per creare delle cartelle:

Set objFso = Server.createObject("Scripting.FileSystemObject")
objFso.createFolder(strNewFolder)

però se esiste di già la cartella con quel nome mi restituisce:

Microsoft VBScript runtime  error '800a003a'

File already exists

/outputFile.asp, line 53

E' possibile sovrascrivere le cartelle? Oppure mi aiutate a fare una IF appropriata?

Grazie mille

[Roby_72]

No, se la cartella specificata esiste già, verrà generato un errore.
Verificane l'esistenza invece di ricrearla inutilmente...

Function ReportFolderStatus(fldr)
   Dim fso, msg
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FolderExists(fldr)) Then
      msg = fldr & " esiste."
   Else
      msg = fldr & " non esiste."
   End If
   ReportFolderStatus = msg
End Function

Roby