Crear File en ruta especifica?

[JuanRAPerez]

era esta funcion

Function Generic_FileCopy(ByVal strFileSource,ByVal strFileDestination,ByVal strOverWrite)
'--------------------------------[ERROR CHECKING]--------------------------------
' ERROR CHECKING!!!!...
IF strFileSource = "" or isnull(strFileSource) Then
Response.Write("Sorry but a File Source path is required when calling this function")
Response.End
End IF
' ERROR CHECKING!!!!...
IF strFileDestination = "" or isnull(strFileDestination) Then
Response.Write("Sorry but a File Destination path is required when calling this function")
Response.End
End IF
' ERROR CHECKING!!!!...[True - False]
IF strOverWrite = "" or isnull(strOverWrite) Then
Response.Write("Sorry but a File Destination path is required when calling this function")
Response.End
End IF

'--------------------------------[/ERROR CHECKING]--------------------------------
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(strFileSource) Then
fso.CopyFile strFileSource, strFileDestination, strOverWrite
Else
Response.Write("El archivo no existe.")
Response.End
End If
Set fso = Nothing
End Function