OVH Cloud OVH Cloud

Pb avec file search et fichier ZIP

8 réponses
Avatar
gminot
Bonjour j'utilise cette fonction pour rechercher des fichiers mais
cela ne fonctionne pas quand l'extention est .zip quelqu'un a til une
idee

Merci de votre aide





Public Function FileExistBis(strDir As String, strFile As String) As
Boolean

With Application.FileSearch
.LookIn = strDir
.FileName = strFile
FileExistBis = False
If .Execute() > 0 Then FileExistBis = True
End With

End Function

8 réponses

Avatar
Raymond [mvp]
Bonjour.

Les zip sont ignorés par filesearch car ce ne sont pas des fichiers mais des
dossiers compressés. Utiliser la fonction Dir qui les reconnait.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"gilles" a écrit dans le message de news:

Bonjour j'utilise cette fonction pour rechercher des fichiers mais
cela ne fonctionne pas quand l'extention est .zip quelqu'un a til une
idee

Merci de votre aide





Public Function FileExistBis(strDir As String, strFile As String) As
Boolean

With Application.FileSearch
.LookIn = strDir
.FileName = strFile
FileExistBis = False
If .Execute() > 0 Then FileExistBis = True
End With

End Function


Avatar
3stone
Salut,

"gilles"
Bonjour j'utilise cette fonction pour rechercher des fichiers mais
cela ne fonctionne pas quand l'extention est .zip quelqu'un a til une
idee

Public Function FileExistBis(strDir As String, strFile As String) As
Boolean

With Application.FileSearch
.LookIn = strDir
.FileName = strFile
FileExistBis = False
If .Execute() > 0 Then FileExistBis = True
End With

End Function




Si... chez moi cela fonctionne... a condition de renseigner l'extension !!


Donc:

Debug.print FileExistBis("F:","MaBase.zip")


=>> Vrai


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
Raymond [mvp]
Bonjour Pierre.

exact mais pour un seul fichier. si on passe par .* par exemple, ça ne
fonctionne plus. pour un seul fichier il est préférable de passer par Dir
qui est plus rapide, en se réservant le filesearch pour le multi-répertoire
et les *

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"3stone" a écrit dans le message de news:

Salut,

"gilles"
Bonjour j'utilise cette fonction pour rechercher des fichiers mais
cela ne fonctionne pas quand l'extention est .zip quelqu'un a til une
idee

Public Function FileExistBis(strDir As String, strFile As String) As
Boolean

With Application.FileSearch
.LookIn = strDir
.FileName = strFile
FileExistBis = False
If .Execute() > 0 Then FileExistBis = True
End With

End Function




Si... chez moi cela fonctionne... a condition de renseigner l'extension
!!


Donc:

Debug.print FileExistBis("F:","MaBase.zip")


=>> Vrai


--
A+
Pierre (3stone) Access MVP



Avatar
3stone
Salut,

"Raymond [mvp]"
exact mais pour un seul fichier.



Vu comme la fonction est écrite, c'est pour détecter la présence d'un fichier !


si on passe par .* par exemple, ça ne
fonctionne plus. pour un seul fichier il est préférable de passer par Dir
qui est plus rapide, en se réservant le filesearch pour le multi-répertoire
et les *



Ce qui ne justifie pas:
"Les zip sont ignorés par filesearch car ce ne sont pas des fichiers
mais des dossiers compressés."

?? pourquoi les .zip seraient-ils des "dossiers" compressés ??

On zipe ce que l'on veut, y compris des dossiers complets...


;o))



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
Raymond [mvp]
on zip ce qu'on veut bien sûr, mais l'explorateur windows considère le zip
comme un dossier. regarde d'ailleurs dans l'explorateur, il les mets des
deux côtés pour être sûr de ne pas se tromper !
La gestion des zip n'est pas très claire sous windows.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"3stone" a écrit dans le message de news:

Salut,

"Raymond [mvp]"
exact mais pour un seul fichier.



Vu comme la fonction est écrite, c'est pour détecter la présence d'un
fichier !


si on passe par .* par exemple, ça ne
fonctionne plus. pour un seul fichier il est préférable de passer par Dir
qui est plus rapide, en se réservant le filesearch pour le
multi-répertoire
et les *



Ce qui ne justifie pas:
"Les zip sont ignorés par filesearch car ce ne sont pas des fichiers
mais des dossiers compressés."

?? pourquoi les .zip seraient-ils des "dossiers" compressés ??

On zipe ce que l'on veut, y compris des dossiers complets...


;o))



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------







Avatar
3stone
"Raymond [mvp]"
[...]
La gestion des zip n'est pas très claire sous windows.



depuis que MS a voulu faire du zip... ;-(



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
Raymond [mvp]
C'est vrai que moi j'étais bien avec mon zip dos et mon winzip

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"3stone" a écrit dans le message de news:

"Raymond [mvp]"
[...]
La gestion des zip n'est pas très claire sous windows.



depuis que MS a voulu faire du zip... ;-(



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------







Avatar
gminot
Merci pour vos réponses . En effet avec la fonction DIR cela
fonctionne . Mais avec filesearch + extention c'est niet .


Merci à vous





"Raymond [mvp]" wrote in message news:...
C'est vrai que moi j'étais bien avec mon zip dos et mon winzip

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"3stone" a écrit dans le message de news:

"Raymond [mvp]"
[...]
La gestion des zip n'est pas très claire sous windows.



depuis que MS a voulu faire du zip... ;-(



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------