Copy/Save file to flash drive

Question

I am trying to create a script where the user can initiate a
download/Save/copy of a stored file from my HDD to a flash drive.
It would seem that baCopyProgressFile would be ideal for this
situation, but I am authoring on a Intel MBP and it does not appear
that Buddy API is compatible with Intel Macs at this time. I only
need this projector to display on this MBP (this is really just a
quick proof of concept project that will be run locally), so any
suggestions or alternatives would be very helpful. Thanks.

Answer 1

> By main directory, I mean the directory where the
director project resides. I
> would like to copy a movie from this directory to the
root of the flash drive
> directory.
I'm still not understanding you. You want to copy a file from
the
directory where the projector is, or a sub-directory?
If you want to copy from a sub-directory, try something like:
on mouseUp me
tSource = "@/movies/480p.mov"
tDest = "/Volumes/bb/480p.mov"
OK = baCopyFileProgress(tSource, tDest, "IfNewer", "Copying
Movie to
disk...", "Cancel", 0)
if OK <> 0 then alert string(OK)
end
> I updated the code with yours, and now when I run the
movie, it gives me an
> error stating:
> Script error: String expected
> Alert OK
> 5
My mistake. I assumed that when you use 'alert' whatever you
are
alerting is auto-cast to a string. Try the above instead.
> If I adjust the code so that it copies the file from the
projects directory
> and pastes it into the same, then the file will copy
with the progress bar and
> after the copy is complete it gives me the same error
message as above, only
> with a '0' instead of a 5.
If you look in the docs for Buddy API, 0 means the operation
succeeded
and 5 means "Couldn't create directory for Dest file"
(suggesting your
destination path is incorrect)
Since you already use Buddy API I suggest you use a
combination of
baDiskList() and baDiskInfo(disk, "type") to determine which
is your
Flash drive and then use that disk as your root for copying.
For example:
on mouseUp me
lDisks = baDiskList()
lTargets = []
repeat with aDisk in lDisks
if baDiskInfo(aDisk, "type") = "Removable" then
-- found (potential) target
lTargets.append(aDisk)
end if
end repeat
case count(lTargets) of
0: -- no removable drives available to copy to
alert "Drive not found"
1:
tSource = "@/movies/480p.mov"
tDest = lTargets[1] & "480p.mov"
me.mCopyFile(tSource, tDest)
otherwise:
-- more than one removable drive available
-- you'll need to create a routine to determine
-- which one you want to copy to, or present the user with
-- a selection they can choose from
end case
end
on mCopyFile me, aSource, aDestination
OK = baCopyFileProgress(aSource, aDestination, "IfNewer",
"Copying
Movie to disk...", "Cancel", 0)
if OK <> 0 then alert string(OK)
end