Who created that file?

[kel1981b]

I need to write VB 6.0 program to find out who creates particular file. B-) How can I do that? Is there some attributes, functions I can use?
Tnanx in advance.

 

[cLFlaVA]

kel-

check out this link -

http://www.juicystudio.com/tutorial/vb/files.asp

- let me know if it helps you

*cLFlaVA
----------------------------
A polar bear walks into a bar and says, "Can I have a ... beer?"
The bartender asks, "What's with the big pause?

 

[kel1981b]

Thanks for your try cLFlaVA.
Unfortunately, there is no way to get information about file creator using FSO. At least I was not able to find that way.

 

[strongm]

You just need to translate something like the following into VB:

http://msdn.microsoft.com/library/d...finding_the_owner_of_a_file_object_in_c__.asp

(although I suspect that I'd prefer to use GetNamedSecurityInfo rather than GetSecurityInfo)

 

[kel1981b]

strongm thanks for your try.
Actually I found easier way to do that - Shell Object. If somebody is interested in code let me know.
Thanks everybody.

 

[strongm]

>If somebody is interested

It's what this site is about. Please share your solution

 

[koala15]

This maybe completely off topic .... but have a look at

http://www.tropictech.de/software/shellobject/

Comments?

Greg.

"Life is full of learning, and then there is wisdom"

 

[kel1981b]

Sorry about late reply
Here is code example
You have to refer to Microsoft Shell Control and Automation

Dim arrHeaders(34) As String

Dim objShell As Shell
Dim objFolder

Dim I As Integer

Dim strFileName

Dim itmAdd As ListItem
Dim strCreatedOn As String
Dim strFileExt As String

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.NameSpace(strFile)
lstFile.ListItems.Clear

For I = 0 To 10
    arrHeaders(I) = objFolder.GetDetailsOf(objFolder.Items, I)
Next

For Each strFileName In objFolder.Items
    For I = 0 To 10

       strFileExt = Right(strFileName, 4)
       
       If Right(strFileName, 4) = ".doc" Then
         
                         
            
            If arrHeaders(I) = "Author" Then
                If objFolder.GetDetailsOf(strFileName, I) = txtUserName.Text Then
                   
                   lstFile.Visible = True
                    Set itmAdd = lstFile.ListItems.Add(Text:=strFileName)
                    itmAdd.SubItems(2) = objFolder.GetDetailsOf(strFileName, I)
                    itmAdd.SubItems(1) = strCreatedOn
                End If
            Else
                If arrHeaders(I) = "Created" Then
                   strCreatedOn = objFolder.GetDetailsOf(strFileName, I)
                End If
                
            End If
      End If
      
       
    Next
Next
Set objShell = Nothing

You must modified it according to your needs

 

[Swi]

You could also try this thread:

thread222-488582

Swi