detection de fichiersRésolu

Question

Bonjours,

J'ai un probl&#232;me lors de la d&#233;tection de fichiers. Ma fonction me d&#233;tecte bien mes fichiers lorsque je lui passe le nom exact du fichier. Hors j'ai &#233;galement besoin de l'utiliser dans un cas ou je ne connais qu'une partie du nom (pour des fichiers temporaires commencant par "tmp"). Mais lorsque je passe le nom du fichier "tmp*.*", il ne me trouve rien.

Voici le code :

Function FileExists(ByRef sFile As String) As Boolean


On Error GoTo ErrExp
        FileExists ((GetAttr(sFile) And vbDirectory) 0)

ErrExp:
    
    If Err.Number <> 0 Then
        FileExists = False
    Else
        FileExists = True
    End If
    
End Function

Gobillot · Accepted Answer

les deux String s&#233;par&#233;es c'est presque obligatoire

sinon il faudrait d&#233;composer la cha&#238;ne en Path et Nom et recomposer la cha&#238;ne ensuite

&#224; moins que tu n'es pas besoin du nom du fichier

ce qui m'&#233;tonnerais

parce que si ta cha&#238;ne de d&#233;part est "C:\TEMP	emp*.doc"

tu ne pourras pas utiliser la cha&#238;ne pour ouvrir le fichier, le vrai nom du fichier &#233;tant par exemple "C:\TEMP	emp001.doc"

il est possible aussi de mettre le deuxi&#232;me argument au niveau g&#233;n&#233;ral

&#231;a oblige qaund m&#234;me a isoler le Path pour avoir le chemin+nom complet.



Option Explicit



Dim Fichier As String



Private Sub Command1_Click()

    Dim Path    As String

    

    Path = "C:\TEMP	emp*.doc"

    

    If FileExists(Path) Then

       MsgBox Fichier

       End If

    

End Sub



Private Function FileExists(PathetFichier As String) As Boolean



    Dim Str As String

    Str = Dir(PathetFichier)

    

    If Str <> "" Then

         Fichier = Str

         FileExists = True

         End If



End Function


Daniel

scortex84 · Answer

Hello,

tu as essay&#233; avec un "getfile" ? Perso, moi cela fonctionne (bon en VB.NET, mais &#231;a doit aussi marcher en VB6) : 

str est un tableau de strings

str = IO.Directory.GetFiles(path, "toto*")

Et str re&#231;oit tous les fichiers correspondant &#224; la recherche. Ensuite un str.lenght et &#231;a roule !

Bon courage,

Seb.

Gobillot · Answer

le probl&#232;me c'est qu'il peut y avoir plusieurs noms de fichiers r&#233;pondant au crit&#232;re.

il faut aussi pouvoir renvoyer le nom du fichier dans la fonction.

sFile a le chemin complet

fichier n'a que le nom du fichier.



fichier = Dir(sFile)



While fichier <> ""

    If GetAttr (fichier) And vbDirectory = 0 Then

       FileExists = True

       Exit Function

       End If 

    fichier = Dir()

Wend


Daniel

violent_ken · Answer

Violent Ken

Voil&#224; une function :

Function FileExists(PathEtFichier As String, Fichier As String) As Boolean
FileExists = False
Dim X As String, Y As String
X = Dir(PathEtFichier & "*.*")
If X = vbNullString Then Exit FunctionIf LCase(X) LCase(Fichier) Then FileExists True: Exit Function
On Error GoTo Err:
Y = Left$(X, InStr(X, ".") - 1)If LCase(Y) LCase(Fichier) Then FileExists True: Exit Function
Err:
End Function

Exemple :
Existence=FileExists("c:	emporaire	emp","temp")
Si il existe des fichiers "temp" & n'importe quelle terminaison (ou "temp" sans terminaison), Existence=true autrement Existence=false

Voil&#224;, normalement &#231;&#224; r&#233;pons &#224; la question !
@+

Gobillot · Answer

Function FileExists(Path~~EtFichier~~ As String, Fichier As String) As Boolean 'toujours mettre les déclaratrions au début Dim X As String, Y As String ~~FileExists = False 'inutile~~ ~~X = Dir(PathEtFichier & "*.*")~~ X = Dir(Path & Fichier) 'une chaîne vide n'est pas Null If X = "" ~~vbNullString~~ Then Exit Function if X <> "" Then fichier = X FileExist = True End If 'tout cela est inutile ~~If LCase(X) LCase(Fichier) Then FileExists True: Exit Function On Error GoTo Err: Y = Left$(X, InStr(X, ".") - 1) If LCase(Y) LCase(Fichier) Then FileExists True: Exit Function Err:~~ End Function Daniel

cs_kurky · Answer

Gobillot, 

J'ai deja utilis&#233; un code comme celui cie t je sais qu'il marche dans le cas qu'il me faut.
Le probleme c'est qu'il ne me trouve pas un fichier au d&#233;marrage alors qu'il est vraiment pr&#233;sent car le vbdirectory est a 16.
Or le fichier trouv&#233; est un fichier avec une extension ".cop" dans ce cas.

A chaque solution son probleme aparament

violent_ken · Answer

Violent Ken

Bon. 
Message pour Gobillot : avant de tout rayer b&#234;tement, essaye MA fonction et TA fonction. Tu verras que la mienne fonctionne, et que la tienne NE MARCHE PAS.
Un conseil, la prochaine fois r&#233;fl&#233;chit un peu avant d'&#233;crire des anneries.
@+

Gobillot · Answer

s'il a l'attribut 16 ????

c'est pas un fichier, c'est un r&#233;pertoire

Daniel

cs_kurky · Answer

oui je sais &#224; quoi correspond 16 mais c'est bien un fichier avec exrtension ".cop" de 10Mo

cs_kurky · Answer

D'ailleurs je viens de remarquer que le vbdirectory restait constamment &#224; 16
Ne faut-il pas le mettre en argument quelque part ?

Gobillot · Answer

tient bizarre !

je sais qu'il peut y avoir des noms des r&#233;pertoires avec extensions

j'ai essay&#233; avec un fichier de mettre l'attribut vbDirectory, c'est impossible

Vb fait une erreur

et les logiciels que j'ai ne le permette pas non plus

je pense donc toujours que ton fichier est un r&#233;pertoire

Daniel

cs_kurky · Answer

Ben mon fichier .cop est une base de donn&#233;es access.
Je l'ai renomm&#233;e en .mdb mais ca fait la meme chose.

Gobillot · Answer

par d&#233;finition les constantes ne sont pas modifiables

et un r&#233;pertoire sera toujours 16







32 --> Archive  

16 --> R&#233;pertoire   

08 --> Label

04 --> System  

02 --> Hidden

01 --> read Only



c'est comme &#231;a depuis le d&#233;but et c'est pas modifiable.

Daniel

cs_kurky · Answer

Mais je me demande si le GetAttr est vraiment indispensable ...
Parce que si je le supprime en laissant la condition if fichier <> "" then alors ca marchera ...

Gobillot · Answer

et comment r&#233;agit le syteme ?

quand tu fais propri&#233;t&#233;s 

il devrait faire type ==> Dossier de Fichier

et non pas fichier MDB

Daniel

violent_ken · Answer

Violent Ken

Utilise 
Function FileExists(PathEtFichier As String, Fichier As String) As Boolean
FileExists = False
Dim X As String, Y As String
X = Dir(PathEtFichier & "*.*")
If X = vbNullString Then Exit FunctionIf LCase(X) LCase(Fichier) Then FileExists True: Exit Function
On Error GoTo Err:
Y = Left$(X, InStr(X, ".") - 1)If LCase(Y) LCase(Fichier) Then FileExists True: Exit Function
Err:
End Function
Tu verras, &#231;&#224; marche.

cs_kurky · Answer

La solution de virer le getattr marche nikel
Ta fonction ne peut pas marcher Daniel .
Dans ta condition tu met "and vbdirectory =0" ce qui sera toujours false. donc ton if ne sert a rien.
Violent ken le nom de ma fonction est osi fileexists mais je ne doit avoir qu'un seul argument :)

violent_ken · Answer

Violent Ken

Remplace ta fonction par la mienne.
Pour PathEtFichier tu mets par exemple "c:	emporaires	emp" et pour Fichier tu mets "temp". Ma fonction te donneras True si il existe un fichier
"c:	emporaires	emp" ou
"c:	emporaires	emp.tmp" ou
"c:	emporaires	emp.doc" ou
"c:	emporaires\TEMP.TmP"....
et te revverras False s'il n'existe pas de fichier temp.

C'est bien ce que tu voulais faire, non ?

Gobillot · Answer

ben oui c'est normal parce c'est un fichier

donc le Test ne sert &#224; rien
ce qui simplifie grandement la fonction

je te conseille de mettre le Path et le nom du fichier s&#233;par&#233;ment





 Function FileExists(Path As String, Fichier As String) As Boolean



Dim Str As String

Str = Dir(Path & Fichier)



if Str <> "" Then

      Fichier = Str

      FileExist = True

      End If

 

 End Function



Daniel

violent_ken · Answer

Violent Ken

Kurky, tu as dit
J'ai un probl&#232;me lors de la d&#233;tection de fichiers. Ma fonction me d&#233;tecte bien mes fichiers lorsque je lui passe le nom exact du fichier. Hors j'ai &#233;galement besoin de l'utiliser dans un cas ou je ne connais qu'une partie du nom (pour des fichiers temporaires commencant par "tmp"). Mais lorsque je passe le nom du fichier "tmp*.*", il ne me trouve rien.
moi j'ai compris que tu ne connaissait pas la TERMINAISON du fichier, alors que c'est aussi une partie du nom du fichier que tu ne connais pas. Dans ce cas, tout le monde est d'accord, un simple

Private Function FileExists(PathetFichier As String) As Boolean

    Dim Str As String
    Str = Dir(PathetFichier)
    
    If Str <> "" Then
         Fichier = Str
         FileExists = True
         End If

End Function

suffit et fonctionne tr&#232;s bien.

Detection de fichiers

30 réponses