Dim dInfo As New DirectoryInfo(MapPath("images/StudentActivity/"))
DeleteDirectory(dInfo)
''' <summary>
''' Delete directory
''' </summary>
''' <param name="pdInfo"></param>
''' <param name="pUserId"></param>
''' <remarks></remarks>
Private Sub DeleteDirectory(ByVal pdInfo As DirectoryInfo)
Try
For Each di As DirectoryInfo In pdInfo.GetDirectories()
Try
di.Delete(True)
Catch ex As Exception
DeleteFile(di.FullName, True)
If Directory.Exists(di.FullName) Then
Directory.Delete(di.FullName, True)
End If
End Try
Next
Catch ex As Exception
'Throw ex
End Try
End Sub
''' <summary>
''' delete files
''' </summary>
''' <param name="directoryPath"></param>
''' <param name="searchSubdirectories"></param>
''' <remarks></remarks>
Private Sub DeleteFile(ByVal directoryPath As String, ByVal searchSubdirectories As Boolean)
Try
Dim strFilePath As String
Dim strArrDirs() As String
Dim strDir As String
strArrDirs = Directory.GetFiles(directoryPath)
For Each strDir In strArrDirs
strFilePath = Path.Combine(directoryPath, strDir)
If File.Exists(strFilePath) Then
File.SetAttributes(strFilePath, FileAttributes.Normal)
File.Delete(strFilePath)
End If
Next
If searchSubdirectories Then
Dim dir As New DirectoryInfo(directoryPath)
For Each subdirectory As DirectoryInfo In dir.GetDirectories()
DeleteFile(subdirectory.FullName, searchSubdirectories)
Next
End If
Catch ex As Exception
'Throw ex
End Try
End Sub