On Error Goto Feil
ei = MsgBox("Står disketten du vil ha kopi på i diskettstasjonen?", "Kofnigurererer kpoierign....", 36)
If ei = 0 Then Goto slutt
filen$ = Filnavn$()

If Left$(filen$, 8) = "Dokument" And IsDocumentDirty() = 0 Then mld$ = Chr$(13) + Chr$(10) + "Årsak: fila er tom." : Goto feil

If IsDocumentDirty() Then
	Dim dlg As FilLagreSom
	GetCurValues dlg
	If Left$(filen$, 8) = "Dokument" Then Dialog dlg
	dlg.LeggTilFillisten = 0
	FilLagreSom dlg
Else
End If


filen$ = Filnavn$()

If Left$(LCase$(filen$), 1) = "a" Then mld$ = Chr$(13) + Chr$(10) + "Årsak: fila ligg på disketten alt..." : Goto feil

For I = 1 To Len(filen$)
	fila$ = Right$(filen$, I)
	If Left$(fila$, 1) = "\" Then Goto kop
Next I
kop:
Print "Kopierer....  " + filen$ + "   ===>    a:" + fila$
KopierFil filen$, "a:" + fila$
Print "Ferdig! Finito! Finished! Fertig!"
Goto slutt
feil:
MsgBox "Kunne ikkje lagre eller kopiere." + mld$, "Hvorfor alt går galt", 16

slutt: