![]() |
BCX Console Demonstration Program S137.bas |
DIM
Url$DIM
Fil$IF
ARGC
<3
THEN
COLOR
2
,0
"Usage : Download RemoteURL LocalFileName.ext"
COLOR
1
,0
"********************************************************************"
COLOR
12
,0
"Sample: Download http://www.yahoo.com/index.html c:\temp\yahoo.htm"
END
END
IF
Url$=
Argv$
[
1
]
Fil$=
Argv$
[
2
]
IF
DOWNLOAD
(
Url$, Fil$)
THEN
"Download Successful"
ELSE
"Download UnSuccessful"
END
IF