![]() |
BCX Console Demonstration Program S66.bas |
$LIBRARY
<shell32.lib>' Linked with shell32.lib
DIM
Src$DIM
Dst$DIM
sfsAS
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_NOCONFIRMATIONOR
FOF_SILENT sfs.lpszProgressTitle=
Src$ SHFileOperation(
&
sfs)