Public Function Properties(chemin As String) As String
     Dim objShell       As Object
     Dim objFolder     As Object
     Dim objFileName As Object
     Dim Folder         As Variant
     Dim FileName     As String
     Dim Resultat      As String
     Dim Des            As String
     Dim Lib              As String
     Dim i                 As Integer
 
     On Error GoTo Erreur
     i = InStrRev(chemin, "\")
     If i > 0 Then
        Folder = Left$(chemin, i)
        FileName = Mid$(chemin, i + 1)
        Else
        Folder = CurDir
        FileName = chemin
        End If
     If Dir$(Folder, vbDirectory) = "" Then Error 76
     If Dir$(chemin) = "" Then Error 53
 
     Set objShell = CreateObject("Shell.Application")
     Set objFolder = objShell.NameSpace(Folder)
     Set objFileName = objFolder.ParseName(FileName)
 
     For i = 0 To 39
         Lib = objFolder.GetDetailsOf(objFileName, i)
         If LenB(Lib) > 0 Then
            Select Case i
               Case 27:   Des = "Largeur"
               Case 28:   Des = "Hauteur"
               Case 31:   Des = "Date origine"
               Case Else: Des = objFolder.GetDetailsOf(0, i)
               End Select
            Resultat = Resultat & Des & " " & _
                       String$(30 - Len(Des), 46) & " " & Lib & vbCrLf
            End If
         Next
     
     Set objFileName = Nothing
     Set objFolder = Nothing
     Set objShell = Nothing
         
     Properties = Resultat
     Exit Function
     
 Erreur:
     MsgBox "Erreur d'exécution '" & Err.Number & "':" & vbCrLf & vbCrLf & _
             Err.Description, vbExclamation, App.EXEName
 End Function
 
 
 '// exemple d'utilisation:
 '// Text1 est une TextBox Multilignes
     Text1.Text = Properties("C:\WINDOWS\explorer.exe")
 

sNomFichier est une chaine = "c:\NomRep\NomFichier.exe"
sDateCréation          = fDate(sNomFichier,"",fCréation) // Date création du fichier
sDateModification     = fDate(sNomFichier,"",fModification) // Date Modification du Fichier
sDateDernierAccès    = fDate(sNomFichier,"",fAccès)    // Date du dernier Accès du fichier
sHeureCréation        = fHeure(sNomFichier,"",fCréation) // Heure Création du fichier
sHeureModification   = fHeure(sNomFichier,"",fModification) // Heure Modification du fichier
sHeureDernierAccès  = fHeure(sNomFichier,"",fAccès) // Heure Dernier Accès du fichier
sAttribut        = fAttribut(sNomFichier) // attribut du fichier 
nTailleFichier = fTaille(sNomFichier) // Renvoie la taille en octet
 

'Imports System.IO
Sub FileProperties(ByVal FileName As String) 
Dim FileProperties As FileAttributes = File.GetAttributes(FileName)
Dim sw As StreamWriter = File.CreateText("C:\Analyse.txt") 
sw.WriteLine("Propriétés du fichier: " & FileName)sw.WriteLine(
"Taille du fichier sur le disque: " & FileName.Length & " Ko") 
sw.WriteLine("Date et heure de création: " & File.GetCreationTime(FileName).ToShortDateString & " à " & File.GetCreationTime(FileName).ToShortTimeString)sw.WriteLine(
"Date et heure de modification: " & File.GetLastWriteTime(FileName))sw.WriteLine("Date et heure du dernier accès: " & File.GetLastAccessTime(FileName)) 
sw.Close()

End Sub

'Exemple d'utilisation:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
FileProperties("C:\Classeur1.xls")
End Sub