刪除目錄

Question

不得不問題導致無法找到它：

1. 如何檢查，如果目錄中包含任何如文件夾或文件，無論...還是空

2. 如何刪除空目錄？

3. 如何刪除目錄即使有內容。

例如創建目錄我使用以下功能：

Public Sub CreateDirectory(path As String) 
    If session IsNot Nothing Then 
     session.CreateDirectory(path) 
    End If 
End Sub 

---

日誌文件requested in comment：

> 2015-10-05 11:11:13.010 MLST /\MainFolder 2014\ANIA 
< 2015-10-05 11:11:13.104 550 MLST command failed: No such file or directory. 
. 2015-10-05 11:11:13.104 Could not retrieve file information 
< 2015-10-05 11:11:13.104 Script: Can't get attributes of file '\MainFolder 2014\ANIA'. 
< 2015-10-05 11:11:13.104 Script: Could not retrieve file information 

< 2015-10-05 11:11:13.104 MLST command failed: No such file or directory. 
. 2015-10-05 11:11:13.104 Script: Failed 

Answer 1

的檢查，如果有一個目錄中的所有文件，使用Session.EnumerateRemoteFiles method：

Dim anyFile As Boolean = 
    mySession.EnumerateRemoteFiles(
     path, Nothing, EnumerationOptions.MatchDirectories).Any() 

的Session.EnumerateRemoteFiles，因爲5.9的WinSCP支持。

---

與舊版本的WinSCP，採用Session.ListDirectory並篩選出列出目錄內容的..和.條目：

Dim anyFile As Boolean = 
    mySession.ListDirectory(path).Files. 
    Where(Function(file) (file.Name <> "..") And (file.Name <> ".")). 
    Any() 

---

要刪除任何目錄下，無論是空的或沒有，使用Session.RemoveFiles：

session.RemoveFiles(RemotePath.EscapeFileMask(path))