主题：FTP上传不了文件，求助。

Dim ftp1 As new ftpclient
ftp1.host="61.147.116.236"
ftp1.Account = "lih"
ftp1.password = "li"
If ftp1.DirectoryExists("/data") = False Then '如果不存在Data目录
    ftp1.MakeDir("/data") '则创建Data目录
End If
ftp1.upload("d:\erp.mdb","/data/erp.mdb",True)

我申请了一个免费的FTP，还是上传不了文件。求助。