well the ftp code i just gave above has one error but i fixed them all now its error free and i chose invisble boxes because its easyer to do then come up with a code for stars. Here is the dl version
http://www.s-elements.com/ftp.exe
or here is the code for it.
text 0,100,"When you Type the password it will be hidden"
text 0,0,"Password-"
set cursor 70,0
ink rgb(0,0,0),1
input "",pass$
ink rgb(255,255,255),0
set text opaque
input "url-",url$
input "user-",user$
Print "Connecting........"
wait 1000
sleep 1000
ftp connect url$,user$,pass$
sleep 1000
wait 1000
if get ftp failure()=0
goto begin
else
print "now exiting because a error or could not connect"
wait 4000
end
endif
begin:
Print "Connected"
wait 2000
sleep 500
sleep 1000
dir$="/"
begin2:
do
cls
print "Commands"
print "1=Insert One file"
print "2=insert folder files"
print "3=escape, 4=Change Folders"
print "5=delete a file"
print "folder now in-";
print dir$
if scancode()=1 then goto begin
if scancode()=2
input "One file insert->",onefile$
print "Inserting this file->"; : print onefile$
wait 1000
ftp put file onefile$
wait 2000
endif
if scancode()=3
print "Warning this uploads every file in your folder that the program"
print "is in (PUSH 3 if you want to upload now)"
print "else push enter to exit"
goto loop2
loop2:
do
if scancode()=4 then goto upload
if returnkey()=1 then goto begin2
loop
upload:
cls
sleep 200
perform checklist for files
for onef=1 to checklist quantity()
onefolder$=checklist string$(onef)
if onefolder$="ftp.exe" then goto skip
if onefolder$="Thumbs.db" then goto skip
print "Inserting file->";
Print onefolder$
sleep 200
ftp put file onefolder$
skip:
next onef
print "done"
wait 2000
endif
if scancode()=4 then end
if scancode()=5
sleep 200
print "'/'=main directory"
print "Warning if the folder is not there or path is wrong or spelled wrong"
print "the program will stop responding"
input "Which Directory-",dir$
sleep 1000
sleep 500
if get ftp failure()=0
sleep 200
ftp set dir dir$
wait 4000
else
print "Sorry Folder does not exist or error has occur. Now going to main folder"
goto begin2
endif
endif
if scancode()=6
sleep 200
input "which file you want gone-",delfile$
ftp delete file delfile$
print "file deleted"; : print delfile$
wait 3000
endif
loop
AMD Atherlon 2400+ XP, 380 DDr memeory, ATI Radeon 9000 64 DDR.
And a Katana.
