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)

Result:

Result not displayed for this example.