Prüfen, ob eine Datei versteckt ist

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von FormFollowsFunction.

    Prüfen, ob eine Datei versteckt ist

    Moin!

    ich möchte gerne prüfen, ob eine Datei den Status versteckt hat oder nicht.

    Meine bisherigen Versuche gingen in die Richtung

    VB.NET-Quellcode

    1. Dim FileInformation As New IO.FileInfo(Datei)
    2. Dim FileEigenschaften As FileAttributes = FileInformation.Attributes()
    4. If FileEigenschaften.Hidden Then
    6. End If


    Aber irgendwie komme ich in der If-Abfrage nicht weiter.....

    Kann jemand weiterhelfen?

    Gruß Jan

    @jan99 Du bekommst ein Flag-Enum zurück, das musst Du mit HasFlag abfragen:

    VB.NET-Quellcode

    1. If FileEigenschaften.HasHlag(FileAttributes.Hidden) Then
    2. ' ...
    3. End If
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Aus meinem Fundus:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.CompilerServices
    2. Imports System.IO
    4. Public Module FileAttributesExtensions
    6. <Extension>
    7. Public Function AttributesToList(ByVal fileInfo As FileInfo) As List(Of FileAttribute)
    8. Dim attributeList As New List(Of FileAttribute)
    9. For Each fileAttribute As FileAttribute In [Enum].GetValues(GetType(FileAttribute))
    10. If fileInfo.HaveAttributes(CType(fileAttribute, IO.FileAttributes)) Then
    11. attributeList.Add(fileAttribute)
    12. End If
    13. Next
    14. Return attributeList
    15. End Function
    17. <Extension>
    18. Public Function HaveAttributes(ByVal fileInfo As FileInfo, ByVal fileAttributes As IO.FileAttributes) As Boolean
    19. Return (fileInfo.Attributes And fileAttributes) = fileAttributes
    20. End Function
    22. <Extension>
    23. Public Sub AddAttributes(ByVal fileInfo As FileInfo, ByVal fileAttributes As IO.FileAttributes)
    24. File.SetAttributes(fileInfo.FullName, File.GetAttributes(fileInfo.FullName) Or fileAttributes)
    25. End Sub
    27. <Extension>
    28. Public Sub RemoveAttributes(ByVal fileInfo As FileInfo, ByVal fileAttributes As IO.FileAttributes)
    29. File.SetAttributes(fileInfo.FullName, File.GetAttributes(fileInfo.FullName) And Not fileAttributes)
    30. End Sub
    32. <Extension>
    33. Public Sub ClearAttributes(ByVal fileInfo As FileInfo)
    34. File.SetAttributes(fileInfo.FullName, IO.FileAttributes.Normal)
    35. End Sub
    37. End Module
    39. Public Module DirectoryAttributesExtensions
    41. <Extension>
    42. Public Function AttributesToList(ByVal directoryInfo As DirectoryInfo) As List(Of FileAttribute)
    43. Dim attributeList As New List(Of FileAttribute)
    44. For Each fileAttribute As FileAttribute In [Enum].GetValues(GetType(FileAttribute))
    45. If directoryInfo.HaveAttributes(CType(fileAttribute, IO.FileAttributes)) Then
    46. attributeList.Add(fileAttribute)
    47. End If
    48. Next
    49. Return attributeList
    50. End Function
    52. <Extension>
    53. Public Function HaveAttributes(ByVal directoryInfo As DirectoryInfo, ByVal fileAttributes As IO.FileAttributes) As Boolean
    54. Return (directoryInfo.Attributes And fileAttributes) = fileAttributes
    55. End Function
    57. <Extension>
    58. Public Sub AddAttributes(ByVal directoryInfo As DirectoryInfo, ByVal fileAttributes As IO.FileAttributes)
    59. File.SetAttributes(directoryInfo.FullName, File.GetAttributes(directoryInfo.FullName) Or fileAttributes)
    60. End Sub
    62. <Extension>
    63. Public Sub RemoveAttributes(ByVal directoryInfo As DirectoryInfo, ByVal fileAttributes As IO.FileAttributes)
    64. File.SetAttributes(directoryInfo.FullName, File.GetAttributes(directoryInfo.FullName) And Not fileAttributes)
    65. End Sub
    67. <Extension>
    68. Public Sub ClearAttributes(ByVal directoryInfo As DirectoryInfo)
    69. File.SetAttributes(directoryInfo.FullName, IO.FileAttributes.Normal)
    70. End Sub
    72. End Module

Facebook
Telefonspende