25 lines
587 B
Plaintext
25 lines
587 B
Plaintext
#Include Once "windows.bi"
|
|
#Include Once "clsFTP.bas"
|
|
|
|
Dim ftp As clsFTP
|
|
|
|
If ftp.Connect("ftp.ed.ac.uk", 21, "anonymous", "aaa@gmail.com") = False Then
|
|
Print "Error connecting to server. LastError = "; ftp.LastError
|
|
End If
|
|
|
|
If ftp.SetCurrentFolder("pub/courses") = False Then
|
|
Print "Error setting current folder. LastError = "; ftp.LastError
|
|
End If
|
|
|
|
Print "Current folder = "; ftp.GetCurrentFolder()
|
|
|
|
If ftp.DownloadFile("make.notes.tar", "make.notes.tar") = False Then
|
|
Print "Error downloading file. LastError = "; ftp.LastError
|
|
End If
|
|
|
|
ftp.Disconnect
|
|
|
|
Print "Done."
|
|
|
|
Sleep
|