主题：如何批量删除远程文件

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.deletefile("\update\Desert.jpg") = True Then
    Messagebox.show("删除完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("删除失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

这是单独删除一个文件的例子，怎么去删除update这个文件目录下面所有的文件,不知道代码怎么写

不是可以删除目录么？

 

DeleteDir

删除FTP上的目录，语法：

DeleteDir(DirName,AnyWay)

DirName：要删除的目录名称。
AnyWay：可选参数，如果设为True，将删除目录下的文件及其子目录，如果省略此参数，则只有此目录为空的时候，才能删除。

如果删除成功，返回True，否则返回False

如果我要删除 ftp1.deletefile("\update\asd\Desert.jpg") = True Then

删除以后，再新建一个目录，不就好了？

不行呀，我的这个目录是这样设计的，\update\asd0001,\update\asd0002,删除的时候要保留\update,实际删除\update\asd0001的时候,把\update包括下面的子目录全删除了，不知道怎么设置代码

我就想知道，ftp1.deletefile("\update\asd\Desert.jpg") 删除update\asd\目录下所有的文件，代码怎么写

用ftp1.deletefile("\update\asd\*.*“)试了一下，不行

怎么没人回答

删除这个目录 \update\asd

 

再增加这个目录 \update\asd

 

没有删除全部文件的方法，除非你遍历每一个文件然后删除

 

GetFileList

用于返回FTP服务器指定目录下的全部文件名，以字符串集合的形式返回，语法：

GetFileList(Path)

Path：可选参数，用于指定目录，如果省略，则返回当前目录下的全部文件名。

示例

例如列出photo目录下的所有文件：

Dim ftp1 As New FtpClient
Dim fls As List(of String) 
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
fls = ftp1.GetFileList("\photo")
For Each fl As String In fls
    Output.Show(fl)
Next

还可以使用通配符，例如列出photo目录下的所有jpg文件：

Dim ftp1 As New FtpClient
Dim fls As List(of String) 
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
fls = ftp1.GetFileList("\photo\*.jpg")
For Each fl As String In fls
    Output.Show(fl)
Next

明白了