Taille fichier VB6 Excel 2000

Résolu
cavrom Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -  
cavrom Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous :),
j'ai créé dans une interface un bouton permettant de parcourir mes fichier afin d'en sélectionner un. Le chemin et le nom du fichier s'affichent dans deux textbox respectives. J'aimerais qu'une troisième textbox affiche la taille du fichier.
Ensuite, j'aimerais que suivant la valeur de la taille du fichier, il soit accepté ou non ( taille max 500 Ko), lors du clique d'un bouton "send", que j'ai déjà créé.
Pourriez vous m'éclairer?
Pour l'instant mon code est : 

Private Sub CommandButton1_Click()

Dim NAO As String

NAO = Application.GetOpenFilename

For i = Len(NAO) To 1 Step -1
If Mid(NAO, i, 1) = "\" Then lendossier = i: GoTo suite
Next
suite:
TextBox1.Value = Mid(NAO, 1, lendossier - 1)
TextBox2.Value = Mid(NAO, lendossier + 1, (Len(NAO) + 1) - lendossier)

End Sub


Merci de votre aide,
Cavrom

1 réponse

  1.
    cavrom Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   3
     
    voici la réponse que j'ai trouvé sur un autre forum :
    Private Sub CommandButton1_Click() 

    Dim NAO As String
Dim i As Long

NAO = Application.GetOpenFilename
i = InStrRev(NAO, "\")

If i > 0 Then
    TextBox1.Value = Left$(NAO, i - 1)
    TextBox2.Value = Mid$(NAO, i + 1)
End If

TextBox3.Value = FileLen(NAO)
If Val(TextBox3) > 256000 Then
  MsgBox "the file size exceeds 250 kb"
  TextBox1 = ""
  TextBox2 = ""
  TextBox3 = ""
Else
End If
End Sub
    0