tester si fichier dans un dossier

Question

Bonjour,

voila je test si il y a des fichier dans un dossier mais je suis obliger de tester l'extension 
exemple

if exist c:.....\*.xls
cela fonctionne si j'ai fichier excel 

moi je veux tester tt les fichier j'ai donc essayer :
if exist c:.....\*
ou
if exist c:.....\*.*

mais en vain

avez vous une idee

moiced59 · Answer

up

moiced59 · Answer

up up

lermite222 · Answer

Bonjour,
Function FichierExiste(F As String) As String
    FichierExiste = Dir(F)
End Function

Sub ExempleAppel()
Dim Ret As String
    Ret = FichierExiste("c:\Répertoir\NomFichier.*")
    If Ret <> "" Then
        MsgBox "le fichier " & Ret & " existe"
    End If
End Sub
Voir si ça te convient.
A+

moiced59 · Answer

Merci pour ta reponse mais je veux faire ca en batch

lermite222 · Answer

Dir va aussi en batch.

dubcek · Answer

hello
tu veux tester si il y a au moins 1 fichier dans un répertoire, c'est à dire si le dit répertoire n'est pas vide ?

moiced59 · Answer

Oui c ca je veux tester si il y a un fichier et ne pas forcement specifié l'extension

Tester si fichier dans un dossier

7 réponses

Discussions similaires

Newsletters