主题：FTP文件管理

有没有实际的例子呀，这些帮助都看过了，还是弄不了呀

If ftp1.Upload(ProjectPath &  "RemoteFiles\" & r("第六列"),r("第六列")) = True Then

我想把文件放到指定的文件夹中，上述代码应该怎么改，比如放到“中学文件”,以下代码为什么不行呀！

If ftp1.Upload(ProjectPath &  "RemoteFiles\" & r("第六列"),“中学文件\ " & r("第六列")) = True Then

回复11楼

 

Dim ftp As new FTPClient
ftp.Host = "127.0.0.1"
ftp.Account = "test"
ftp.Password = "test"
For Each file As String In FileSys.GetFiles(ProjectPath & "RemoteFiles")
    If FileIsOpened(file) = False Then
        Dim finfo As new FileInfo(file)
       
        If ftp.GetFileSize("/" & FileSys.GetName(file)) <> finfo.Length OrElse ftp.GetFileTime("/" & FileSys.GetName(file)) < finfo.LastWriteTime Then           
            If ftp.Upload(file, "/" & FileSys.GetName(file)) Then
                FileSys.DeleteFile(file)
            End If
           
        Else
            FileSys.DeleteFile(file)
        End If
    End If
Next

回复12楼，你要先创建文件夹啊

 

MakeDir

在ftp上创建目录，语法：

MakeDir(Path)

Path：要创建的目录。

如果创建目录成功，则返回True，否则返回False.

示例

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.MakeDir("\photo\hdx") Then
    Messagebox.Show("创建目录成功!")
Else
    Messagebox.Show("创建目录失败!")
End If

为什么创建的目录都不成功呀，不知道什么原因？难道是我设置的FTP有问题吗?但是可以打开上传文件

 

目录必须一层一层的创建，不能一次性创建多层的目录。

根据目录是档案管理，再建目录以下代码对吗？

 

If ftp1.DirExists("\档案管理\修改文件") Then

    MessageBox.show("目录已经存在","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

    MessageBox.show("目录不存在","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

   

End If

以下是上传文件的代码，执行没有问题，但是想上传到指定文件夹中就不行了，把黄色代码修改成这个代码就不行 If ftp1.Upload(ProjectPath &  "RemoteFiles\" & dr("第六列"),"\abc\ " & dr("第六列")) = True Then
设置ftp时的物理路径是O:\档案管理，不知道是什么原因？

If ftp1.Upload(ProjectPath &  "RemoteFiles\" & dr("第六列"),dr("第六列")) = True Then
        dr("第七列") = "已上传"
        If FileSys.FileExists(ProjectPath &  "RemoteFiles\" & dr("第六列")) Then '如果目标文件已经存在
            FileSys.DeleteFile(ProjectPath &  "RemoteFiles\" & dr("第六列"),2,2) '则删除之
        End If
        msgbox(1)
        'Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        msgbox(2)
        'Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If

1、你ftp里面存在文件夹 abc 了吗？

 

2、必须存在对应的文件夹，才能在文件夹内添加文件。

设置ftp时的物理路径是O:\档案管理，我在“档案管理”文件夹中里加了“abc”文件夹，这样做对吗？

那就试试

 

If ftp1.Upload(ProjectPath &  "RemoteFiles\" & dr("第六列"),"/档案管理/abc/" & dr("第六列")) = True Then

 

If ftp1.Upload(ProjectPath &  "RemoteFiles\" & dr("第六列"),"/abc/" & dr("第六列")) = True Then