Contents
Articles
Behaviors
Books
Director News
Director Web Sites
FAQ
Games
Mailing Lists
News Groups
Project Examples
Reviews
Software
Tools
Useful Web Sites
Utilities
Xtras

Don't miss these
ADOxtra for Shockwave Multiuser Server
VolumeController
File Save Button
ControlXtra
Convert Decimal to Comma (EU)
Orbiter
Play Backward Until Marker and Jump
Go Loop
Diffusion Effect - Imaging Lingo
Move sprite along mouse vector Behavior
 

 

 

Behavior Behaviour to copy files, handy for backup files

Added on 4/25/2003

 

Compatibilities:
behavior D8 D8_5 PC

Required Xtras:
Buddy API

This item has not yet been rated

Author: marcelaal

Script to put on a button, where you can copy files with. You can select the folder to copy from, and copy to. Also you can select the file extension to copy. Uses Buddy API. I use the script to back-up a cd-rom. Got it auto-run on the cd-rom. Also very handy to find for example all .doc files in a folder. The files are copied to another folder.

Download PC Source
-- Behaviour to copy files
-- You can select the folder where to copy from
-- also you got the choice to select where to copy to

global extension    
global copyTo        
global copyFrom
global goAgain
global checkStatus

on mousedown me
  set extension = member("ExField").text
  set copyFrom = baGetFolder( the applicationPath,"Please select a folder to copy from:",1,"Select folder to copy from",-1,0)
  set copyTo = baGetFolder( "c:", "Please select a folder to copy to:", 1, "Select a folder to copy to", -1, 0 )
  cursor 4
    
  set checkStatus = baXCopy( copyFrom , CopyTo , "*."&extension , "Always" , false)
  
  if checkStatus = 0 then
    cursor -1
    beep
    delete line 1 of member "ExField"
    
    set goAgain = baMsgBoxEx( "Copy any other files?", "Quit or Continue " , "No quit","Yes copy more","","Question" , 1 , "center", "Arial", 12, 4, 512, 384 )
        
    if goAgain = "No quit" then
      quit
    end if
    
    if goAgain = "Yes copy more" then
      go to frame 1
    end if
    
  else
    alert "Some error accured"
  end if
end

on getPropertyDescriptionlist me
  p_list = [:]
  addProp p_list, #extension,[#format:#field,#default:"FieldName",#comment:"Select the field member"]
  return p_list
end

 


Contact

MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA

Send e-mail