wie kan me helpen om een ms dos opdracht te maken?

[mir]

Ik heb hier op mijn D: schijf een map die ik om de x aantal dagen volledig wil wissen.
Daarvoor heb ik dus een .bat script nodig.
Ik heb zelf al wat zitten proberen maar kom er niet uit.

Het is de bedoeling dat de pc naar dos gaat dus via cmd opdracht. dan staat hij in de direcotory c:\documents and settings\user

Dit had ik gemaakt maar helaas:

cmd
d:
cd camhek
del *.* /s /q
exit

Wie kan me helpen. De opdracht zelf ga ik dan in taakplanner zetten dus dat is geen probleem.

mir

[Gandalf]

Re: wie kan me helpen om een ms dos opdracht te maken?

Gewoon onderstaande in een .BAT file zetten:

@echo off
del d:\camhek\*.* /s /f /q

De CMD en EXIT zijn voor een .BAT overbodig.

[mir]

Re: wie kan me helpen om een ms dos opdracht te maken?

Ik probeer het direct maar waarvoor staan die echo off en /f ?

mir

[Doc_Holiday]

Re: wie kan me helpen om een ms dos opdracht te maken?

Echo off staat voor niets laten zien van de tekst nadien.
/f staat voor force dacht ik (niet 100% zeker)

[RockPhotographyDummy]

Re: wie kan me helpen om een ms dos opdracht te maken?

tik eens del /? in je command prompt, krijg je meteen alle info ...

/f = force deleting of read-only files

[Gandalf]

Re: wie kan me helpen om een ms dos opdracht te maken?

Correct ;-)

[mir]

Re: wie kan me helpen om een ms dos opdracht te maken?

Gewoon onderstaande in een .BAT file zetten:

@echo off
del d:\camhek\*.* /s /f /q

De CMD en EXIT zijn voor een .BAT overbodig.

Dat is het dus bedankt. Nu nog kijken om dat automatisch elke week in taakplanner te krijgen.

mir

[Destn]

Re: wie kan me helpen om een ms dos opdracht te maken?

Batch is zo '90
in VBS, verwijdert txt of log documenten ouder dan 60 dagen

Dim fso, f, f1, fc, objSubfolder
Set fso = CreateObject("Scripting.FileSystemObject")

ShowSubfolders FSO.GetFolder("C:\_scheduled_scripts")
Sub ShowSubFolders(Folder)
For Each objSubfolder in Folder.SubFolders
Set fc = objSubfolder.Files
For Each f1 in fc
fileExt = fso.GetExtensionName(f1.Path)
If fileExt = "txt" Or fileExt = "log" Then
If DateDiff("d", f1.DateLastModified, Now) > 60 Then
f1.Delete
End If
End If
Next
ShowSubFolders objSubfolder
Next
End Sub

Maar VBS is eigenlijk out, doe momenteel alles in Powershell:
Deze one-liner zou het moeten doen:
get-childitem | where -FilterScript {$_.LastWriteTime -le [System.DateTime]::Now.AddDays(-7)} | remove-item

[mir]

Re: wie kan me helpen om een ms dos opdracht te maken?

Batch is zo '90
in VBS, verwijdert txt of log documenten ouder dan 60 dagen



Maar VBS is eigenlijk out, doe momenteel alles in Powershell:
Deze one-liner zou het moeten doen:
get-childitem | where -FilterScript {$_.LastWriteTime -le [System.DateTime]::Now.AddDays(-7)} | remove-item

Bedankt maar dat is chinees voor mij

mir

[Appendix]

Re: wie kan me helpen om een ms dos opdracht te maken?

Batch is zo '90
in VBS, verwijdert txt of log documenten ouder dan 60 dagen

Dim fso, f, f1, fc, objSubfolder
Set fso = CreateObject("Scripting.FileSystemObject")

ShowSubfolders FSO.GetFolder("C:\_scheduled_scripts")
Sub ShowSubFolders(Folder)
For Each objSubfolder in Folder.SubFolders
Set fc = objSubfolder.Files
For Each f1 in fc
fileExt = fso.GetExtensionName(f1.Path)
If fileExt = "txt" Or fileExt = "log" Then
If DateDiff("d", f1.DateLastModified, Now) > 60 Then
f1.Delete
End If
End If
Next
ShowSubFolders objSubfolder
Next
End Sub

Inderdaad, waarom zou je het met 1 regel doen als je het ook met een halve bladzijde kan?
Geert

[Leonidas]

Re: wie kan me helpen om een ms dos opdracht te maken?

Inderdaad, waarom zou je het met 1 regel doen als je het ook met een halve bladzijde kan?

Dat is nog niet het ergste. Erger is dat het niet eens doet wat TS vroeg.

[Bottie]

Re: wie kan me helpen om een ms dos opdracht te maken?

Dat is nog niet het ergste. Erger is dat het niet eens doet wat TS vroeg.

Men moet toch eens kunnen tonen wat hij/zij allemaal kan

[mir]

Re: wie kan me helpen om een ms dos opdracht te maken?

Dat is nog niet het ergste. Erger is dat het niet eens doet wat TS vroeg.

lol Ik zou het alvast niet weten nu ik heb wat zitten lezen en weet nu toch al wat VBS is

Nu mijn msdos opracht doet het goed, om de 14 dagen gaat hij mijn map netjes wissen zoals de bedoeling was.

mir