当文件内容发生变化时上传在ftp 以下代码提示黄色部分错误，该怎么修改？

\'Dim ftp1 As New FtpClient
\'ftp1.Host="192.168.87.448"
\'ftp1.Account = "uiwrfjkjdf"
\'ftp1.Password = "1234566"
\'If ftp1.Upload("ProjectPath &  RemoteFiles\\ & r("第六列")"," r("第六列")") = True Then
    \'Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
\'Else
    \'Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
\'End If

以下代码可以实现文件上传，但是文件在打开并修改时会提示文件正在打开无法上传，怎么能够实现在打开并修改然后关闭后再上传呢？

\'Dim ftp1 As New FtpClient
\'ftp1.Host="192.168.87.448"
\'ftp1.Account = "uiwrfjkjdf"
\'ftp1.Password = "1234566"
If ftp1.Upload(ProjectPath &  "RemoteFiles\\" & r("第六列"),r("第六列")) = True Then 
    \'Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
\'Else
    \'Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
\'End If

\'Dim ftp1 As New FtpClient
\'ftp1.Host="192.168.87.448"
\'ftp1.Account = "uiwrfjkjdf"
\'ftp1.Password = "1234566"
If ftp1.Upload(ProjectPath &  "RemoteFiles\\" & r("第六列"),r("第六列")) = True Then 
    \'Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
\'Else
    \'Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
\'End If

If FileSys.FileExists(ProjectPath &  "RemoteFiles\\" & r("第六列")) Then \'如果目标文件已经存在
    FileSys.DeleteFile(ProjectPath &  "RemoteFiles\\" & r("第六列")) \'则删除之
End If

想通过代码实现查看文件时（不对文件做任何修改）通过FTP把文件下载到本地RemoteFiles中在，查看（或使用）完然后关闭后把此文件从本地删除，如果修改过就上传到ftp