ファイルのコピー - xDeviceFileCopy

Define_Com Class(#xDeviceFileCopy) Name(#FileCopier)

Evtroutine Handling(#COM_OWNER.Initialize)
  #Copy.Enabled := false
Endroutine

Evtroutine Handling(#FileCopier.Initialize)
  #Copy.Enabled := true
Endroutine

Evtroutine Handling(#Copy.Click)
  #FileCopier.FromFile := '/recipes/chocolateCake'
  #FileCopier.ToFile := '/backup/chocolateCake'
  #FileCopier.Copy()
Endroutine

Evtroutine Handling(#FileCopier.Completed) Status(#returnedStatus) Message(#message)
  #Status := #returnedStatus
  If (#Status <> OK)
    #StatusMessage := #message
  Endif
Endroutine