Private Sub cmdCopy_Click()
 
dateiname = "Projekt1"
 
'Bei error läuft der weiter und versucht es mit .exe
On Error Resume Next
FileCopy App.Path & "\original\" & dateiname & ".txt", _
App.Path & "\Kopie\" & dateiname & ".txt"
 
'wenn .exe auch nicht existiert versucht der es mit .bmp
On Error Resume Next
FileCopy App.Path & "\original\" & dateiname & ".exe", _
App.Path & "\Kopie\" & dateiname & ".exe"
 
 
' wenn es mit .bmp auch  nicht klappt, passiert garnichts (besser als eine 
' fehlermeldung und das prog geht aus ;)
On Error GoTo err
FileCopy App.Path & "\original\" & dateiname & ".bmp", _
App.Path & "\Kopie\" & dateiname & ".bmp"
Exit Sub
 
err:
Resume Next
 
End Sub

On Error Resume Next
FileCopy App.Path & "\original\" & dateiname & ".zip", _
App.Path & "\Kopie\" & dateiname & ".zip"
 
On Error GoTo err
FileCopy App.Path & "\original\" & dateiname & ".bmp", _
App.Path & "\Kopie\" & dateiname & ".bmp"
Exit Sub
 
err:
Resume Next
'.....