kopieer bestand van download

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

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
If Len(Dir("C:\[COLOR="#FF0000"]Users[/COLOR]\" & Environ("UserName") & "\[COLOR="#FF0000"]Downloads[/COLOR]\GEEN_FOTO.JPG")) > 0 Then FileCopy "C:\[COLOR="#FF0000"]Users[/COLOR]\" & Environ("UserName") & "\[COLOR="#FF0000"]Downloads[/COLOR]\GEEN_FOTO.JPG", "C:\GEEN_FOTO\FOTO\GEEN_FOTO.JPG"
If Dir("C:\GEEN_FOTO\FOTO\GEEN_FOTO.JPG") = "" Then
MsgBox "Het bestand GEEN_FOTO.JPG in de map C:\GEEN_FOTO\FOTO plaatsen."
Else
End If
End If
End Sub