Checkbox lié à un dossier

[Pascal]

Bonsoir la tous,

Petit problèmes sur une Chexkbox liée à un dossier!!

Mon userform est composé de textbox , checkbox et de bouton suivant et précédent,
Dans l' USF une personne x est lié automatiquement à un dossier x qui peut contenir des fichiers (pdf , txt,…)
Je souhaite rajouter une checkbox qui se coche si le dossier x contient un fichier et se décoche s’il ne contient rien.

Dans mon idée, je suis parti sur : FolderExist et IsEmpty associé à une condition

Est-ce une solution qui peut aboutir ,si oui quelqu'un peut il m'aider dans l'écriture de ce code ?

Merci d’avance,

Et bonne soirée a tous

 

[MichelXld]

bonsoir Pascal

tu peux essayer cette macro pour vérifier si un repertoire est vide
(Le contrôle de présence des sous dossiers n'est pas pris en compte)

Dim Fso As Object
Dim Valeur As Double

Set Fso = CreateObject('Scripting.FileSystemObject')

Valeur = Fso.GetFolder('C:\\\\\\\\dossier').Size 'Adapter le chemin

If Valeur = 0 Then
MsgBox 'Le répertoire est vide . '
Else
MsgBox 'Le répertoire n'est pas vide . '
End If



bonne soire
MichelXld

Message édité par: michelxld, à: 09/11/2005 21:22