BCX Console Demonstration Program s66.bas

 DIM Src$
 DIM Dst$
 DIM sfs AS SHFILEOPSTRUCT
 
 Src$ = "*.bas" & CHR$(0) & CHR$(0)
 Dst$ = TEMPDIR$ & CHR$(0) & CHR$(0)
 
 sfs.wFunc             = FO_COPY
 sfs.pFrom             = Src$
 sfs.pTo               = Dst$
 sfs.fFlags            = FOF_NOCONFIRMATION OR FOF_SILENT
 sfs.lpszProgressTitle = Src$
 
 SHFileOperation(&sfs)