bestanden, knippen, plakken

[thst]

Beste Edmoor,

Zoals je wel gezien hebt, heb ik enkele aanpassingen in de code gedaan.
Het is nu zoals ik wilde.
Erg bedankt, voor het helpen.

Angela

 

[edmoor]

Graag gedaan Angela

 

[thst]

Beste Edmoor,

Waar in de code moet ik een regel toevoegen / weghalen
dat de source dir altijd leeg wordt, ook bij dubbele bestanden ?
== Bij dubbele bestanden blijven deze bestanden in de source dir staan ==

Angela

 

[edmoor]

Deze regel moet uit de While loop weg:
Verwijder = MsgBox("Bronbestanden verwijderen na kopiëren?", vbYesNoCancel)

 

[thst]

Helaas dat werkt niet !

Angela

 

[edmoor]

Sorry, ik begreep je even verkeerd.
Wat bedoel je met dubbele bestanden?

 

[thst]

Als er al een bestand testA.pdf in de target dir bestaat.
Blijft deze in de source dir staan.
deze moet dan overschreven of verwijderd worden.
de source dir moet altijd leeg zijn als ik op de msg button heb geklikt.

Angela

 

[edmoor]

Ok dan. Dat zou een beperking van de "Name" functie kunnen zijn.
Ik ga er naar kijken.

 

[edmoor]

Zet in het Select Case gedeelte bij VbYes gewoon de FileCopy opdracht neer.
Zet daar dan de volgende regel onder:
Kill (OldDir & FileName)

 

[thst]

Beste Edmoor,

Ik heb 2 code's aangemaakt.
een voor aanvang van mijn administratie en
een voor einde administratie,
daar heb ik nu 1 code van gemaakt,
alleen krijg nu de melding:
'Er is een dubbelzinnige naam gevonden'
Weet jij wat er aan de hand is ?

Angela Bekijk bijlage Kopieer-Knippen bestanden_B_E.xls

 

[thst]

Beste Edmoor,

Heb het nu een heel eind voor elkaar.
Na op de button geklikt te hebben krijg je een keuze
als je op nee klikt dan kopieert de code niet
weet jij waar dat aan ligt ?

Angela

Bekijk bijlage Kopieer bestanden22.xls

 

[thst]

Dat was een typfout.

maar de code werkt alleen als er een pdf in deze dir staat
SourceDir = "E:\A2B4U\Opdrachten\2008\SmarThru Desktop\"

voor de Keuze 'ja' zou dat moeten
maar voor de Keuze 'nee'
zou dat SourceDir = "E:\A2B4U\Opdrachten\2013\New\"
moeten zijn.

Angela

 

[edmoor]

Hoi,

Ik ben vanavond laat weer thuis en zal ik voor je kijken.

 

[thst]

Beste Edmoor,

Ik had gedacht, om mijn probleem op te lossen,
Bij de eerste Source = een 'if 'situtatie te maken.
Als er geen pdf bestanden in staan dan
SourceDir = "E:\A2B4U\Opdrachten\2013\New\"
else SourceDir = "E:\A2B4U\Opdrachten\2008\SmarThru Desktop\"

NB. in een van de mappen staan altijd pdf bestanden !

Angela

 

[edmoor]

Sorry, ik ben er nog niet aan toe gekomen.

 

[thst]

Beste Edmoor,

Zou je me nog willen helpen met de code ?

Angela