Foto's met hetzelfde pad verplaatsen naar een andere schijf

[danny147]

Beste

Ik stel deze vraag ook hier (staat ook op VBA), omdat ik weet dat er hier meerdere personen zijn die VBA kennis hebben.

Mijn vraag is als volgt:

Op mijn werk krijg ik de opdracht, dat alle foto's op de G-schijf moeten verplaatst worden naar de L-schijf met hun bestaande pad.
Met als laatste datum een jaar terug.
Dus alle foto's vanaf 1-1-2003 tem 23-11-2011.

Kan dit met VBA ?

VB. G\Loopkranen\LK100\Hijskabels.jpg
Moet worden L\Loopkranen\LK100\Hijskabels.jpg

als antwoord heb ik dit gekregen:

Sub Verplaatsen()
Dim fileSys As Object
Dim MijnBestand, MijnPad

    Set fileSys = CreateObject("Scripting.FileSystemObject")
    
    MijnPad = "G:\Loopkranen\LK100\"   ' Set the path.
    MijnBestand = Dir(MijnPad)
    Do While MijnBestand <> ""    ' Start the loop.
        With fileSys
            If .FileExists(MijnPad & MijnBestand) Then
                .MoveFile MijnPad & MijnBestand, "L:\Loopkranen\LK100\"
            End If
        End With
        MijnBestand = Dir    ' Get next entry.
    Loop

End Sub

Bij mij werkt deze niet naar behoren, iemand van jullie een oplssing ?

Groetjes Danny :thumb:

 

[huijb]

Al sinds 2007 op Helpmij en nog niet weten hoe het werkt. Deze gaat dicht, je mag hier verder http://www.helpmij.nl/forum/showthread.php/669969-Foto-s-verplaatsen