TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 23rd Dec 2003 22:10

Modified: 23rd Dec 2003 22:15

Author: the desktops

Summary

A simple ftp program! Have fun with it!

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem Simple DarkFTP 1.0

rem created by TheDesktops

rem you may edit it if you want

set display mode 800,600,16

cls

hide mouse

center text 400,10,"welcome to Simple DarkFTP! Press any key to continue."

suspend for key

cls

input "Ftp site: ", ftp$

input "Username: ", user$

input "Password: ", pass$

ftp connect ftp$, User$, Pass$

if GET FTP STATUS()=1

set cursor 5,500

input "Command: ",cmd$

if cmd$ = "end"

ftp terminate

cls

print "Quitting simpleftp"

print "press any key to exit"

suspend for key

exit

endif

if cmd$ = "get"

input "Filename: ",filena$

FTP GET FILE Filena$,filena$,filesize

ftp proceed

cmd$ = ""

print "Success!"

cls

sleep 1000

endif

if cmd$ = "upload"

input "Filename: ",filen$

ftp put file filen$

print "Success!"

cmd$ = ""

cls

sleep 1000

endif

if cmd$ = "list"

cls

set cursor 0,0

ftp find first

while get ftp file type()<>-1

print get ftp file name$();" (";

print get ftp file size();" bytes)"

ftp find next

endwhile

cmd$ = ""

endif : sleep 1000

if cmd$ = "help"

print "end > end the demo."

print "get > get a file from the ftp site."

print "list > list's the ftp directory."

print "print > this list."

print "upload > upload's a file from a local hard drive."

sleep 5000

cls

endif

if cmd$ = "localist"

cls

set cursor 0,0

find first

while get file type()<>-1

print get file name$();" (";

print file size();" bytes)"

find next

endwhile

cmd$ = ""

endif : sleep 1000

endif

sync

Download

Please login to download

Comments

No comments yet.

CodeBase - Simple DarkFTP

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	the desktops
CodeBase Entries:	1