Rubrik: Dateisystem · Dateien - allgemein | VB-Versionen: VB2005, VB2008, VB2010 | 29.07.11 |
Besitzer einer Datei Eine kleine Funktion, die den Besitzer einer existierenden Datei ermittelt und zurückgibt. | ||
Autor: Dieter Otter | Bewertung: | Views: 13.568 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit nachfolgender Funktion lässt sich der Besitzer (Owner) einer Datei ermitteln.
''' <summary> ''' Gibt den Besitzer einer Datei zurück ''' </summary> ''' <param name="Filename">Dateiname</param> Public Function FileOwner(ByVal Filename As String) As String Dim oFile As New IO.FileInfo(Filename) Dim oFS As Security.AccessControl.FileSecurity = oFile.GetAccessControl Return oFS.GetOwner(GetType(Security.Principal.NTAccount)).Value End Function
Aufrufbeispiel:
Dim Filename As String = "D:\Datei1.exe" Dim Owner As String = FileOwner(Filename) MsgBox("Besitzer der Datei: " & Owner)