Flyt fil lokalt

http://www.activeserverpages.dk/iishelp/vbscript/htm/vsmthmovefile.htm

Tak for svaret, men Jeg kan ikke få det til at virke...


FileSystemObject.CopyFile \"c:\\lars\\1014.jpg\", \"c:\\lars2\\\"

------------ Og jeg har prøvet med denne: ---------------


Drivespec=\"c:\\lars\\\"

Sub MoveAFile(Drivespec)
  Dim fso
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  fso.MoveFile Drivespec, \"c:\\lars2\\\"
End Sub

Daddo

Den her virker ihverfald hos mig
<%
dim filesys, demofile
set filesys = CreateObject (\"Scripting.FileSystemObject\")
set demofile = filesys.GetFile(\"c:\\somefile.txt\")
demofile.Copy(\"c:\\projects\\someotherfile.txt\")
%>
Så kan du jo bare slette den bagefter

Eller også kan du bruge
<%
dim filesys
set filesys=CreateObject(\"Scripting.FileSystemObject\")
If filesys.FileExists(\"c:\\sourcefolder\\anyfile.html\") Then
  filesys.MoveFile \"c:\\sourcefolder\\anyfile.html\", \"c:\\destfolder\\\"
End If
%>

Kan også set et andet problem du skriver jo ikke nogen om hvilken fil den skal flytte du skriver bare et bibliotek til et bibliotek det kan du ikke gøre på den måde.

Så skal du have lavet en lykke der finder alle filerne i biblioteket og kører så legeså mange gange som der er filer i biblioteket og inssætter så filnavnet hver gang.

Jeg har selv lavet noget lignende der tager en masse billedfiler fra et bibliotek og flytter dem over i et andet og laver så filnavnene om til fortløbende nummer f.eks 000000.gif fil 001058.gif hvor man så vælger antal cifre og hvorfra den skal starte med at tælle.

Så lykkes det.

Tak for hjælpen.