Test existance fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 369 fois - Téléchargée 39 fois

Contenu du snippet

Petite fonctions rapides qui montrent comment verifier l'existance d'un fichier ou d'un dossier

Utilisation :
if (DossierExiste ( "c:\Winnt\" ) ) then ...

if (fichierExiste ("Para.ini")) then ...
ou
if (FichierExiste ("c:\config.sys")) then ...

Source / Exemple :


Public Function FichierExiste(ByVal Nom As String) As Boolean
On Error Resume Next
    Dim attrib As Integer
    
    attrib = GetAttr(Nom)
    If (Err <> 0) Then
        FichierExiste = False
    Else
        If ((attrib And vbDirectory) = vbDirectory) Then
            FichierExiste = False
        Else
            FichierExiste = True
        End If
    End If
End Function

Public Function DossierExiste(ByVal Nom As String) As Boolean
On Error Resume Next
    Dim Tmp As String
    If (Right$(Nom, 1) = "\") Then
        Tmp = Mid$(Nom, 1, Len(Nom) - 1)
    Else
        Tmp = Nom
    End If
    
    attrib = GetAttr(Nom)
    If (Err <> 0) Then
        DossierExiste = False
    Else
        If ((attrib And vbDirectory) = vbDirectory) Then
            DossierExiste = True
        Else
            DossierExiste = False
        End If
    End If
End Function

Conclusion :


Une classe de gestion des fichier (Droits NTFS, Existance , copie, ...) est en cours de développement.

En attendant Bon Code...

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de cs_Nox

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.