主题：ftp文件夹为空上传不了图片

Dim ftp1 As New FTPClient
ftp1.Host= "192.168.1.206"
ftp1.Account = "lan"
ftp1.Password = "232400"
ftp1.Port = 2121
ftp1.RootDir = "\tp"
Dim nm As String = Tables(e.Form.Name & "_table1").Current("_identify") & ".jpg"
Dim pth As String = ProjectPath & "pictures\" & nm

Dim files = ftp1.GetFileList("\tp")
If files.contains(nm) Then
    msgbox("同名")
Else
    msgbox("不存在")
    If ftp1.Upload(pth,"\tp\" & nm) = False Then
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
end if