Taille fichier VB6 Excel 2000

Résolu/Fermé

cavrom Messages postés 45 Date d'inscription mercredi 20 avril 2011 Statut Membre Dernière intervention 26 juillet 2011 - 16 mai 2011 à 17:10
cavrom Messages postés 45 Date d'inscription mercredi 20 avril 2011 Statut Membre Dernière intervention 26 juillet 2011 - 19 mai 2011 à 11:42

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

A voir également:

Taille fichier VB6 Excel 2000
Comment réduire la taille d'un fichier - Guide
Fichier rar - Guide
Liste déroulante excel - Guide
Fichier host - Guide
Fichier iso - Guide

1 réponse

Réponse 1 / 1

cavrom Messages postés 45 Date d'inscription mercredi 20 avril 2011 Statut Membre Dernière intervention 26 juillet 2011 3
19 mai 2011 à 11:42

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

Discussions similaires

À quoi correspond 32x32 US en taille française pour un jean ?

comment donner les droits sur fichier partage

W32 L32: correspondance entre taille US et taille française

Discussions similaires

Newsletters