Discussion :

[Eratos]

Bonjour à tous,

Les lignes de codes écrites ci-dessous ont ce sens :
si le fichier a été trouvé, alors... la fenêtre FileFound s'affiche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Button_Click(sender As Object, e As RoutedEventArgs) Handles Button.Click
        If My.Computer.FileSystem.FileExists("Path\Nom du fichier") Then
            FenêtreFileFound.ShowDialog()

Mais, ce que je recherche, ce sont des lignes de codes ayant ce sens :
si le fichier n'a pas été trouvé, alors... le fenêtre FileNotFound s'affiche.

Existe t-il une fonction permettant de réaliser cela, si oui, pourriez-vous me l'écrire ?

Merci de votre collaboration.

[Sehnsucht]

Opérateur Not

[Phil Rob]

Ben oui ..., Sehnsucht a déjà répondu : If NOT My.Computer.FileSystem.....

Mais si je réponds à ton message, c'est uniquement pour te suggérer de ne pas utiliser d'accentués dans les mots que tu crées quand tu programmes : FenêtreFileFound.
Pour les noms de variables, de fonctions, de procédures, de classes, ... : Uniquement des caractères alphabétiques non accentués, des chiffres et le underscore, et rien d'autre.

[Eratos]

Ben oui ..., Sehnsucht a déjà répondu : If NOT My.Computer.FileSystem.....

Mais si je réponds à ton message, c'est uniquement pour te suggérer de ne pas utiliser d'accentués dans les mots que tu crées quand tu programmes : FenêtreFileFound.
Pour les noms de variables, de fonctions, de procédures, de classes, ... : Uniquement des caractères alphabétiques non accentués, des chiffres et le underscore, et rien d'autre.

Merci du renseignement.

Sehnsucht a répondu ? mille excuses, j'avais pas vu.

D'après ce que vous me dites, je dois utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If NOT My.Computer.FileSystem.FileExist(

Opérateur Not

Bonjour, Sehnsucht. Merci pour le lien.

Donc, si je comprends bien, le code ci-dessous devrait fonctionner.
Avant d'essayer, dis-moi si j'ai fait une erreur, et merci pour ta collaboration.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Button_Click(sender As Object, e As RoutedEventArgs) Handles Button.Click
        If Not My.Computer.FileSystem.FileExists("Path\Nom du fichier") Then
            FenetreFileNotFound.ShowDialog()

[Eratos]

Opérateur Not

J'ai essayé le code ci-dessous, mais cela ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Button_Click(sender As Object, e As RoutedEventArgs) Handles Button.Click
        Dim NomFich As String
        NomFich = Dir ("Path" & "Nom du Fichier")
        If NomFich = "" Then
            FenetreFileNotFound.ShowDialog()

Je ne sais pas.

[ZenZiTone]

Avant d'essayer, dis-moi si j'ai fait une erreur, et merci pour ta collaboration.

Euh.. essayer ne prend pas beaucoup de temps tu sais.. Juste le temps d'exécution en générale

Au passage, un coup on voit FenetreFileFound et le coup d'après on voit FenetreFileNotFound... Tu souhaites afficher une fenêtre en cas de fichier existant et une autre en cas de fichier non existant?

[Eratos]

Bonjour, ZenZitone.
Tu as raison, et bravo pour la remarque, je viens de corriger l'erreur : c'est bien FenetreFileNotFound.
Merci, pour ton œil averti.

[Eratos]

Bonjour,
J'aimerais remercier Sehnsucht de m'avoir alloué un peu de son temps, afin de me communiquer une précieuse réponse.
Également Phil Rob et ZenZitrone pour leur pertinence. Merci à vous trois.
Ératos.