Goede morgen forumleden,
onderstaande code maakt een map op de computer.
kan iemand deze code vervolledigen met de opdracht "GEEN_FOTO.JPG van de map Downloads kopieeren naar de map C:\GEEN_FOTO\FOTO"
onderstaande code maakt een map op de computer.
kan iemand deze code vervolledigen met de opdracht "GEEN_FOTO.JPG van de map Downloads kopieeren naar de map C:\GEEN_FOTO\FOTO"
Code:
Sub GEEN_FOTO()
If Dir("C:\GEEN_FOTO", vbDirectory) = "" Then MkDir "C:\GEEN_FOTO"
If Dir("C:\GEEN_FOTO\FOTO", vbDirectory) = "" Then MkDir "C:\GEEN_FOTO\FOTO"
If Dir("C:\GEEN_FOTO\FOTO\GEEN_FOTO.JPG") = "" Then
MsgBox "Kopieert GEEN_FOTO.JPG van de map Downloads naar C:\GEEN_FOTO\FOTO"
'is het mogelijk om de bovenstaande MsgBox te wijzigen in een code die de opdracht uitvoerd.
'bedoeling is als iemand een email met als bijlage "GEEN_FOTO.JPG" heeft ontvangen deze dan gedownload.
'als er iets fout gaat met de code dan verdergaan met onderstaande
Else
MsgBox "Kopieer het bestand ''GEEN_FOTO.JPG'' naar C:\GEEN_FOTO\FOTO"
End If
End Sub