Récupérer le propriétaire d'un fichier

Récupérer le propriétaire d'un fichier - VB/VBA/VBS - Programmation

Marsh Posté le 10-10-2006 à 15:01:16    

Bonjour à tous.
 
Voilà ma question est simple, je cherche à réupérer le propriétaire d'un fichier mais je n'arrive pas à trouver la méthode pour le faire après plusieurs recherches.
 
Si vous la connaissez ?
 
Merci d'avance

Reply

Marsh Posté le 10-10-2006 à 15:01:16   

Reply

Marsh Posté le 10-10-2006 à 15:07:43    

VB ? VBA ? VBS ?


---------------
"Mon modèle, c'est moi-même."
Reply

Marsh Posté le 10-10-2006 à 21:08:24    

Oups excusez-moi c'est en VBS. Désolé

Reply

Marsh Posté le 11-10-2006 à 08:52:25    

Google est ton ami [:duckleroidelamare]  
Fais une recherche sur "vbs file owner" dans Google, tu auras un petit cadeau en premier choix ;)
Il est important de penser à faire un peu de recherche avant de poser la question, en attendant que les autres ouvrent un browser pour toi :)


---------------
"Mon modèle, c'est moi-même."
Reply

Marsh Posté le 11-10-2006 à 09:01:09    

Merci j'avais fais la recherche mais en francais :-D et rien d'intéressant.

Reply

Marsh Posté le 11-10-2006 à 10:57:29    

Cette méthode ne fonctionne pas chez moi. Et j'en comprend la moitié des mots. :'(

Reply

Marsh Posté le 11-10-2006 à 11:58:10    

Set objShell = CreateObject ("Shell.Application" )
Set objFolder = objShell.Namespace ("Ton_chemin" )
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Dim arrHeaders(13)
For i = 0 to 13
arrHeaders(i) = objFolder.GetDetailsOf (objFolder.Items, i)
Next
For Each strFileName in objFolder.Items
For i = 0 to 13
If i <> 9 then
Wscript.echo arrHeaders(i) _
& ": " & objFolder.GetDetailsOf (strFileName, i)
End If
Next
Wscript.Echo
Next


Message édité par agkklr le 11-10-2006 à 11:58:28

---------------
"Mon modèle, c'est moi-même."
Reply

Marsh Posté le 11-10-2006 à 11:59:06    

Après, si tu veux l'appliquer à un seul fichier, c'est assez simple : tu vires la boucle.


---------------
"Mon modèle, c'est moi-même."
Reply

Marsh Posté le 11-10-2006 à 14:29:18    

Merci beaucoup ;-)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed