Eccezione rinomino file

[evilsaint]

Se genera un eccezione il rinonimo del file come faccio a gestirla?

Dim fsoMyFile
Set fsoMyFile=Server.CreateObject("Scripting.FileSystemObject")
fsoMyFile.moveFile server.MapPath(vecchio),server.MapPath("nuovo")
Set Fso = Nothing

Grazie

[Roby_72]

Vecchio è una variabile, nuovo cos'è?

Roby

[Sypher]

intercetti l'errore...on error goto...o on error resume next

[evilsaint]

vecchio e il path del nome del file vecchio e nuovo e il nuovo nome.

In quale punto lo devo inserire on error goto?

[Roby_72]

Non ha una estensione il nuovo file?

Roby

[Sypher]

Originariamente inviato da evilsaint
vecchio e il path del nome del file vecchio e nuovo e il nuovo nome.

In quale punto lo devo inserire on error goto?

prima che avvenga l'errore e alla fine della funzione se nn hai bisogno di eseguire il codice che segue metti un etichetta preceduta da exit sub...exit function e è una funzione

Private Sub renameFile()
on error goto errore
'tuo codice
Exit Sub
Errore:
'istruzioni successive
End Sub

altrimentoi usi on error resume next e il codice prosegue magari risetti l'err=0