Bestand in vele mappen plaatsen

[kostenzer]

Hallo,

Ik gebruik wel eens een programma om lege mappen te wissen. Nu heb ik iets meer dan sub 300 (nog lege) mappen gemaakt, ongelijk verdeeld over 8 hoofdmappen. Deze wil ik allemaal voorzien van een tekstfile: 1.txt voorlopig ter grootte van 1 byte. T.z.t. komt daar meer tekst in te staan.
Map1
........Submap 1 tot 70
Map2
........Submap 1 tot 55
etc.

Dit om 2 redenen:
Handmatig kopiëren kost veel tijd en automatiseren daar is een computer toch uitermate geschikt voor?
Als er een file in een map staat zal die map niet meer per ongeluk gewist worden met dat programma.

Heeft iemand een idee hoe ik zoiets zou kunnen aanpakken?
Ik dacht aan een batch bestand of script, dan valt mij het woord recursief nog in. Daarna houdt het op.

mvg

Rob

 

[edmoor]

Hoe heb je al die mappen gemaakt?
Wellicht dat je in die procedure er ook meteen een bestandje in kan zetten.

 

[Senso]

Even opnieuw beginnen?

 

[kostenzer]

Ja die Senso is bij de hand

@Edmoor,
Het was een batchbestand

md "11 Astrofysica"
md "11.1 Strafing van sterren"
md "11.2 Sterren classificeren"
md "11.3 Spectraalanalyse"
md "11.4 Bewegende sterren"
md "11.5 Afsluiting"
md "12 Medische beeldvorming"
md "12.1 Echografie en MRI"
md "12.2 Rontgenfoto en CTscan"
md "12.3 Ioniserende straling"
md "12.4 Halveringstijd en activiteit"
md "12.5 Risico's bij medische beeldvorming"
md "12.6 Afsluiting"
md "13 Quantumwereld"
md "13.1 Buiging"
md "13.2 Fotoelektrisch effect"
md "13.3 Golfdeeltjes dualiteit"
md "13.4 Opgesloten quantumdeeltjes"
md "13.5 Tunneleffect"
md "13.6 Onzekerheidsrelatie"
md "13.7 Afsluiting"

De code -Batch- aanpassen is niet veel minder werk dan gewoon handmatig kopieren

 

[edmoor]

Als je de hoofdmappen in een Excel document zet kan je eenvoudig een macro maken die in al die mappen eeen bestandje zet.

 

[Senso]

cd\
H:
@echo off
for /D %%a in ("H:\OEFEN\*.*") do xcopy /y /d H:\OEFEN\test.txt "%%a\"

De code -Batch- aanpassen is niet veel minder werk dan gewoon handmatig kopieren

Is niet juist. Met zoeken en vervangen kun je heel snel wijzigingen aanbrengen in een Word-bestand en die zet je later even over met Ctrl+A naar een batch file.
1. Ik begin altijd in een Word-document (even opslaan).
2. Ctrl+A kopieer in een leeg kladblok
3. Opslaan met bestandsnaam.bat

cls
cd\
H:
md H:\EXP\"11 Astrofysica"
md H:\EXP\"11.1 Strafing van sterren"
md H:\EXP\"11.2 Sterren classificeren"
md H:\EXP\"11.3 Spectraalanalyse"
md H:\EXP\"11.4 Bewegende sterren"
md H:\EXP\"11.5 Afsluiting"
md H:\EXP\"12 Medische beeldvorming"
md H:\EXP\"12.1 Echografie en MRI"
md H:\EXP\"12.2 Rontgenfoto en CTscan"
md H:\EXP\"12.3 Ioniserende straling"
md H:\EXP\"12.4 Halveringstijd en activiteit"
md H:\EXP\"12.5 Risico's bij medische beeldvorming"
md H:\EXP\"12.6 Afsluiting"
md H:\EXP\"13 Quantumwereld"
md H:\EXP\"13.1 Buiging"
md H:\EXP\"13.2 Fotoelektrisch effect"
md H:\EXP\"13.3 Golfdeeltjes dualiteit"
md H:\EXP\"13.4 Opgesloten quantumdeeltjes"
md H:\EXP\"13.5 Tunneleffect"
md H:\EXP\"13.6 Onzekerheidsrelatie"
md H:\EXP\"13.7 Afsluiting"
xcopy H:\test.txt H:\EXP\"11 Astrofysica"
xcopy H:\test.txt H:\EXP\"11.1 Strafing van sterren"
xcopy H:\test.txt H:\EXP\"11.2 Sterren classificeren"
xcopy H:\test.txt H:\EXP\"11.3 Spectraalanalyse"
xcopy H:\test.txt H:\EXP\"11.4 Bewegende sterren"
xcopy H:\test.txt H:\EXP\"11.5 Afsluiting"
xcopy H:\test.txt H:\EXP\"12 Medische beeldvorming"
xcopy H:\test.txt H:\EXP\"12.1 Echografie en MRI"
xcopy H:\test.txt H:\EXP\"12.2 Rontgenfoto en CTscan"
xcopy H:\test.txt H:\EXP\"12.3 Ioniserende straling"
xcopy H:\test.txt H:\EXP\"12.4 Halveringstijd en activiteit"
xcopy H:\test.txt H:\EXP\"12.5 Risico's bij medische beeldvorming"
xcopy H:\test.txt H:\EXP\"12.6 Afsluiting"
xcopy H:\test.txt H:\EXP\"13 Quantumwereld"
xcopy H:\test.txt H:\EXP\"13.1 Buiging"
xcopy H:\test.txt H:\EXP\"13.2 Fotoelektrisch effect"
xcopy H:\test.txt H:\EXP\"13.3 Golfdeeltjes dualiteit"
xcopy H:\test.txt H:\EXP\"13.4 Opgesloten quantumdeeltjes"
xcopy H:\test.txt H:\EXP\"13.5 Tunneleffect"
xcopy H:\test.txt H:\EXP\"13.6 Onzekerheidsrelatie"
xcopy H:\test.txt H:\EXP\"13.7 Afsluiting"

 

[kostenzer]

@Senso,
Had mijn opmerking je geprikkeld?
Ik ben nog niet zover dat ik het uitgeprobeerd heb, maar ik wilde wel de betekenis weten van wat je als oplossing aandroeg. Ik wil zoiets het begrijpen.
Ik vond https://www.youtube.com/watch?v=aktl6VW9TBE Dat sluit helemaal aan op jou voorstel. Hiermee zal het wel lukken terwijl ik ook nog weet wat ik doe.
Bedankt.
Rob

 

[Senso]

Nee. Ik heb zelf interesse en vind het leuk om zaken te bekijken. Ik probeer en hoef niet alles te begrijpen. Het werkt of werkt niet. Ik heb tienduizenden mappen aangemaakt met hulp van VBA. Ja, het is altijd even werk, maar 1500 mappen in één keer aanmaken is altijd leuk.

Weet jij dan hoe je met de eerste code uit post 6 de subdirectory's kunt meepakken?

 

[kostenzer]

Na die Youtube uitleg één keer gezien te hebben DENK ik dat dat zo gaat:

cd\
H: @echo off
for [COLOR=#ff0000][B]/r[/B][/COLOR] /D %%a in ("H:\OEFEN\*.*") do xcopy /y /d H:\OEFEN\test.txt "%%a\"

Zou ook hoofdletter /R kunnen zijn. Daarvoor moet ik het filmpje nog eens bekijken.

 

[Senso]

for /D /R "H:\OEFEN" %%a in ("*") do xcopy /y /d "H:\OEFEN\test.txt" "%%a\"