FileSystemObject [Résolu]

Signaler
Messages postés
19
Date d'inscription
jeudi 23 août 2007
Statut
Membre
Dernière intervention
14 octobre 2008
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour à tout le forum.

J'ai réalisé un programme qui a pour but de changer l'état d'une variable ou de réaliser une action
si un fichier de type EXCEL (.xls) existe dans un dossier. Bien sur dans mon programme je ne tiens pas compte
du nom du fichier mais je prends en compte seulement son extension.
Si je m'adresse à vous c'est que bien sur mon programme de ne marche pas.
En voici un extrait :

Sub Essaie ()   
    Dim Test As Boolean
    Test = False
    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.FileExists("D:\Nouveau dossier\*.xls") Then
    Test = True
    End If
End Sub

Dans ce programme c'est la varibles TEST qui ne passe pas à 1 meme si un fichier EXCEL est présent dans le dossier.
Si quelqu'un a une idée, je suis preneur.

Je vous remercie de l'attention que vous porterez à ma question.

Cordialement.

Goose 17

1 réponse

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
37
salut,
ton code ici cherche un fichier NOMMé "*.xls"
* étant un caractère interdit, ton FSO ne risque pas d'en trouver....

Sub Essaie()
    Dim Test As Boolean
    Test = (LenB(Dir("D:\Nouveau dossier\*.xls", vbSystem Or vbHidden Or vbReadOnly)) > 0)
End Sub

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp