begin process at 2012 02 13 08:05:04
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Fichier / Disque

 > EXISTEFICHIER : SOLUTION ALTERNATIVE

EXISTEFICHIER : SOLUTION ALTERNATIVE


 Information sur la source

Note :
2 / 10 - par 2 personnes
2,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichier / Disque Classé sous :existence, fichier, test Niveau :Débutant Date de création :18/12/2001 Date de mise à jour :21/08/2006 15:49:40 Vu :3 689

Auteur : ToasTy62

Ecrire un message privé
Site perso
Commentaire sur cette source (12)
Ajouter un commentaire et/ou une note

 Description

bon je recommence :
voila un code + court et simple ke ce ke g vu avt !
voila c tt !!! ;o)

Source

  • 'Teste si un fichier existe
  • Function ExisteFichier(file As String) As Boolean
  • On Error GoTo erreur
  • FileLen file
  • ExisteFichier = True
  • Exit Function
  • erreur:
  • ExisteFichier = False
  • End Function
'Teste si un fichier existe
Function ExisteFichier(file As String) As Boolean
    On Error GoTo erreur
    FileLen file
    ExisteFichier = True
    Exit Function
erreur:
    ExisteFichier = False
End Function 

 Conclusion

alors, il est pas court et rapide ce code ?
si qqun a encore + rapide, n'hesitez pas !!!


 Historique

21 août 2006 15:49:41 :
titre insultant

 Sources du même auteur

Source avec Zip Source avec une capture SWATCH : INTERNET TIME
Source avec Zip TOASTIRC : LES SOURCES !
Source avec Zip AUTO-INSTALLEUR ! NOUVELLE VERSION BEAUCOUP + RAPIDE !!!
Source avec Zip CALCUL / EXPRESSION
Source avec Zip COUPER-RECOLLER DES FICHIERS

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) MODIFIER LES EXTENSION DES FICHIERS par okosa
ROUTINE DIR RÉCURSIVE POUR OBTENIR LA LISTE DE TOUS LES FICH... par kerisolde
Source avec Zip Source avec une capture FILE,SECURITY,FICHIER par okosa
Source avec Zip Source avec une capture Source .NET (Dotnet) PATCHEUR DE FICHIER par tototh
Source avec Zip Source avec une capture LECTURE DES INFORMATIONS DES DISQUES COMPOSANT UN ENSEMBLE R... par jack

 Sources en rapport avec celle ci

EXISTENCE DOSSIER / FICHIER par Keul
VÉRIFIER LA PRÉSENCE D'UN FICHIER (SIMPLE À COMPRENDRE) par Fert
VÉRIFIER L'EXISTENCE D'UN FICHIER par theo
VÉRIFICATION DE LA PRÉSENCE D'UN FICHIER par Ares
TESTER LA PRESENCE D'UN FICHIER par Nix

Commentaires et avis

Commentaire de Kheops le 18/12/2001 20:52:37

Merci d'avoir apporter ce code à la communauté . Pourtant je te demanderai de respecter le travail des autres et de ne pas écrire de tels mots dans tes commentaires . Merci beaucoup

Commentaire de logisim le 18/12/2001 21:18:04

On peut faire ça en une ligne avec un API mais je ne sais plus lequel...

Commentaire de ZTPdiffusion le 18/12/2001 23:18:44

C'est vrai avec l'API suivante :

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

Commentaire de Nox le 19/12/2001 04:05:05

mwais... yen  a dejas sur le site mais celle la est vrément bien!

Commentaire de thrakkazz2000 le 19/12/2001 09:42:14

Et tu penses vraiment que faire une gestion d'erreur c'est mieux ? Pfuuu... cherche plutot à résoudre ton problème quand tu en rencontres plutot que de jouer au gars qui ne comprend rien à ce qui se passe et qui cache son incompétence derrière un pseudo code qu'il croit innovateur. Si tu n'avais pas été aussi méprisant envers les autres "codeurs" je ne t'aurai pas répondu mais là tu le mérites

Commentaire de fou volant13 le 19/12/2001 16:17:58

Vraiment, mettre une merde comme ca et dire que les autres programmeurs sont des crétins (c méchamment sous-entendu), ben faut oser!!!
Dis-moi, essaie donc de tester un fichier sur le lecteur a: quand ya pas de diskette.
Ho miracle il existe.
Vraiment a chier ton code
1/10

Commentaire de ToasTy62 le 19/12/2001 17:40:23

lol merci pr ce chaleureux accueil !
qd a la gestion des erreurs, autant utiliser ce ki existe, c fait pr ca !!!
ah pis thx pr l'api

Commentaire de shivan le 20/12/2001 18:38:22

ouais mais les erreur, en prog, meme sous vb, fo en avoir le moins possible, pas les utiliser... enfin voila koi... un code en 3 lignes c bien, mais utiliser une api et gérer ses erreurs c mieux !
$hîv@n

Commentaire de Stef le 28/12/2001 01:20:27

Encore plus court...

utilise dir...

public fonction Existe (chemin_fichier) as boolean
if Dir (chemin_fichier) <> 0 then Existe=true
end function

Commentaire de luko007 le 20/11/2002 23:13:47

1- t'as légèrement plus rapide et plus court en suivant TA propre méthode :

Function ExisteFichier3(file As String) As Boolean
        On Error GoTo erreur
        FileLen file
        ExisteFichier3 = True
erreur:
End Function

2 - t'as plus 4 x court (pas besoin de fonction) avec :

if dir$(file)=file then fichier trouvé...

dans ta fonction, c'est plus lent que ta méthode, ok.
Mais comme avec dir$, tu n'as plus besoin d'utiliser de fonction (car ca prend une ligne au lieu de ton usine à gaz), y'a des chances que ce soit également plus rapide

3 - avec PathFileExists, tu as beaucoup plus rapide et plus court

4 - avec l'expérience, on sait que d'autres peuvent toujours trouver une meilleure solution que celle qu'on a trouvé (donc faut rester humble)

5 - T'as donc tout faux : la prochaine fois au lieu d'encombrer le site avec des remarques inutiles et présomptueuses, oublie pas que, des informaticiens, y en a parfois qui consultent aussi ce site...

NB: on utilise les on error seulement quand on ne controle pas tous les dysfonctionnements qui peuvent se produire (impressions, lancement fonctionnalité externe, ...) et jamais de manière abusive : Sur un gros logiciel, les on error à tire-larigo c'est ingérable par ex.

Commentaire de mb0 le 05/03/2003 19:44:40

je propose le code ci-dessous pour apaiser les passions.

bon santé à tous
michel


Function ExisteFichier%(file$)
'// n° thème/catégorie/action: a1.1.1
'// description: permet de vérifier l'existence d'un fichier même s'il est caché
'// entrées:       nom du fichier (!!!si chaine vide ==> erreur)
'// sorties:         0=absence; -1=présent; -2=présent+caché
'// création:  04/03/2003
'// version: 1i
'// avancement: 1
'// auteur: Michel Boussekeyt
'// copyright: libre d'utilisation
'// liens:
'// remarques: valable en VB 16 ou 32 bits
'// n° thème/catégorie/action: a1.1.1
'//
On Local Error Resume Next
Dim i%
i% = ((Dir$(file, 2) <> "") And (Dir$(file) = "")) + (Dir$(file, 2) <> "")
ExisteFichier = (i% And (Err = 0))
End Function

Commentaire de BOBTHEJEDI le 10/11/2005 21:00:34

Voila quelqu'un d'intéligent simple et efficace

les autres on pas compris que la fonction dir() est une fonction de M.....

merci

Bob

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

test d'existence d'un fichier [ par f56bre ] Salut Comment tester l'existence d'un fichier avant de le supprimer? (ceci pour eviter tout message d''erreur) merci Existence du fichier [ par ALCHAN ] Comment tester l'existence d'un fichier executable "toto.exe" en C et non C++ ?Merci Test presence fichier [ par chipounet ] Bonjour,   Je cherche à tester, par une tâche de fond, 'arrivée d'un fichier sur un répertoire donné de mon disqu test l'existence d'un fichier sur serveur distant [ par valaidnew ] Bonjour à tous et toutes, Je sais comment tester l'existence d'un fichier sur le meme serveur mais en voulant simplement changer le path en url comp fichier joint [ par audklie ] hello jai un petit script comme ca: Set objEmail = CreateObject("CDO.Message")objEmail.From = "XXX"objEmail.To = "YYY"objEmail.Subject = "te Test ouverture fichier word [ par neophenix83 ] Bonjour, dans une macro excel, je viens copier des données d'un fichier word. Pour cela, j'ouvre mon fichier word. Seulement, ma macro plante si Définir un repertoire courant...help [ par bimbo777 ] Bonjour,Mon code renomme des fichiers qui sont présents ds e:test. Mon soucis est que j'aimerai aussi que ce renommage s'applique aussi aux sous dossi test existence d'une feuille [ par jeanluc065 ] Bonjour à toutes et tous, En access2002, catégorie débutant,   Je veux importer des fichiers .xls en vrac et j'utilise un code ( écrit par JMO ) qui v Code copie fichier [ par brainbass ] Bonjour,alors voila,je sai pas comment m'expliquer je vai faire au plus claire.quand j'ouvre "test.xls" avec un bloc note j'obtient un code si je copi


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,905 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales