VERIFIER SI UN FICHIER EXISTE

celiphane Messages postés 466 Date d'inscription samedi 16 février 2002 Statut Membre Dernière intervention 20 avril 2007 - 1 juil. 2002 à 16:08
bobjay Messages postés 66 Date d'inscription mercredi 19 mai 2004 Statut Membre Dernière intervention 1 avril 2007 - 21 juil. 2006 à 17:03
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/3844-verifier-si-un-fichier-existe

bobjay Messages postés 66 Date d'inscription mercredi 19 mai 2004 Statut Membre Dernière intervention 1 avril 2007
21 juil. 2006 à 17:03
LOGISIM, il aurait fallu préciser pour les débutants que ta déclaration de fonction est à placer dans un module, cette syntaxe étant refusée dans une form (y'en a qui connaissent pas les modules et qui déclarent tout dans les forms).

En tout cas, merci pour ta contribution ;)

@+
logisim Messages postés 49 Date d'inscription mardi 8 mai 2001 Statut Membre Dernière intervention 14 août 2004
2 juil. 2002 à 18:09
C'est pas plus simple d'utiliser l'API PathFileExists ???

Déclaration : Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

Retourne 0 si le fichier n'existe pas.
DeAtHCrAsH Messages postés 2670 Date d'inscription vendredi 25 janvier 2002 Statut Membre Dernière intervention 6 février 2013
1 juil. 2002 à 23:16
Salut,
Ca serai pas plus simple d'utiliser la fonction Dir qui est incluse dans VB ?
par contre je sais pas si elle exsite dans tte les versions de VB...
celiphane Messages postés 466 Date d'inscription samedi 16 février 2002 Statut Membre Dernière intervention 20 avril 2007
1 juil. 2002 à 16:11
(ha si : remplacez le "exit sub" par un "exit function"
celiphane Messages postés 466 Date d'inscription samedi 16 février 2002 Statut Membre Dernière intervention 20 avril 2007
1 juil. 2002 à 16:08
Ca ne serait pas moins bordélique d'utiliser un code du genre :

Function FileExists(ch as string) as boolean
on error goto fichErreur

FileLen ch
FileExists=true

exit sub
FichErreur:
err.clear
FileExists=false

end function

Non ???
Je sais pas je propose hein, je viens juste de lire le nom de la source, d'apercevoir la longueur du code proposé et il m'est naturellement venu à l'esprit de tapoter ce code, je ne l'ai pas testé bien sûr, mais bon je vois pas pourquoi il marcherait pas...
Allez @+, et essayer plutôt de créer vos codes pour qu'ils fassent ce que VOUS VOULEZ plutôt que de pomper des codes barbares faisant entre autres ce que VOUS VOULIEZ... (j'm'comprends...)
Rejoignez-nous