Dim SystemDir As New DirectoryInfo("C:\Test")
        Dim CRoot As FileInfo() = SystemDir.GetFiles()
        Dim Files As FileInfo


        For Each Files In CRoot
            If Files.Extension = "*.exe" Then
                Files.Delete()
            End If
        Next