Generic behavior to copy a file

Added on 1/21/2002

Compatibilities:
behavior D6_5 D8_5
Required Xtras:
Desktop Xtra

This item has not yet been rated

Author: Shockdev

Shows how to copy a file to the Windows folder

-- Generic behavior to copy a file
-- Desktop Xtra 1.0 or later required
-- Compatibilities: Director 6.x, 7.x, 8.x, Windows

property SourcePath, DestinationPath

on getPropertyDescriptionList
  set file = "mypicture.bmp"
  set WinPath = dtGetWindowsDirectory()
  set description = [:]
  addProp description, #SourcePath, [#default: the moviePath & file, #format:#string, #comment:"Source Path:"]
  addProp description, #DestinationPath, [#default: WinPath & "" & file, #format:#string, #comment:"Destination Path:"]
  return description
end

on getBehaviorDescription
  return "            " & ¬
  "- -    Copy File Bahavior    - -" & RETURN & ¬
  "Copies a file to the Windows folder."
end

on mouseDown
  copyFile
end

on copyFile
  set Ok = dtCopyFile(SourcePath, DestinationPath, "")
  if getAt(Ok,1) <> 0 then
    -- Error
    alert("Error: " & getAt(Ok,1) & " - base error code")
  end if
end

Upload Provided by ABCUpload ASP

Contact

MMI
22 West Court Sq
Suite 2C
Newnan, GA 30263
USA

Fax - (206) 339-5833

Send e-mail