bestanden, knippen, plakken

[thst]

Excel experts,

Ik heb een code gevonden op internet
die bestanden kopieert van de ene map naar een andere.
Graag zou ik zien dat de code de bestanden niet kopieert maar knipt.

Angela

 

[edmoor]

Wijzig de regel:

FileCopy (OldDir & FileName), (NewDir & FileName)

In de volgende:

Name (OldDir & FileName) As (NewDir & FileName)

 

[thst]

Beste Edmoor,

Ja, dat werkt ! Heel mooi, en als ik nou
alle *.pdf bestanden in map E:\testA wil kopieren naar E:\testB\
en alle *.pdf bestanden E:\testA wil knippen
en plakken in E:\testC ?

Angela

 

[thst]

Beste Edmoor,

Ben het zelf aan het proberen,
maar kom er nog niet uit.

Angela

 

[thst]

helaas, kom er verder niet meer uit.

Edmoor, bedankt voor de gedeeltelijke oplossing in #2

Angela

 

[edmoor]

Ben net weer thuis dus zie je berichten nu pas.
Je zou aan de gebruiker de vraag moeten stellen of er geknipt of gekopieerd moet worden en aan de hand van het antwoord de ene of de andere regel gebruiken.

 

[thst]

Ik ben zelf de gebruiker !!

alle *.pdf bestanden in map E:\testA wil kopieren naar E:\testB\
en alle *.pdf bestanden E:\testA wil knippen
en plakken in E:\testC

in de ene map moet er gekopieerd worden, en naar de andere map geknipt.

Angela

 

[edmoor]

Ik bedoel dat de macro dat dan aan je vraagt

 

[thst]

Beste Edmoor,

oh zo, Nee dat hoeft niet hoor.

Angela

 

[thst]

Beste Edmoor,

Ben de hele zondagavond nog bezig geweest met je suggestie in #6
maar kom er niet uit, kun je me nog een keer helpen ?

Angela

 

[edmoor]

Declareer een extra variabele:
Dim Verwijder As Integer

Wijzig dan die ene regel in het volgende stukje:

            Verwijder = MsgBox("Bronbestanden verwijderen na kopiëren?", vbYesNoCancel)
            Select Case Verwijder
            Case vbCancel
                Exit Sub
            Case vbYes
                Name (OldDir & FileName) As (NewDir & FileName)
            Case vbNo
                FileCopy (OldDir & FileName), (NewDir & FileName)
            End Select

Als je op Ja klikt worden de bestanden verwijderd.
Klik je op Nee dan worden ze alleen gekopiëerd.
Klik je op Annuleren dan wordt de sub verlaten en gebeurd er niets.

 

[thst]

Beste Edmoor,

Wat bedoel je met 'Wijzig dan die ene regel in het volgende stukje'

i.p.v.: welke regel zet ik dit stukje ?

Verwijder = MsgBox("Bronbestanden verwijderen na kopiëren?", vbYesNoCancel)
            Select Case Verwijder
            Case vbCancel
                Exit Sub
            Case vbYes
                Name (OldDir & FileName) As (NewDir & FileName)
            Case vbNo
                FileCopy (OldDir & FileName), (NewDir & FileName)
            End Select

Angela

 

[edmoor]

De regels zoals in #2 staat moet je vervangen door het stukje in #11.

 

[thst]

Beste Edmoor,

Ja, dat werkt ! Heel mooi, maar voor ieder bestand wat ik kopieer
of verwijder moet ik in de Msg Box met de muis bevestigen.
het gaat om 150 bestanden ! dus 150 x klikken !

Angela

 

[edmoor]

Dat kon ik dus niet zomaar testen. Ik zal er eens naar kijken.

 

[edmoor]

Dat was dus gewoon een kwestie van te weinig koffie
Plaats de regel:
Verwijder = MsgBox("Bronbestanden verwijderen na kopiëren?", vbYesNoCancel)

Direct onder de regel:
FileName = Dir$(OldDir & "*.pdf")

 

[thst]

Beste Edmoor,

Plaats de regel:
Verwijder = MsgBox("Bronbestanden verwijderen na kopiëren?", vbYesNoCancel)

Direct onder de regel:
FileName = Dir$(OldDir & "*.pdf")

== met deze oplossing moet ik nog klikken !! ==

Angela

 

[edmoor]

Als het goed is maar 1x.
Plaats je bestand nogeens zoals deze nu is.

 

[thst]

Bij deze.

Groetjes Angela

 

[edmoor]

Je hebt wel gedaan wat ik in #16 zei maar op de oude plek de regel laten staan en die moet daar weg.