主题：[求助]删除文件夹出错

设计了一个用于FTP文件下载的路径

 

 

平时下载的文件多了，想点删除，然后就把文件夹删除，但是出错提示。

 

代码如下：

 

Dim tx As WinForm.TextBox = Forms("FTP管理器2").Controls("下载路径")
If tx.text IsNot Nothing Then
 Dim t As String = tx.text   
   
    MessageBox.Show("确认要删下载的文件吗?", "删除文件", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
   
   
    If FileSys.DirectoryExists(t) Then  '如果目录存在
        FileSys.DeleteDirectory(t,2,3) '则删除之
    End  If
End  If

 

 

此主题相关图片如下：111.gif

提示很明显了，没有权限。