Search content:

 

Personal Menu
Username:
Password:
Save password

Become a member

Forgot Password?

 

Don't miss these
Animate Text Shadow
3DPI
Director 8 and Lingo Bible
Set Linked Property of a Animated Gif Cast member
Image Xport
Download Net Thing
Indeo 5 Codec
Get Xtra Info
Valentina Spider 1.0
rescale
MediaMacros Xtras Mall
 

 

 

Behavior File Save Button

Added on 6/9/1999

 

Compatibilities:
behavior D6_5 D7 D8 Mac PC

This item has not yet been rated

Author: MediaMacros (website)

Drop this on a button and input the paramaters to make the button save a file to the location the user specifies. Note that the location of the origonal file is RELATIVE to the move.

--Copyright 1999 Chuck Neal
--chuck@mediamacros.com
--If you find this code helpful, send me an e-mail and let me know.  :-)

property filePath, toPath, theName, theTitle, overwrite

on getPropertyDescriptionList me
  p_list = [:]
  addProp p_list, #filePath, [#format : #string, #default : "files est.txt", #comment : "Base file-to-save path relative to the movie:"]
  addProp p_list, #toPath, [#format : #string, #default : "C:", #comment : "Path to start from in save dialog:"]
  addProp p_list, #theName, [#format : #string, #default : "test.txt", #comment : "Name of file displayed in the dialog box:"]
  addProp p_list, #theTitle, [#format : #string, #default : "Save as:", #comment : "Text in the bar on the dialog box:"]
  addProp p_list, #overwrite, [#format : #boolean, #default : "Prompt before overwriting existing file (windows only)?:", #comment : true]
  return p_list
end

on mouseUp me
  if the platForm contains "win" then
    theFile = fileSaveAsDialog(toPath, theName, theTitle, overwrite)    
  else
    theFile = fileSaveAsDialog(toPath, theName, theTitle)
  end if
  copyFile(the moviePath & filePath, theFile)
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