Software voor automatisch kopieren van mappen.

[Beerkiller]

Ik ben opzoek naar een scriptje of een programmaatje die mappen van bepaald aantal dagen kopieert naar een andere map.

Ik heb thuis namelijk een film server draaien op Windows 7 met gewone Windows shares.
En op me Clients draait gewoon Windows 7 met XBMC.

Alleen nu wil ik een lijst hebben met nieuwe films die ik heb gekocht/gedownload. Het probleem is alleen dat als ik niet thuis ben of er gewoon niet aan toe kom, de oude films daar uit niet verdwijnen en dat wil ik dus automatisch laten gebeuren. Dus dat ze na een maand bij de gewone films worden toe gevoegd en niet in de map nieuw blijven staan.

Ik hoop dat ik een beetje duidelijk ben met wat ik bedoel. If not, just ask.

[mrtnptrs]

Beerkiller schreef op zondag 07 augustus 2011 @ 13:28:
Ik ben opzoek naar een scriptje of een programmaatje die mappen van bepaald aantal dagen kopieert naar een andere map.

Ik heb thuis namelijk een film server draaien op Windows 7 met gewone Windows shares.
En op me Clients draait gewoon Windows 7 met XBMC.

Alleen nu wil ik een lijst hebben met nieuwe films die ik heb gekocht/gedownload. Het probleem is alleen dat als ik niet thuis ben of er gewoon niet aan toe kom, de oude films daar uit niet verdwijnen en dat wil ik dus automatisch laten gebeuren. Dus dat ze na een maand bij de gewone films worden toe gevoegd en niet in de map nieuw blijven staan.

Ik hoop dat ik een beetje duidelijk ben met wat ik bedoel. If not, just ask.

Al gezocht op google?
Wel doen he!

[Remco]

Dus even résume:
Je wilt bestanden die ouder zijn dan x dagen verplaatsen naar een andere map ?

[Beerkiller]

Ja dat is precies wat ik wil.

@mrtnptrs
Ik ben ook druk daar meer bezig maar een extra haakje is nooit verkeerd. Maar heb nog nooit iets kunnen vinden wat doet wat ik wil.

[Verwijderd]

forfiles -p "C:\what\ever" -s -m *.* -d <number of days> -c "cmd /c del @path"

1sec google werk.

http://www.google.com/sea...8b5a64cb&biw=1260&bih=639

[edit]Let Op! deze wist bestanden!

[ Voor 62% gewijzigd door Verwijderd op 07-08-2011 20:51 ]

[Beerkiller]

Waar heb je op gegoogeld dan. Want ik google op filemanagers en directory managers

Edit: Laat maar

[ Voor 10% gewijzigd door Beerkiller op 07-08-2011 20:54 ]

[Fish]

Gozer. klik dan gewoon op de link

[Beerkiller]

fish schreef op zondag 07 augustus 2011 @ 20:55:
Gozer. klik dan gewoon op de link

Ja die kwam er later bij dus die had ik niet gezien. Srry

[alt-92]

Wat is er mis met een copy- of MoveFile scriptje wat je via een Scheduled Task laat lopen?

[ Voor 7% gewijzigd door alt-92 op 08-08-2011 08:56 ]

[Beerkiller]

Kan ik iemand mij helpen met het maken van een goed script.

Ik kan het zelf niet en om nou voor zo iets simpels een hele taal te gaan leren zit ik ook niet echt te wachten.

Wat moet het kunnen?
-Kijken of er een map met bestanden ouder is dan 30 dagen. Dus niet aan de hand van date modified maar naar de datum dat die map gemaakt is.
-Indien gevonden de hele verplaatsen naar andere map inclusief sub folders
-Het gedaane werk weg schrijven in een log file. (Indien dit te veel werk is mag het ook achterwegen gelaten worden

Kan iemand dat. Het mag een simpel vbs scriptje zijn.

Ik kan namelijk nog niet echt iets vinden wat doet wat ik precies wil.

[Fish]

Zijn we nu opgewaardeerd van helpdesk (wat got niet is) naar gratis programmerbedrijf ?

voor iets simpels hoef je niet helemaal een hele taal te leren. alleen maar een paar comando's te begrijpen.

Bak eerst zelf eens iets, en als het niet lukt kom je even terug met wat er misgaat en kunnen we je weer een hint geven (en dat is helpen)

[ Voor 4% gewijzigd door Fish op 11-08-2011 17:59 ]

[Beerkiller]

Dim objFSO As FileSystemObject
Dim objFolder As Folder
Dim objSubFolder As Folder
Dim LogFolderPath
Dim ArchiveFolderPath As String

LogFolderPath = "C:\test" 'Set this to the folder containing your subfolders
ArchiveFolderPath = "C:\test2" 'Set this to whatever you need

Set objFSO = New FileSystemObject 'Init the FileSystemObject
'Make sure that the folder paths are correctly formatted:
If Right$(LogFolderPath,1) <> "\" Then LogFolderPath = LogFolderPath & "\"
If Right$(ArchiveFolderPath,1) <> "\" Then ArchiveFolderPath = ArchiveFolderPath & "\"
'Check to make sure that both folders exist before going on
If objFSO.FolderExists(LogFolderPath) = True And objFSO.FolderExists(ArchiveFolderPath) = True Then
'Get the log folder
Set objFolder = objFSO.GetFolder(LogFolderPath)
'Perform a loop, assigning the sub folder data to objSubFolder for each sub folder in LogFolderPath
For Each objSubFolder In objFolder
'Check to see if the folder is over 14 days old
If DateDiff("d", subFolder.DateCreated, Now) > 30 Then
'Folder is old, move it to the archives
objFSO.MoveFolder objSubFolder.Path, ArchiveFolderPath & objSubFolder.Name
End If
Next 'Get the next folder
Set objSubFolder = Nothing 'Clean Up
Set objFolder = Nothing 'Clean Up
Else
'A folder does not exist, error handle here
End If
Set objFSO = Nothing 'Clean up

Dit heb ik van internets. Ik sla dit op als vbs script. Alleen is ik hem run krijg ik een error:

http://imageshack.us/photo/my-images/64/errorap.jpg/

[Tijntje]

Probeer het eens met robocopy, die kan dat ook volgens mij.

[Fish]

Beerkiller schreef op donderdag 11 augustus 2011 @ 18:05:

Visual Basic:

Dim objFSO As FileSystemObject 
Dim objFolder As Folder 
Dim objSubFolder As Folder
Dim LogFolderPath 
Dim ArchiveFolderPath As String 

LogFolderPath = "C:\test" 'Set this to the folder containing your subfolders
ArchiveFolderPath = "C:\test2" 'Set this to whatever you need

Set objFSO = New FileSystemObject 'Init the FileSystemObject
'Make sure that the folder paths are correctly formatted:
If Right$(LogFolderPath,1) <> "\" Then LogFolderPath = LogFolderPath & "\"
If Right$(ArchiveFolderPath,1) <> "\" Then ArchiveFolderPath = ArchiveFolderPath & "\"
'Check to make sure that both folders exist before going on
If objFSO.FolderExists(LogFolderPath) = True And objFSO.FolderExists(ArchiveFolderPath) = True Then
    'Get the log folder
    Set objFolder = objFSO.GetFolder(LogFolderPath)
    'Perform a loop, assigning the sub folder data to objSubFolder for each sub folder in LogFolderPath
    For Each objSubFolder In objFolder
        'Check to see if the folder is over 14 days old
        If DateDiff("d", subFolder.DateCreated, Now) > 30 Then
            'Folder is old, move it to the archives
            objFSO.MoveFolder objSubFolder.Path, ArchiveFolderPath & objSubFolder.Name
        End If
    Next 'Get the next folder
    Set objSubFolder = Nothing 'Clean Up
    Set objFolder = Nothing 'Clean Up
Else
    'A folder does not exist, error handle here
End If
Set objFSO = Nothing 'Clean up

Dit heb ik van internets. Ik sla dit op als vbs script. Alleen is ik hem run krijg ik een error:

http://imageshack.us/photo/my-imag

dat is wel een hele knappe error

404 Not Found

--------------------------------------------------------------------------------

nginx/0.8.37

[Beerkiller]

fish schreef op donderdag 11 augustus 2011 @ 18:19:
[...]


dat is wel een hele knappe error


[...]

Oeps foutje

[Beerkiller]

De link moet zijn http://imageshack.us/photo/my-images/64/errorap.jpg/

[Beerkiller]

Tijntje schreef op donderdag 11 augustus 2011 @ 18:09:
Probeer het eens met robocopy, die kan dat ook volgens mij.

Dan kan ik alleen bestanden kopieren maar ik heb de films in een mapje zitten met de naam van de film.

http://imageshack.us/photo/my-images/685/mapnieuwefilms.jpg/

Zoals staat uitgelegd in de screen shot.

[Verwijderd]

Dit is een goed moment om te leren scripten, iets met leren vissen

[Beerkiller]

Verwijderd schreef op donderdag 11 augustus 2011 @ 20:53:
Dit is een goed moment om te leren scripten, iets met leren vissen

Ja je hebt opzich ook wel gelijk maar zou je ook naar dat script kunnen kijken wat ik van internets geplukt heb.

Er zit ergens een fout in de 1e regels 12 caracter. Kan alleen nog niet vinden wat het is.

Verder begrijp ik wel globaal wat het script doet op verschillende plekken.

[Verwijderd]

Die "\" moeten denk ik "\\" zijn. De forum software zal hier perongeluk een enkele van hebben gemaakt.

Je escaped nu de quote waardoor het lijkt dat de string niet is afgeloten.
Ik weet te weinig van WSH, sorry.

[ Voor 37% gewijzigd door Verwijderd op 11-08-2011 22:41 ]

[Beerkiller]

nope werkt ook niet. Nog steeds zegt hij dat er een fout zit in regel 1 karakter 12. Dat is bij het As gedeelte maar ik zie daar zo geen fout in. Als het vergelijk met andere fora waar iets over vbs staat.

[F_J_K]

[google=Windows 7 Dim objFSO As FileSystemObject] suggereert al een en ander (i.c.m. enige basisvaardigheid met WSH/VBS). Als je een script maakt dan wil je die basis kennen dus ik stel voor dat je zelf even gaat debuggen na snappen wat elke regel precies doet

[YellowOnline]

Als je niet wil leren scripten, kijk op z'n minst naar ROBOCOPY.

Is dat nog teveel moeite, gebruik Microsoft SyncToy.

[ Voor 50% gewijzigd door YellowOnline op 11-08-2011 23:00 ]

[Beerkiller]

YellowOnline schreef op donderdag 11 augustus 2011 @ 22:59:
Als je niet wil leren scripten, kijk op z'n minst naar ROBOCOPY.

Al gedaan maar die verplaatst files en geen mappen. Correct me if i am wrong

[YellowOnline]

Beerkiller schreef op donderdag 11 augustus 2011 @ 23:00:
[...]


Al gedaan maar die verplaatst files en geen mappen. Correct me if i am wrong

You are wrong.

/MOVE :: MOVE files AND dirs (delete from source after copying).

Moest je nog een beetje moeite zelf doen, dan had ik je uit sympathie al een script geschreven.

[F_J_K]

En zelfs als het niet kon: daar zijn loops voor uitgevonden

[YellowOnline]

Ongetest, maar kom:

PowerShell:

$MapWaarJeDingenZichBevindenOpJePC = "C:\EenOfAndereStructuur\Nieuw"
$MapWaarJeHetWiltOpJeShare = "\\ShareNaam\EenOfAndereStructuur\EenOfAndereMap"
$DitIsEenCollectie = @(Get-ChildItem $MapWaarJeDingenZichBevindenOpJePC)
ForEach ($DingDatInDieMapOpJePCZit in $DitIsEenCollectie)
    {
    Move-Item  $DingDatInDieMapOpJePCZit $MapWaarJeHetWiltOpJeShare -Force
    }

Sla op als DitIsMijnAutomatischKopieerScript.ps1, open Powershell als Administrator en geef in

PowerShell:

Set-ExecutionPolicy Unrestricted

Bevestig. Navigeer nu naar waar je het script opgeslaan hebt en geef in:

PowerShell:

.\DitIsMijnAutomatischKopieerScript.ps1

Heeft dit gewerkt? Maak er dan een scheduled task van.

[ Voor 3% gewijzigd door YellowOnline op 11-08-2011 23:12 ]

[Beerkiller]

YellowOnline schreef op donderdag 11 augustus 2011 @ 23:03:
[...]


You are wrong.


[...]


Moest je nog een beetje moeite zelf doen, dan had ik je uit sympathie al een script geschreven.

Srry daar had ik over heen gelezen. Mijn excussus daarvoor nu kan ik wel wat proberen mocht je script dat je me gegeven had niet werken.

Edit/Update: Ben bezig met een Robocopy en heb nu al dit

@echo off :loop cls echo 24 uur tot verversing van de nieuwe films timeout /t 86400 Robocopy D:\Films\Nieuwe D:\Films /E /minage:30 /move /np /tee /log+:D:\Logs\Logs.txt Timeout /t 120 goto loop

Hoop dat het werkt.

Als iemand er een foutje in ziet plz ff melden

[ Voor 35% gewijzigd door Beerkiller op 12-08-2011 00:11 ]

[Verwijderd]

Ik zou hem niet zo laten lopen maar in de taakplanner zetten.

[Fish]

en dan zonder timeouts

En dan heb je zo te zien geen batchfile meer nodig

[ Voor 55% gewijzigd door Fish op 12-08-2011 00:19 ]

[Beerkiller]

ja ok dat is miss mooier maar het maakt opzich niet uit wnnr hij het doet als er maar een cycles inzit van 24 uur ong. Anders blijf hij bezig.

En hoe kun je hem mappen met een spatie tussen 2 woorden openen. Naar mijn weten was dat met _ als vervanging van een spatie te gebruiken. Of niet?

[Verwijderd]

"Tussen dubbele quotes" of 8:3 notering dus: Tussen~1

[ Voor 40% gewijzigd door Verwijderd op 12-08-2011 00:27 ]

[Beerkiller]

thx, Als ik meer info nodig heb reageer ik hier wel weer.

Tot nu toe hardstikke bedankt en weltruste

Thx

[Question Mark]

Beerkiller schreef op vrijdag 12 augustus 2011 @ 00:31:
thx, Als ik meer info nodig heb reageer ik hier wel weer.

Prima, maar probeer dan eerst zelf wat meer uit. Er zijn legio sites die de werking van Robocopy uitleggen, inclusief voorbeelden. Met een beetje google-werk en wat inzet had je het meerendeel van je vragen kunnen beantwoorden.

Iedereen wil je prima helpen met je probleem, maar het is hier geen helpdesk waar je zomaar wat vragen kunt dumpen.

Als dit topic op dezelfde manier door blijft gaan, voorzie ik een slotje.

[TECHcrime]

probeer Syncback anders. is ook gratis en zeer goed en uitgebreid programma

[Beerkiller]

Mijn script werkt niet goed.

@echo off
:loop
cls
echo 24 uur tot verversing van de nieuwe films

timeout /t 86400

Robocopy D:\Films\Nieuwe D:\Films /E /minage:30 /move /np /tee /log+:D:\Logs\Logs.txt

Timeout /t 120

goto loop

Hij verplaatst ook bestanden nieuwer dan 30 dagen.

Hij zou dus alleen bestand moeten gaan verplaatsen ouder dan 30 dagen.
Ik heb dit na gezocht op google over robocopy maar daar staat net zo iets voor 14 dagen. Ik kan zelf dus geen fout in opsporen of ik zie iets heel belangrijks over het hoofd dat kan ook natuurlijk.

Ik heb al redelijk wat info op gedaan over robocopy dus ik plemp dus nu niet zo maar wat.

[ Voor 6% gewijzigd door Beerkiller op 12-08-2011 21:21 ]

[alt-92]

Toch echt zelf testen en debuggen (en gebruik nou eens die [ code ] tags potverdriedubbeltjes!).
Daar leer je het meeste van, klakkeloos copy-pasten gaat je niet verder helpen.
Ook die vraag over spaties is verrekte makkelijk te vinden met een "beetje moeite" van jezelf (hint).

[Beerkiller]

alt-92 schreef op vrijdag 12 augustus 2011 @ 20:15:
Toch echt zelf testen en debuggen (en gebruik nou eens die [ code ] tags potverdriedubbeltjes!).
Daar leer je het meeste van, klakkeloos copy-pasten gaat je niet verder helpen.
Ook die vraag over spaties is verrekte makkelijk te vinden met een "beetje moeite" van jezelf (hint).

Script heb ik ook zelf gemaakt. Niet gecopy paste.

[Remco]

Persoonlijk zou ik geen timeout van 24 uur gebruiken in je script. Je kan beter je script schedulen om eens in de 24 uur te lopen.
Je zou ook nog naar forfiles kunnen kijken. Dat gebruik ik vaak om files ouder dan x dagen te verwijderen.
http://technet.microsoft..../cc753551%28WS.10%29.aspx