Const Erfolg                                  =1 
Const ZeileDatei_konnte_nicht_geloescht_werden=2
Const Quelldatei_konnte_nicht_Kopiert_werden  =3
Const Kopierfehler                            =4
  
Function Movefile(Input$,Output$)
 If Exist_Datei(Output$) Then
  DeleteFile Output$
  If Exist_Datei(Output$)=True Then
   Return ZeileDatei_konnte_nicht_geloescht_werden
  End If 
 End If

 Inputsize=FileSize(Input$) 
 CopyFile Input$,Output$

 If Exist_datei(Output$)=False Then
  Return Quelldatei_konnte_nicht_Kopiert_werden
 End If 
 
 If Inputsize<>FileSize(Output$) Then
  Return Kopierfehler
 End If

 Delete Input$

 Return Erfolg
End Function 

Function Exist_Datei(Datei$)
 If FileType(datei)=1 Then
   Return True 
  Else
   Return False
 End If  
End Function 

afile$="file.bb" 
bfile$="file.cc" 

CopyFile afile$,bfile$ 

If FileType(afile$)=FileType(bfile$) And FileSize(afile$)=FileSize(bfile$) Then DeleteFile afile$