FileSystemObjectRésolu

Question

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

PCPT · Accepted Answer

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

FileSystemObject

1 réponse

Votre réponse

Discussions similaires