programma voor het automatisch verplaatsen van bestanden

[danielrodenburg]

ik ben opzoek naar een programma die bestanden die ouder zijn dan 'x' aantal dagen verplaatst, en verwijderd van de plek waar de bestanden stonden.

bijvoorbaat dank!!

Daniel

[Sosabowski]

code:

man crontab

MAW als je niet verteld welk besuringssysteem je hebt weten we niks. Tevens is het handig om te vertellen wat je reeds geprobeerd hebt.

[danielrodenburg]

IorGie schreef op woensdag 12 maart 2008 @ 14:54:

code:

man crontab

MAW als je niet verteld welk besuringssysteem je hebt weten we niks. Tevens is het handig om te vertellen wat je reeds geprobeerd hebt.

het kopieren gaat van een windows server 2003 systeem naar, of een dvd of een externe harde schijf. we hadden een programma gevonden namelijk delenda maar dat werkte niet.

[Big Womly]

Waarom via een applicatie? Dit lijkt me heel eenvoudig te realiseren met een VB-scriptje: FileSystem Object creëren, via datediff de datum van de file vergelijken met de sysdate en als het groter is dan de kantelwaarde, verplaatsen naar je externe HDD.
Toegegeven, om het naar DVD te schrijven zal het wat moeilijker zijn.

Edit:
@ - Willie - Het schol maar fracties van een seconde

[ Voor 9% gewijzigd door Big Womly op 12-03-2008 15:13 ]

[Verwijderd]

daar moet vast wel iets voor te vinden...ik weet zkr dat als je gaat googlen wel iets kunt vinden..

mbsaerens was iets sneller...
Je hoeft niet altijd een appl. te hebben een scriptje is al zat..

[ Voor 33% gewijzigd door Verwijderd op 12-03-2008 15:07 ]

[danielrodenburg]

Verwijderd schreef op woensdag 12 maart 2008 @ 15:06:
daar moet vast wel iets voor te vinden...ik weet zkr dat als je gaat googlen wel iets kunt vinden..

mbsaerens was iets sneller...
Je hoeft niet altijd een appl. te hebben een scriptje is al zat..

heb aardig lang gegoogled maar 'nog' niks gevonden. vandaar dat ik het op dit forum vraag.

[danielrodenburg]

ik heb een script gevonden. bedankt voor de reacties

[Verwijderd]

hoe? en wat is de uitkomst?

Misschien wel interessant voor de mede tweakers...
Wel zo collegiaal

[danielrodenburg]

Verwijderd schreef op woensdag 12 maart 2008 @ 16:37:
hoe? en wat is de uitkomst?

Misschien wel interessant voor de mede tweakers...
Wel zo collegiaal

na nog even op google te hebben gezocht kwam ik bij een forum met waar een vb script stond voor het verplaatsen van bestanden na een x aantal uur/dagen.

code:

Option Explicit 
 
On Error Resume Next
 
Dim fso, FileSet, Path, File, DDiff, Date1, Date2, DestPath
 
Path = "pad"
DestPath = "pad" 
'DestPath must end with \
FileSet = GetDirContents(Path) 
 
For each File in FileSet 
 Set File = fso.GetFile(Path & "\" & File)
 Date1 = File.DateLastModified 
 '.DateCreated if you want 24hrs of life, this example is 24hrs since last written
 Date2 = Now()
 
  DDiff = Abs(DateDiff("h", Date1, Date2))
 
    If DDiff >= 24 Then
      If Not fso.FileExists(DestPath & File.Name) Then
        File.Move DestPath
        'wscript.echo File.Name
      Else
        wscript.echo "Unable to move file [" & File.Name & "].  A file by this name already exists in the target directory."
      End If
    End If
Next 
 
Function GetDirContents(FolderPath) 
 Dim  FileCollection, aTmp(), i 
 Set fso = CreateObject("Scripting.FileSystemObject") 
 Set FileCollection = fso.GetFolder(FolderPath).Files 
 
  Redim aTmp(FileCollection.count - 1) 
  i = -1 
 
    For Each File in FileCollection 
       i = i + 1 
       aTmp(i) = File.Name 
    Next 
 
  GetDirContents = aTmp 
End Function

probleem met dit script is dat hij alleen bestanden verplaatst en geen mappen, nog even zoeken dus.

[alt-92]

Even kijken op http://www.microsoft.com/...ources/qanda/default.mspx dan leer je er ook nog wat bij
http://www.microsoft.com/...esources/qanda/files.mspx

[Big Womly]

probleem met dit script is dat hij alleen bestanden verplaatst en geen mappen, nog even zoeken dus.

Uitbreiden naar mappen lijkt me niet moeilijk. Zet de code die niet in een functie staat in een functie met als parameter welke map je wil verplaatsen en roep deze recursief op.

[ Voor 70% gewijzigd door Big Womly op 21-03-2008 09:38 ]