bestanden verplaatsen vanuit subdirectories

[ph1dft]

Hallo slimmerikken,

Ik heb het volgende probleem.
Op mijn pc staan veel *.txt bestanden. Ze staan diverse
directories vernoemd naar de datum.
Dus bv C:\Temp\01012004, C:\Temp\02012004 enz.

Nou zou ik willen dat al die txt bestanden uit al die mapjes gehaald worden en verplaatst worden naar de map C:\Temp, dus 1 map hoger.

Is daar iets voor te maken dmv een macro in word of een VB applicatie ??

Wie kan mij helpen ????

Groetjes Paul

 

[fyrox]

Kun je geen zoek opdracht geven in windows naar *.txt en zoeken in de volgende mappen: bv. C:\Temp\01012004, C:\Temp\02012004 enz

Wanneer windows klaar is zie je de hele was lijst met *.txt bestand. Selecteer ze allemaal en knip ze (cntr-x) om ze vervolgens in map C:\temp verplaatsen (cntr-v)


Is ook een mogelijkheid toch? :thumb:

 

[ph1dft]

Ja zover was ik ook wel hoor !
Maar zou graag willen dat dat dus automaisch gaat, dmv een batch files of macro !

Kan iemand mij daar me helpen ??????

 

[fyrox]

Jah sorry hoor. Ik wil ook alleen maar helpen.

Kost je meer tijd in het maken van een script dan het op een handmatige manier doen.

 

[DENNIS90]

Dos leeft nog!

Ik val niet onder de noemer "slimmeriken" hoor. Maar,
zal ff voor jou een proggie schrijven.

Je kunt het d.m.v. een batch bestand het beoogde doel
ook bereiken, maar ik zal het maar grafisch doen. Dus
met VB, maar VB voert uiteindelijk een Dos child-proces,
dat met behulp van het argument /C verborgen blijft.
Dos leeft nog weldegelijk mensen.


Ga als volgt te werk:

1) Plaats op het Form een DirListBox en een knop.

2) Code voor Form_Load

Private Sub Form_Load()
   Dir1.Path = "c:\temp"
End Sub

3) Code voor de knop

Private Sub Command1_Click()
    'Programmeur: Dennis90
    'Datum: 09-04-2004

    'Declaratie variabelen
    Dim Aantal_Subdirectories, Teller, Ret As Integer
    Dim Bron, Doel, BronDoel, Dos_Commando As String
    Aantal_Subdirectories = Dir1.ListCount - 1

    'Waarde toekenning variabele Doel
    Doel = "C:\temp"
    For Teller = 0 To Aantal_Subdirectories
        'Waarde toekenning variabele Bron
        'Als je alle bestanden wilt copieren, dan moet je txt
        'met een asterix(dat is het wild-card sterretje (*)) vervangen.
        Bron = Dir1.List(Teller) & "\*.txt"
        'Waarde toekenning variabele BronDoel
        BronDoel = Bron & " " & Doel
        'Waarde toekenning variabele Dos_Commando
        Dos_Commando = "cmd /C " & "copy " & BronDoel
        'Het uiteindelijke Dos commando wordt ten uitvoer gebracht
        Ret = Shell(Dos_Commando)
        'Naar de volgende Sub-Direcory.
    Next Teller
    msgbox "Copieren is klaar: Alle .txt bestanden v.d. sub-directories c:\temp zijn nu in c:\temp"
End Sub

Run hetprogramma en klik op de knop.
Al Je .txt bestanden in de sub-directory van c:\temp zijn nu naar c:\temp overgeheveld.
Ik heb in het VB programmaatje geen FileListBox opgenomen, daarom moet je maar ff
(o.a.) binnen een dos-venster kijken naar de gecopieerde bestanden.

Groetjes,

Dennis.

P.S. ff wat spellingsfouten gecorrigeerd: Er stond "variabe", dit had natuurlijke "variabele" moeten
zijn." Men zegt: Haastige spoed is zelden goed. Dat
blijkt dus ook.

 

[DENNIS90]

Jeetje, wat is de indeling van mijn tekst zo raar.

Sorry hoor.

Dennis.

 

[ph1dft]

Oke thenx gasten, ik ga ermee aan de slag !

 

[cbhonda]

Opsommen subsdirs

Je kan ook effe kijken op volgende daar staat code om alle bestanden in subdirs te doorlopen en dan is het maar zaak van move of copy en kill te doen.

http://www.helpmij.nl/forum/showthread.php?threadid=151012