Automatisk flytning af urørte filer

Du skal bruge fil system objektet til at flytte filer og mapper!!

f.eks.
Set fso = CreateObject("Scripting.FileSystemObject")
fso.moveFolder "c:\Diverse", "c:\inetpup\wwwroot\"

Du skal havde gang i filesystemobject FSO, http://www.w3schools.com/asp/asp_ref_filesystem.asp

Du skal så lave en stump koden som looper gennem alle filerne i en folder og tjekker om deres dato for last accessed er størrer end 3 måneder.

Eks som lister alle filer i en folder:
http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=90

For en fil har man så et fil obejct hvor man har disse data:
http://www.w3schools.com/asp/asp_ref_file.asp for at se hvornår filen sidts er accesed så brug: .DateLastAccessed

Du skal bruge DateDiff og tkekke på antal mådeder mellem .DateLastAccessed og idag Date()




<%
  'Create the FileSystemObject object
  Dim objFSO
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

  'Obtain an folder object instance for a particular directory
  Dim objFolder
  Set objFolder = objFSO.GetFolder("C:\FooBar\Blah\")

  'Use a For Each ... Next loop to display the files
  Dim objFile
  For Each objFile in objFolder.Files
   
    if dateDiff("m" objFile.DateLastAccessed, date()) >= 3 then
      'Flyt filen
    end if
  Next
%>

Måske skal du flytte alle filerne først hvis du ikke må flytte en mappe med filer i, via...
Set fso = CreateObject("Scripting.FileSystemObject")
fso.moveFile "c:\diverse\minfil.txt","c:\inetpup\wwwroot\minfil.txt"

For at flytte filen bruger du så FSO movefile eks her:
http://www.w3schools.com/asp/met_movefile.asp

der mangler et , i denne linie:
if dateDiff("m" objFile.DateLastAccessed, date()) >= 3 then

Sådan her:
if dateDiff("m", objFile.DateLastAccessed, date()) >= 3 then