Code-Beispiel

Dateien verstecken (Windows Dateiattribute auslesen / ändern)

Lizenz:	Erster Autor:	Letzte Bearbeitung:
MIT-Lizenz	St_W	05.07.2017

#Include "windows.bi"



Sub Hide(fname As String)

    Dim As DWORD attr = GetFileAttributes(StrPtr(fname))

    SetFileAttributes(StrPtr(fname), attr Or FILE_ATTRIBUTE_HIDDEN)

End Sub



Sub UnHide(fname As String)

    Dim As DWORD attr = GetFileAttributes(StrPtr(fname))

    SetFileAttributes(StrPtr(fname), attr And (Not FILE_ATTRIBUTE_HIDDEN))

End Sub



' Beispielaufruf:

'Hide("test.txt")

'UnHide("test.txt")

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 05.07.2017 von St_W angelegt.
Die aktuellste Version wurde am 05.07.2017 von St_W gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.