home *** CD-ROM | disk | FTP | other *** search
- on maccopyabout
- global name_abouttxt, abouttxtPath
- openXLib(":Xtras:macxtra:filextra")
- set name_abouttxt to the name of member the member of sprite 3
- set fileName to the pathName & abouttxtPath & name_abouttxt
- if fileName > EMPTY then
- set loc to "desktop folder:"
- set wFileName to FileSaveAsDialog(loc, name_abouttxt, "Save As")
- if wFileName > EMPTY then
- put wFileName
- set result to CopyFile(fileName, wFileName)
- put result
- end if
- end if
- closeXLib(":Xtras:macxtra:filextra")
- end
-