Sujet Précédent Sujet Suivant

EXISTENCE DOSSIER / FICHIER

cs_manFIRE Messages postés 13 Date d'inscription mercredi 25 décembre 2002 Statut Membre Dernière intervention 26 avril 2004 - 9 oct. 2003 à 23:00
CrossHair Messages postés 9 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 13 octobre 2009 - 9 oct. 2009 à 15:20

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4225-existence-dossier-fichier

CrossHair Messages postés 9 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 13 octobre 2009
9 oct. 2009 à 15:20

En monoposte peut-être ! mais Clair, court, conci, efficace et applicable en vba.
Merci.

cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 2
12 janv. 2009 à 03:26

Ça plante. Normal ...

Erreur 52 (Bad file name or number).

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
11 janv. 2009 à 12:58

Dir$, j'aime pas...

pas clair ce que ca renvoie, mais surtout, ca plante avec les chemins reseaux inexistants.

testes avec un \\serveur_manquant\crash

cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 2
11 janv. 2009 à 01:56

Oui. Un simple Dir$() lol

Sinon l'API GetFileAttributes semble fonctionner elle.

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
10 janv. 2009 à 07:18

étrange, j'ai rien a déclarer de mal ou manquant sous vista avec vb6...

tu aurais du code a tester ?

cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 2
10 janv. 2009 à 01:45

Je viens de tomber sur un cas étrange. Dir$() et les API FindFirstFile ne fonctionnent apparemment pas sous Vista. Le programme une fois compilé s'exécutera parfaitement sous XP mais sous Vista False est toujours trouvé. Une idée ?

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
19 mars 2008 à 16:24

non, Opala, comme tu le dit, c'est l'artillerie lourde: on ne passe pas par FSO en VB6, point barre.

tester l'extistence via Dir$ est du suicide, comme Opala le fait remarquer, Dir$ plante en réseau si le chemin n'existe pas.

on peux passer par les API FindFirstFile ou via GetFileAttributes:

http://www.codyx.org/snippet_savoir-si-fichier-existe_65.aspx#208

victor110 Messages postés 86 Date d'inscription vendredi 20 octobre 2006 Statut Membre Dernière intervention 13 mai 2010
19 mars 2008 à 16:14

merci pour ce code simple mais très utile

julio010 Messages postés 1 Date d'inscription mercredi 9 janvier 2008 Statut Membre Dernière intervention 23 janvier 2008
23 janv. 2008 à 15:45

excellent j'ai cherché pendant des heures pour trouver comment faire! Merci beaucoup

pulpul74 Messages postés 77 Date d'inscription jeudi 11 octobre 2007 Statut Membre Dernière intervention 27 septembre 2010
6 déc. 2007 à 09:14

Sincerement merci moi aussi ca m'aide bien, surtout que j'ai cherché aussi pas mal et que je ne trouvais pas le moyen de tester un dossier. merci beaucoup

couteau7 Messages postés 24 Date d'inscription jeudi 27 avril 2006 Statut Membre Dernière intervention 23 juin 2007 1
30 mars 2007 à 20:47

Alors la bravo merci pour se code car j'ai chercher depuis 3 heures
Encor merci
Note 10/10

cs_opala Messages postés 34 Date d'inscription jeudi 9 octobre 2003 Statut Membre Dernière intervention 19 novembre 2007
13 juin 2006 à 09:48

J'ai crée ma propre fonction avec le FileSystemObject. C'est plus bourrin, car on sort l'artillerie lourde, mais ca marche avec les chemins réseau

'Fonction qui retourne True si szPath existe, ou False s'il n'existe pas
Public Function IsDirExist(szPath As String) As Boolean
On Error GoTo IsNotDir
Dim fso As FileSystemObject, dossier As Folder
Set fso = New FileSystemObject
Set dossier = fso.GetFolder(szPath)
Set fso = Nothing
Set dossier = Nothing
IsDirExist = True
Exit Function
'GetFolder entraine une exception si le répertoire n'existe pas
IsNotDir:
IsDirExist = False
MsgBox szPath & " : " & Err.Description, vbCritical
Set fso = Nothing
End Function

cs_opala Messages postés 34 Date d'inscription jeudi 9 octobre 2003 Statut Membre Dernière intervention 19 novembre 2007
13 juin 2006 à 09:04

je remonte ce topic.

If Dir$("\\192.10.10.10\rep_partage", vbDirectory) = vbNullString Then

Dir$ ne matche pas avec des chemin réseau. Quelqu'un aurait une astuce pour contourner ce problème?

J'aimerai que mon appli marche sans pour autant devoir monter un lecteur réseau pour associer le répertoire "rep_partage"

FLYeRNeT Messages postés 26 Date d'inscription mardi 21 novembre 2000 Statut Membre Dernière intervention 17 novembre 2007
2 mars 2006 à 10:17

ça marche !
merci ! ;)

bubbathemaster Messages postés 339 Date d'inscription dimanche 26 janvier 2003 Statut Membre Dernière intervention 25 mars 2009 4
27 oct. 2003 à 13:52

très utile :p

cs_manFIRE Messages postés 13 Date d'inscription mercredi 25 décembre 2002 Statut Membre Dernière intervention 26 avril 2004
9 oct. 2003 à 23:00

Merci Bcp j'en avais Besoin !! 10/10

Discussions similaires

lister un dossier (différence entre fichier et dossier)

logiciel pour lire un fichier .class

Ouvrir un fichier java

liste deroulante relier à un dossier...

Lire informations fichier class dans un programme java

Votre réponse

Discussions similaires