Imports System.IO
Imports System.Security.AccessControl
Imports System.Security.Permissions
Public Class FileHandler
Shared Sub DeleteDocumentsByAge(ByVal strTarget As String, ByVal intDeleteFilesOrderThanDays As Int16)
Try
Dim directory As New IO.DirectoryInfo(strTarget)
For Each file As IO.FileInfo In directory.GetFiles("*.xml")
If (Now - file.CreationTime).Days > intDeleteFilesOrderThanDays Then file.Delete()
Next
Catch ex As Exception
Throw ex
End Try
End Sub
Shared Sub CreateDirectory(ByVal strTarget As String, ByVal strSubdirectory As String)
Try
strTarget = Path.Combine(strTarget, strSubdirectory)
CreateDirectory(strTarget)
Catch ex As Exception
Throw ex
End Try
End Sub
Shared Sub CreateDirectory(ByVal strTarget As String)
Try
If Not Directory.Exists(strTarget) Then
Directory.CreateDirectory(strTarget)
End If
Catch ex As Exception
Throw ex
End Try
End Sub
Shared Sub DeleteFile(ByVal strDirectory As String, ByVal strTargetFileName As String)
Dim strCompleteFileName As String = Path.Combine(strDirectory, strTargetFileName)
DeleteFile(strCompleteFileName)
End Sub
Shared Sub DeleteFile(ByVal strCompleteFileName)
If File.Exists(strCompleteFileName) Then
File.Delete(strCompleteFileName)
End If
End Sub
End Class