[sourcecode language="vb" padlinenumbers="true" wraplines="true" gutter="false"]
Imports System.Console
Imports System.IO
Imports System
Imports System.Collections.Generic
Imports System.Configuration
Imports System.Text
Imports System.Environment




Module Module1


    Sub Main()
        Dim strStartupArguments() As String, intCount As Integer
        Dim fldrName As String, fileType As String, nDays As Integer

        strStartupArguments = System.Environment.GetCommandLineArgs
        For intCount = 0 To UBound(strStartupArguments)
            ' Console.WriteLine(strStartupArguments(intCount).ToLower)
            ' Console.WriteLine(strStartupArguments(intCount))
            Select Case strStartupArguments(intCount).ToLower
                Case "-dfolder"
                    ' fldrName = strStartupArguments(intCount).ToLower
                    fldrName = strStartupArguments(intCount + 1)
                    'Console.WriteLine(fldrName)
                Case "-ftype"
                    fileType = strStartupArguments(intCount + 1)
                    'Console.WriteLine(fileType)
                Case "-ndays"
                    nDays = strStartupArguments(intCount + 1)
            End Select
        Next intCount

        If ((fldrName Is Nothing) Or (fileType Is Nothing) Or (nDays = 0)) Then
            Console.WriteLine("No or not all arguments given, USAGE DeleteOldFiles.exe -dFolder <folder name> -fType <*.extention> -nDays <N> ")
            Console.WriteLine("Example: DeleteOldFiles.exe -dFolder C:\myfolder -fType *.txt -nDays 100")
            Console.WriteLine("         C:\myfolder --is the target folder from files will be deleted")
            Console.WriteLine("         *.txt --tells the system what kind of files should be deleted ")
            Console.WriteLine("         100 --defines file age in number of days")
            End
        End If

        Dim fileName = Date.Now.ToString("ddMMyyyy") & ".log"
        Dim filePath = IO.Path.Combine(fldrName, fileName)
        Using sw As StreamWriter = New StreamWriter(filePath)
            sw.WriteLine("File Name" + ";" + "Creation Date" + ";" + "Deletion Time")
            Try
                ' For Each file As IO.FileInfo In New IO.DirectoryInfo("D:\Documents").GetFiles("*.pdf")
                For Each file As IO.FileInfo In New IO.DirectoryInfo(fldrName).GetFiles(fileType)
                    '     Console.WriteLine((Now - file.CreationTime))
                    If file.IsReadOnly = False Then
                        If (Now - file.CreationTime).Days >= nDays Then
                            sw.WriteLine(file.Name + ";" + file.CreationTime + ";" + Now)
                            file.Delete()
                        End If
                    End If


                Next
            Catch ex As Exception
                Console.WriteLine(ex.ToString)
            End Try
        End Using


    End Sub
End Module
[/sourcecode]