danny147
Terugkerende gebruiker
- Lid geworden
- 29 apr 2007
- Berichten
- 4.744
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:
Bij mij werkt deze niet naar behoren, iemand van jullie een oplssing ?
Groetjes Danny :thumb:
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:
Code:
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: