Bonjour,
Je souhaiterais recuperer la taille d'un fichier si celui ci est present.
Mon code fonctionne bien pour la presence du fichier mais je n'arrive pas a recupere la taille.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Commande13_Click()
On Error GoTo err
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Dim oF2 As Scripting.File
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Instanciation de l'objet File
If oFSO.FileExists(Me.Chemin_fichier.Value) Then
    Set oFl = oFSO.GetFile(Me.Chemin_fichier.Value)
  oFl.Copy Me.Texte15.Value, False
End If
Set oF2 = GetFile.Size(Me.Chemin_fichier.Value)
Me.Texte31.Value = oF2
err:
        Select Case err.Number
            Case 58: MsgBox "Le Jeu y est déjà "
 
End Select
 
End Sub