|
Nepoužívejte staré funkce jako Dir, ale místo toho jmenný prostor Frameworku pro práci se soubory: System.IO:
Sub Main()
Console.ForegroundColor = ConsoleColor.White
For Each directory In New IO.DirectoryInfo("C:/").GetDirectories()
If directory.Attributes.HasFlag(IO.FileAttributes.Hidden) Then
Console.ForegroundColor = ConsoleColor.Yellow
Console.Write("[HIDDEN] ")
Console.ForegroundColor = ConsoleColor.White
End If
Console.WriteLine(directory.Name)
Next
Console.ReadLine()
End Sub
Tento kód projede všechny podadresáře specifikované cesty, zkontroluje u nich, jestli jejich atributy obsahují Hidden a pokud ano, označí je.
|