Option Explicit

Dim DateiName,DateiKopie,FileSyst

Set FileSyst=Wscript.CreateObject("Scripting.Filesystemobject")
DateiName=("C:\DB\Test.mdb")
DateiKopie=("A:\Test.mdb")
msgbox"Legen Sie die Sicherungsdiskette ein !",vbokonly,"Diskette einlegen !"
FileSyst.CopyFile DateiName,DateiKopie,True