Comment lire le propriétaire d'un fichier avec Visual Basic ?
2 réponses
Fabrice Denoual
J'ai un répertoire rempli de fichiers que je scanne dans mon programme VB6.
J'arrive à récupérer la date de création, la taille du fichier mais n'arrive
pas à avoir le nom du créateur et de celui qui l'a modifié en dernier.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Marc
"Fabrice Denoual" a écrit dans le message de news:%
J'ai un répertoire rempli de fichiers que je scanne dans mon programme
VB6.
J'arrive à récupérer la date de création, la taille du fichier mais
n'arrive
pas à avoir le nom du créateur et de celui qui l'a modifié en dernier.
Quelqu'un sait-il comment faire s'il vous plaît ?
Hello, la réponse est simple : on ne peut pas, ni en VB ni avec quoi que se soit d'autre d'ailleurs. Les fichiers (sous Windows) n'ont pas d'attributs" tels que "créé par" ni "modifié par".
Jean-Marc
"Fabrice Denoual" <f.denoual@tiscali.fr> a écrit dans le message de
news:%23feAAG3NEHA.1608@TK2MSFTNGP12.phx.gbl...
J'ai un répertoire rempli de fichiers que je scanne dans mon programme
VB6.
J'arrive à récupérer la date de création, la taille du fichier mais
n'arrive
pas à avoir le nom du créateur et de celui qui l'a modifié en dernier.
Quelqu'un sait-il comment faire s'il vous plaît ?
Hello,
la réponse est simple : on ne peut pas, ni en VB ni avec quoi que se soit
d'autre d'ailleurs. Les fichiers (sous Windows) n'ont pas d'attributs" tels
que "créé par" ni "modifié par".
"Fabrice Denoual" a écrit dans le message de news:%
J'ai un répertoire rempli de fichiers que je scanne dans mon programme
VB6.
J'arrive à récupérer la date de création, la taille du fichier mais
n'arrive
pas à avoir le nom du créateur et de celui qui l'a modifié en dernier.
Quelqu'un sait-il comment faire s'il vous plaît ?
Hello, la réponse est simple : on ne peut pas, ni en VB ni avec quoi que se soit d'autre d'ailleurs. Les fichiers (sous Windows) n'ont pas d'attributs" tels que "créé par" ni "modifié par".
Jean-Marc
ng
Salut,
Si l'auteur des projets a complété les propriétés :
Private Sub Form_Load() Dim k As Integer, strBuff As String, strInf As String k = FreeFile Open "c:...Projet1.vbp" For Binary As #k strBuff = Space$(LOF(k)) Get #k, , strBuff Close #k
strInf = Entre(strBuff, "VersionCompanyName=""", """" & vbCrLf) Debug.Print "Nom de la compagnie de l'éditeur : " & strInf
Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As String) As String Dim i As Long i = InStr(1, sCh, sQuoi, vbTextCompare) If i > 0 Then Entre = Mid$(sCh, i + Len(sQuoi)) i = InStr(1, Entre, sEtQuoi, vbTextCompare) If (i - 1) > 0 Then Entre = Left$(Entre, i - 1) End If End Function
On pourrait faire une analyse en bouclant chaque ligne après en split mais cela serait moins rapide.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
Fabrice Denoual a écrit :
J'ai un répertoire rempli de fichiers que je scanne dans mon programme VB6. J'arrive à récupérer la date de création, la taille du fichier mais n'arrive pas à avoir le nom du créateur et de celui qui l'a modifié en dernier.
Quelqu'un sait-il comment faire s'il vous plaît ?
merci. Fab.
Salut,
Si l'auteur des projets a complété les propriétés :
Private Sub Form_Load()
Dim k As Integer, strBuff As String, strInf As String
k = FreeFile
Open "c:...Projet1.vbp" For Binary As #k
strBuff = Space$(LOF(k))
Get #k, , strBuff
Close #k
strInf = Entre(strBuff, "VersionCompanyName=""", """" & vbCrLf)
Debug.Print "Nom de la compagnie de l'éditeur : " & strInf
Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As String) As
String
Dim i As Long
i = InStr(1, sCh, sQuoi, vbTextCompare)
If i > 0 Then
Entre = Mid$(sCh, i + Len(sQuoi))
i = InStr(1, Entre, sEtQuoi, vbTextCompare)
If (i - 1) > 0 Then Entre = Left$(Entre, i - 1)
End If
End Function
On pourrait faire une analyse en bouclant chaque ligne après en split mais
cela serait moins rapide.
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
Fabrice Denoual <f.denoual@tiscali.fr> a écrit :
J'ai un répertoire rempli de fichiers que je scanne dans mon
programme VB6. J'arrive à récupérer la date de création, la taille du
fichier mais n'arrive pas à avoir le nom du créateur et de celui qui
l'a modifié en dernier.
Si l'auteur des projets a complété les propriétés :
Private Sub Form_Load() Dim k As Integer, strBuff As String, strInf As String k = FreeFile Open "c:...Projet1.vbp" For Binary As #k strBuff = Space$(LOF(k)) Get #k, , strBuff Close #k
strInf = Entre(strBuff, "VersionCompanyName=""", """" & vbCrLf) Debug.Print "Nom de la compagnie de l'éditeur : " & strInf
Public Function Entre(sCh As String, sQuoi As String, sEtQuoi As String) As String Dim i As Long i = InStr(1, sCh, sQuoi, vbTextCompare) If i > 0 Then Entre = Mid$(sCh, i + Len(sQuoi)) i = InStr(1, Entre, sEtQuoi, vbTextCompare) If (i - 1) > 0 Then Entre = Left$(Entre, i - 1) End If End Function
On pourrait faire une analyse en bouclant chaque ligne après en split mais cela serait moins rapide.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
Fabrice Denoual a écrit :
J'ai un répertoire rempli de fichiers que je scanne dans mon programme VB6. J'arrive à récupérer la date de création, la taille du fichier mais n'arrive pas à avoir le nom du créateur et de celui qui l'a modifié en dernier.
