"Tati" <sebastanguy@aol.com> wrote in message
news:04da01c34167$acae3200$a001280a@phx.gbl...
Comment faire pour tester l'existence d'un fichier
installé sur un réseau?
"Tati" wrote in message news:04da01c34167$acae3200$ Comment faire pour tester l'existence d'un fichier installé sur un réseau?
Merci d'avance
.
Zoury
c'est le nom du fichier *avec* chemin. Si tu ne le spécifie pas, je ~crois~ qu'il regardera dans le "current directory" qui peut être obtenu par CurDir$() et modifier par ChDir.
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/ http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/ "tati" wrote in message news:0a5801c3416e$e6279e70$ Merci mais sfile c'est le nom du fichier ou le nom du fichier avec le chemin?
Merci d'avance
-----Message d'origine----- Salut Tati! :O)
essaie ceci : '*** Private Function FileExists(ByRef sFile As String) As
Boolean
On Error Resume Next FileExists = (GetAttr(sFile) And vbDirectory) = 0 End Function '***
tu peux aussi tester l'existance d'un dossier comme ceci : '*** Private Function FolderExists(ByRef sFolder As String) As
Boolean
On Error Resume Next FolderExists = (GetAttr(sFolder) And vbDirectory) vbDirectory End Function '***
"Tati" wrote in message news:04da01c34167$acae3200$ Comment faire pour tester l'existence d'un fichier installé sur un réseau?
Merci d'avance
.
c'est le nom du fichier *avec* chemin. Si tu ne le spécifie pas, je ~crois~
qu'il regardera dans le "current directory" qui peut être obtenu par CurDir$()
et modifier par ChDir.
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
"tati" <sebastanguy@aol.com> wrote in message
news:0a5801c3416e$e6279e70$a501280a@phx.gbl...
Merci mais sfile c'est le nom du fichier ou le nom du
fichier avec le chemin?
Merci d'avance
-----Message d'origine-----
Salut Tati! :O)
essaie ceci :
'***
Private Function FileExists(ByRef sFile As String) As
Boolean
On Error Resume Next
FileExists = (GetAttr(sFile) And vbDirectory) = 0
End Function
'***
tu peux aussi tester l'existance d'un dossier comme ceci :
'***
Private Function FolderExists(ByRef sFolder As String) As
Boolean
On Error Resume Next
FolderExists = (GetAttr(sFolder) And vbDirectory) vbDirectory
End Function
'***
"Tati" <sebastanguy@aol.com> wrote in message
news:04da01c34167$acae3200$a001280a@phx.gbl...
Comment faire pour tester l'existence d'un fichier
installé sur un réseau?
c'est le nom du fichier *avec* chemin. Si tu ne le spécifie pas, je ~crois~ qu'il regardera dans le "current directory" qui peut être obtenu par CurDir$() et modifier par ChDir.
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/ http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/ "tati" wrote in message news:0a5801c3416e$e6279e70$ Merci mais sfile c'est le nom du fichier ou le nom du fichier avec le chemin?
Merci d'avance
-----Message d'origine----- Salut Tati! :O)
essaie ceci : '*** Private Function FileExists(ByRef sFile As String) As
Boolean
On Error Resume Next FileExists = (GetAttr(sFile) And vbDirectory) = 0 End Function '***
tu peux aussi tester l'existance d'un dossier comme ceci : '*** Private Function FolderExists(ByRef sFolder As String) As
Boolean
On Error Resume Next FolderExists = (GetAttr(sFolder) And vbDirectory) vbDirectory End Function '***
