TESTER SI UN FICHIER EXISTE ( SIMPLE ET EFFICACE )
leneuf22
Messages postés156Date d'inscriptionsamedi 12 janvier 2002StatutMembreDernière intervention 4 mars 2003
-
19 juil. 2002 à 14:28
twayzan
Messages postés1Date d'inscriptionjeudi 2 avril 2009StatutMembreDernière intervention20 juin 2009
-
20 juin 2009 à 14:17
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
twayzan
Messages postés1Date d'inscriptionjeudi 2 avril 2009StatutMembreDernière intervention20 juin 2009 20 juin 2009 à 14:17
Merci Bcp c'est Génial y a rien à dire que brabo et merci
en Ms-Dos y a une fonction qui s'appelle Exist (Not exist) malheureusement ça marche pas en Vb
teste si fichier existe dans le répértoire En cours
If (dir(app.path & "\NomDeFichier.Extension")= "" then
msgbox "Le fichier n'existe pas ,Pensez à le creer"
else
msgbox " Le fichier existe est en supression..."
end if
Slt
le5ejumeau
Messages postés130Date d'inscriptionmardi 11 mars 2003StatutMembreDernière intervention 9 juillet 2009 18 avril 2007 à 15:35
salut, je sais que ca fait un petit moment que cette source existe mais :
- Dir est trés lent d'execution
- on ne peut utiliser ta méthode avec des chemins relatifs...
donc si on veut garder cette simplicité on peut utilisé :
Private Function FichierExiste(Chemin As String) As Boolean
On Error Resume Next
FileExists ((GetAttr(Chemin) And vbDirectory) 0)
End Function
voilà est bonne prog ...
cs_nereck
Messages postés3Date d'inscriptionjeudi 29 décembre 2005StatutMembreDernière intervention 7 juin 2006 12 sept. 2006 à 14:27
Comment déclare-t-on le chemin du répertoire que l'on veut examiner ??
avant ton script par Path = "chemin" ??
Help Me !
Thx
cs_cyriloo
Messages postés60Date d'inscriptiondimanche 20 novembre 2005StatutMembreDernière intervention12 septembre 2007 25 avril 2006 à 13:54
superbe
cs_buzzo
Messages postés29Date d'inscriptionjeudi 20 janvier 2005StatutMembreDernière intervention30 novembre 2006 7 avril 2006 à 19:06
Impec merci beaucoup
GarnetDiAlexandros
Messages postés55Date d'inscriptionmercredi 31 juillet 2002StatutMembreDernière intervention19 novembre 2004 23 sept. 2002 à 09:48
Parfait, rien à redire
RaptorX
Messages postés20Date d'inscriptiondimanche 24 mars 2002StatutMembreDernière intervention21 octobre 2003 24 juil. 2002 à 11:08
20 juin 2009 à 14:17
en Ms-Dos y a une fonction qui s'appelle Exist (Not exist) malheureusement ça marche pas en Vb
teste si fichier existe dans le répértoire En cours
If (dir(app.path & "\NomDeFichier.Extension")= "" then
msgbox "Le fichier n'existe pas ,Pensez à le creer"
else
msgbox " Le fichier existe est en supression..."
end if
Slt
18 avril 2007 à 15:35
- Dir est trés lent d'execution
- on ne peut utiliser ta méthode avec des chemins relatifs...
donc si on veut garder cette simplicité on peut utilisé :
Private Function FichierExiste(Chemin As String) As Boolean
On Error Resume Next
FileExists ((GetAttr(Chemin) And vbDirectory) 0)
End Function
voilà est bonne prog ...
12 sept. 2006 à 14:27
avant ton script par Path = "chemin" ??
Help Me !
Thx
25 avril 2006 à 13:54
7 avril 2006 à 19:06
23 sept. 2002 à 09:48
24 juil. 2002 à 11:08
Cette source t'aidera peut-etre: http://www.vbfrance.com/article.aspx?Val=5021
24 juil. 2002 à 08:14
21 juil. 2002 à 10:26
Dans le genre condensé, le code de logisim est plus efficace, désolé ;-)
21 juil. 2002 à 04:50
Fichier_ExisteIIF(Dir(Path ) "",true,false)
19 juil. 2002 à 18:44
19 juil. 2002 à 18:42
Public Function Fichier_Existe(Path As String) As Boolean
Fichier_Existe = (Dir(Path) <> "")
End Function
19 juil. 2002 à 14:44
++
19 juil. 2002 à 14:32
bonne prog!!
19 juil. 2002 à 14:28