On Error Goto Feil
ei = MsgBox("Is your diskette ready in the drive?...", 36)
If ei = 0 Then Goto slutt
filen$ = FileName$()

If Left$(filen$, 8) = "Document" And IsDocumentDirty() = 0 Then mld$ = Chr$(13) + Chr$(10) + "Reason: this file is empty." : Goto feil

If IsDocumentDirty() Then
	Dim dlg As FileSaveAs
	GetCurValues dlg
	If Left$(filen$, 8) = "Document" Then Dialog dlg
	FileSaveAs dlg
Else
End If


filen$ = FileName$()

If Left$(LCase$(filen$), 1) = "a" Then mld$ = Chr$(13) + Chr$(10) + "Reason: this file is already on the a:-drive..." : Goto feil

For I = 1 To Len(filen$)
	fila$ = Right$(filen$, I)
	If Left$(fila$, 1) = "\" Then Goto kop
Next I
kop:
Print "Copying....  " + filen$ + "   ===>    a:" + fila$
CopyFile filen$, "a:" + fila$
Print "Finished! Ferdig! Finito! Finished! Fertig! Buin!"
Goto slutt
feil:
MsgBox "Could not save or copy." + mld$, "Why things went wrong between us", 16

slutt:

    Source: geocities.com/athens/ithaca/5130

               ( geocities.com/athens/ithaca)                   ( geocities.com/athens)