Avec le set devant chemin_client ......
ça plante totalement vb
Public Sub Dir1_Change()
Dim Chemin_CLient As Folder
Dim Taille_Client As Double
Dim Adr_Client As String
Set Fs = CreateObject("scripting.FileSystemObject")
'si le chemin change l'aficher dans le label de controle d'adresse
Lbl_Taille_Folder.Caption = Dir1.Path
Adr_Client = Dir1.Path
Fs.GetAbsolutePathName (Adr_Client)
Set Chemin_CLient = Fs.GetFolder(Adr_Client)Taille_Client = Chemin_CLient.Size
Taille.Caption = Taille_Client
Amicalement
Mr No
mailto: nicolas.orhon@free.fr-------------------------------
Réponse au message :
-------------------------------
> Salut
>
> j'ai un probleme sur une parti de mon code qui a partir d'un chemin initialise un objet fichier j'utilise plusieur fois cette fonction dans mon code a l'indentique mais la ça ne passe pas est ce que ça vient de mon code sinon de quoi ça peut venir
>
> Public Sub Dir1_Change()
>
> Dim Chemin_CLient As Folder
> Dim Taille_Client As Double
> Dim Adr_Client As String
>
>
> Set Fs = CreateObject("scripting.FileSystemObject")
>
> 'si le chemin change l'aficher dans le label de controle d'adresse
>
> Lbl_Taille_Folder.Caption = Dir1.Path
> Adr_Client = Dir1.Path
>
> Chemin_CLient = Fs.GetFolder(Adr_Client)
> Taille_Client = Chemin_CLient.Size
> Taille.Caption = Taille_Client
>
>
> End Sub
>
> Merci
>
>
>
> Amicalement
>
>
Mr No
>
>
mailto: nicolas.orhon@free.fr