Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien

Software voor automatisch kopieren van mappen.

Pagina: 1
Acties:

  • Beerkiller
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
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
  • Registratie: Januari 2011
  • Laatst online: 11-09 15:14

mrtnptrs

You idiot!

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! ;)

Are you comparing me to God? I mean, it’s great, but so you know, I’ve never made a tree.


  • Remco
  • Registratie: Januari 2001
  • Laatst online: 21-11 16:28
Dus even résume:
Je wilt bestanden die ouder zijn dan x dagen verplaatsen naar een andere map ?

The best thing about UDP jokes is that I don't care if you get them or not.


  • Beerkiller
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
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
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
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
  • Registratie: Juli 2002
  • Niet online

Fish

How much is the fish

Gozer. klik dan gewoon op de link

Iperf


  • Beerkiller
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
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
  • Registratie: Maart 2000
  • Niet online

alt-92

ye olde farte

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 ]

ik heb een 864 GB floppydrive! - certified prutser - the social skills of a thermonuclear device


  • Beerkiller
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
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
  • Registratie: Juli 2002
  • Niet online

Fish

How much is the 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 ]

Iperf


  • Beerkiller
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
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
  • Registratie: Februari 2000
  • Laatst online: 22-11 19:40

Tijntje

Hello?!

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

Als het niet gaat zoals het moet, dan moet het maar zoals het gaat.


  • Fish
  • Registratie: Juli 2002
  • Niet online

Fish

How much is the fish

Beerkiller schreef op donderdag 11 augustus 2011 @ 18:05:
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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 :P
404 Not Found

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

nginx/0.8.37

Iperf


  • Beerkiller
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
fish schreef op donderdag 11 augustus 2011 @ 18:19:
[...]


dat is wel een hele knappe error :P


[...]
Oeps foutje

  • Beerkiller
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29

  • Beerkiller
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
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
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
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
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
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
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

[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 :)

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


  • YellowOnline
  • Registratie: Januari 2005
  • Laatst online: 28-03-2023

YellowOnline

BEATI PAVPERES SPIRITV

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
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
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
  • Registratie: Januari 2005
  • Laatst online: 28-03-2023

YellowOnline

BEATI PAVPERES SPIRITV

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
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

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

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


  • YellowOnline
  • Registratie: Januari 2005
  • Laatst online: 28-03-2023

YellowOnline

BEATI PAVPERES SPIRITV

Ongetest, maar kom:

PowerShell:
1
2
3
4
5
6
7
$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:
1
Set-ExecutionPolicy Unrestricted


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

PowerShell:
1
.\DitIsMijnAutomatischKopieerScript.ps1


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

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


  • Beerkiller
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
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
  • Registratie: Juli 2002
  • Niet online

Fish

How much is the 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 ]

Iperf


  • Beerkiller
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
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
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
thx, Als ik meer info nodig heb reageer ik hier wel weer.

Tot nu toe hardstikke bedankt en weltruste

Thx

  • Question Mark
  • Registratie: Mei 2003
  • Nu online

Question Mark

Moderator SSC/WOS

F7 - Nee - Ja

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.

MCSE NT4/2K/2K3, MCTS, MCITP, CCA, CCEA, CCEE, CCIA, CCNA, CCDA, CCNP, CCDP, VCP, CEH + zwemdiploma A & B


  • TECHcrime
  • Registratie: Februari 2008
  • Laatst online: 22-11 21:57
probeer Syncback anders. is ook gratis en zeer goed en uitgebreid programma

  • Beerkiller
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
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. :P

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


  • alt-92
  • Registratie: Maart 2000
  • Niet online

alt-92

ye olde farte

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).

ik heb een 864 GB floppydrive! - certified prutser - the social skills of a thermonuclear device


  • Beerkiller
  • Registratie: Februari 2009
  • Laatst online: 18-10 17:29
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
  • Registratie: Januari 2001
  • Laatst online: 21-11 16:28
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

The best thing about UDP jokes is that I don't care if you get them or not.

Pagina: 1