Vérification de presence.Résolu

Question

Bonjour à tous.
Comment peut on vérifier la présence d'un fichier au lancement d'une application ???
Je voudrais qu'au lancement de mon programme, ce dernier vérifie l'existence d'un fichier RTF. C'est possible ???
Merci d'avance.

cs_fauve · Accepted Answer

Salut,

Voici le code pour tester si un fichier existe :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

         If My.Computer.FileSystem.FileExists("C:\Indispensable.rtf") = False Then
            MsgBox("Le Fichier n'existe pas !!!", MsgBoxStyle.OkOnly)
        End If

    End Sub

End Class

(Coloration syntaxique automatique par Kenji)

N'oubliez pas d'accepter la réponse si elle a réglé votre problème

PCPT · Answer

salut,
vivi, ici

++
PCPT  [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Marneus73 · Answer

Ok merci
J'ai rentré ceci:

Function IsExist(ByVal file As String) As Boolean
        Return IO.File.Exists("C:\Documents and Settings\???\Bureau\g.txt")
    End Function

Mais comment fait on pour créer un événement à condition avec ceci, pour qu'un message s'affiche uniquement si le fichier est présent ? J'ai essayé, mais VB me dit que la fonction if ne peut pas apparaitre en dehors du corps d'une methode!

Renfield · Answer

"créer un événement à condition ..."

tu as du mal placer la fonction.

au chargement de ton appli, fais juste un truc dans le genre :

If IsExist("C:\Indispensable.rtf") = False Then
   '# Là, le traitement de ton choix
End If, ----
http://www.vbfrance.com/code.aspx?ID=41455

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Marneus73 · Answer

Salut
J'ai utilisé ton code et VB me dit que "IsExist" n'est pas déclaré !
J'ai ça:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If IsExist("C:\Indispensable.rtf") = False Then
        End If

    End Sub

Marneus73 · Answer

Comme d'habitude, rien à redire...
Sauf  Merci.

Vérification de presence.

6 réponses

Votre réponse

Discussions similaires