Search content:

 

Personal Menu
Username:
Password:
Save password

Become a member

Forgot Password?

 

Don't miss these
Faux Typing
Drag To View
Image Magnify
Auto Save and Load Text
Shocksites.com
Director 7 Demystified
Tracking save attempts
Disable/Enable-Disk Errors,Task Switching,Screen saver,Task Bar
Convert Data
Set Sprite Full Screen
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