1

1 つのフォルダ内のすべてのファイルとフォルダを削除したい。

コード

If Not Directory.Exists(txtTXT.Text) Then
     Return
End If

Dim files() As String
files = Directory.GetFileSystemEntries(txtTXT.Text)

For Each element As String In files
    If (Not Directory.Exists(element)) Then
        File.Delete(Path.Combine(txtTXT.Text, Path.GetFileName(element)))
    End If
Next

私のコードはファイルのみを削除し、フォルダーは削除しません...どうすればすべてを削除できますか?

4

2 に答える 2

2

プログラムを修正したので、このコードを使用しました。

My.Computer.FileSystem.DeleteDirectory( _
    My.Computer.FileSystem.SpecialDirectories.Desktop + "\epubcount", _
    FileIO.DeleteDirectoryOption.DeleteAllContents)
于 2012-11-06T05:17:43.110 に答える
0

このコードを関数に変換します。ディレクトリに遭遇したら、関数を再帰的に呼び出し、ディレクトリ名をそれに渡します。この関数は、渡されたディレクトリも削除する必要があります。

于 2012-11-06T03:36:02.253 に答える