Kopiering og flytning af filer via asp

Kan du ikke bruge en af følgende:

<%
Public Function MoveFile(byVal tSource, byVal tDestination, byVal bForceOverwrite)
  ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  ' Author: Dennis Knappe (dennis@activeserverpages.dk)
  ' Fjern venligst ikke mit navn + e-mail
  ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  ' tSource = Relativ sti til fil som skal flyttes
  ' tDestination = Relativ destinations sti
  ' bForceOverwrite = True/False, bestemmer om destinations filen må overskrives
  ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  Dim strSource, strDestination, objFS

  strSource = Server.MapPath(sSource)
  strDestination = Server.MapPath(sDestination)

  ' Flyt mappen
  Set objFS = Server.CreateObject("Scripting.FileSystemObject")
  objFS.MoveFile strSource, strDestination, bForceOverwrite

  ' Nedlæg komponenten igen
  Set objFS = Nothing

  MoveFile = True
End Function
%>


Kopiere filer:
<%
Public Function CopyFile(byVal tSource, byVal tDestination, byVal bForceOverwrite)
  ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  ' Code by: Dennis Knappe (dennis@activeserverpages.dk)
  ' Fjern venligst ikke mit navn + e-mail
  ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  ' tSource = Relativ sti til filen der skal kopieres
  ' tDestination = Relativ sti til destinationsfil
  ' bForceOverwrite = True/False, bestemmer om destinations filen må overskrives
  ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  Dim strSource, strDestination, objFS
 
  strSource = Server.MapPath(sSource)
  strDestination = Server.MapPath(sDestination)
 
  ' Kopier filen
  Set objFS = Server.CreateObject("Scripting.FileSystemObject")
  objFS.CopyFile strSource, strDestination, bForceOverwrite
 
  ' Nedlæg komponenten igen
  Set objFS = Nothing
 
  CopyFile = True
End Function
%>

Du kan bruge dette, hvis det andet ikke virker, så vidt jeg hukser er der ikke en mulighed for at overskrive filen hvis den findes:

<%
fra = "d:\web\domain\www\test\filnavn.asp"
til = "d:\web\domain\www\normal\filnavn.asp"

set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(til) then
  fs.DeleteFile(til)
end if
fs.MoveFile fra,til
set fs=nothing
%>

Takker eagleeye det virkede, så kan jeg komme videre med mit opdaterings system

Jeg har lige et spørgsmål... er det muligt at navngive den nye fil som bliver oprettet ("til") ?