Sujet Précédent Sujet Suivant

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:

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
0