마찬가지로 파일을 사용하고 있지 않다고하셨습니다. 그런 다음 전달 된 디렉토리에서 모든 파일을 삭제하려면 다음 코드 부분을 참조하십시오.
Sub DeleteFiles(ByVal Dir As String)
Dim DirObj As New DirectoryInfo(Dir)
Dim Files As FileInfo() = DirObj.GetFiles("*.bak")
Dim Dirs As DirectoryInfo() = DirObj.GetDirectories("*.*")
Dim Filename As FileInfo
For Each Filename In Files
Try
File.Delete(Filename.FullName)
Console.WriteLine("Deleted {0}", Filename.FullName)
Catch E As Exception
Console.WriteLine("Error deleting {0}", Filename.FullName)
Console.WriteLine("Error: {0}", E.Message)
End Try
Next
Dim DirectoryName As DirectoryInfo
For Each DirectoryName In Dirs
Try
DeleteFiles(DirectoryName.FullName)
Catch E As Exception
Console.WriteLine("Error accessing {0}", DirectoryName.FullName)
Console.WriteLine("Error: {0}", E.Message)
End Try
Next
End Sub
어떤 오류가 발생합니까? –
오류 없음, 아무 일도 일어나지 않습니다 ... – Gopal