Verifier si un fichier existe

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 274 fois - Téléchargée 42 fois

Contenu du snippet

FileExists prend en paramètre le nom avec le chemin complet du fichier, renvoie True en cas de présence et False si le fichier n'existe pas...

Ce code n'est pas de moi...

Source / Exemple :


Option Explicit

' Publié par 69VobD3 (DivX-Paradise.net)

Public Const gstrQUOTE$ = """"
Public Const gstrSEP_DIR$ = "\"

Public Function FileExists(ByVal strPathName As String) As Boolean
    Dim intFileNum As Integer
    On Error Resume Next
    strPathName = strUnQuoteString(strPathName)
    If Right$(strPathName, 1) = gstrSEP_DIR Then
        strPathName = Left$(strPathName, Len(strPathName) - 1)
    End If
    intFileNum = FreeFile
    Open strPathName For Input As intFileNum
    FileExists = (Err.Number = 0)
    Close intFileNum
    Err.Clear
End Function

Public Function strUnQuoteString(ByVal strQuotedString As String)
    strQuotedString = Trim$(strQuotedString)
    If Mid$(strQuotedString, 1, 1) = gstrQUOTE Then
        If Right$(strQuotedString, 1) = gstrQUOTE Then
            strQuotedString = Mid$(strQuotedString, 2, _
            Len(strQuotedString) - 2)
        End If
    End If
    strUnQuoteString = strQuotedString
End Function

A voir également

Ajouter un commentaire

Commentaires

bobjay
Messages postés
66
Date d'inscription
mercredi 19 mai 2004
Statut
Membre
Dernière intervention
1 avril 2007

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

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
2671
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
1
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

(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

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...)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.