---

Hallo Zusammen,

ich möchte gerne unter VB.NET den Besitzer einer Datei ermitteln.
Hiermit kriege ich sehr viele Informationen über die Datei, aber nicht den Besitzer.     

Dim information As System.IO.FileInfo
        information = My.Computer.FileSystem.GetFileInfo("C:\TEMP\" & txtFilePath.Text)
        ' Delete the file if it exists.)
        MsgBox("The file's full name is " & information.FullName & ".")
        MsgBox("Last access time is " & information.LastAccessTime & ".")

Wie bekomme ich den Besitzer der Datei?!

Danke für Eure Unterstützung

Schöne Grüße
Feyza : )

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo nochmal,
ich hatte schonmal das hier hier gefragt : ))

OKAY.
Obwohl ich hier die Verweis angewählt habe, erkennt er die Definitionen nicht.
z.B. bei Dim objFSO As FileSystemObject
hier kommt die Meldung: Der Typ FileSystemObject ist nicht definiert.

"Hi Feyza,
um das Thema wieder aufzurollen ...  ... versuch mal folgendes ...

Code:
--------------------------------------------------------------------------------
sub ttt()
Dim objShell As IShellDispatch2
Dim objFSO As FileSystemObject
Dim strDir As String
Dim objFolder As Folder
Dim objFolder2 As Folder2
Dim test As FolderItem2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\")

strDir = CStr(objFolder)

Set objShell = CreateObject("Shell.Application")
Set objFolder2 = objShell.Namespace("" & strDir & "")

Set test = objFolder2.ParseName("test.txt")

Debug.Print objFolder2.GetDetailsOf(test, 8)
end sub

--------------------------------------------------------------------------------

.... verweise auf 'Microsoft Scripting Runtime' und
.... 'Microsoft Shell Controls and Automation' ... (..\system32\shell32.dll)

.... als Ausgabe bekomme ich nun 'VORDEFINIERT\Administratoren'

Das sollte es sein, was Du suchst ... denke ich .. oder? .. 

Gruss TP"

Voran kann es noch liegen?!

Schöne Grüße
Feyza : ))

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Zusammen,

wenn es intressiert:

Habe dies so umgesetzt:

        Dim objShell As Shell32.IShellDispatch2
        Dim objFSO As Scripting.FileSystemObject
        Dim strDir As String
        Dim objFolder As Scripting.Folder
        Dim objFolder2 As Shell32.Folder2
        Dim test As Shell32.FolderItem2
        'Dim LastExtPos As Short

        Dim fso As New Scripting.FileSystemObject
        Dim fso1 As New Scripting.FileSystemObject

        objFSO = CType(CreateObject("Scripting.FileSystemObject"), Scripting.FileSystemObject)
        objFolder = objFSO.GetFolder("C:\TEMP\")

        strDir = CStr(objFolder.Path)

        objShell = CType(CreateObject("Shell.Application"), Shell32.IShellDispatch2)
        objFolder2 = CType(objShell.NameSpace("" & strDir & ""), Shell32.Folder2)

        txtFilePath.Text = Dir("C:\TEMP\*.pdf")

        test = CType(objFolder2.ParseName(txtFilePath.Text), Shell32.FolderItem2)

        Debug.Print(objFolder2.GetDetailsOf(test, 8))

        txtInfo.Text = objFolder2.GetDetailsOf(test, 8)

        txtFilePath.Text = test.Name

        txtInfo.Text = UCase(txtInfo.Text)

        txtInfo.Text = Mid(txtInfo.Text, 8, 5)

Verweise auf:
Microsoft Scripting Runtime und
Microsoft Shell Controls and Automation

Schöne Grüße
Feyza : )

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP