La fonction "Exists" ne fonctionne pas avec un StringRésolu

Question

Bonsoir, 

cette question paraît simple pour n'importe qui :
Si on utilise une OpenFileDialog ça fonctionne sans aucun problème :
Imports System.IOImports System.IO.FilePublic Class Form1    Private Chemin As New OpenFileDialog    Private Fichier As String    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        If Chemin.ShowDialog = Windows.Forms.DialogResult.OK Then            Fichier = Chemin.FileName            If Exists(Fichier) Then                MsgBox("Le fichier existe")            Else                MsgBox("Le fichier n'existe pas")            End If        End IfEnd Class
Dans mon cas je veux mettre le chemin d'accès directement comme ça :
Imports System.IOImports System.IO.FilePublic Class Form1    Private Chemin As New OpenFileDialog    Private Fichier As String ="‪D:\ Document\Calcul.xlsm"    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         If Exists(Fichier) Then             MsgBox("Le fichier existe")         Else             MsgBox("Le fichier n'existe pas")         End IfEnd Class
mais là ça ne fonctionne pas et j'arrive pas à comprendre pourquoi
le fichier existe vraiment, j'ai récupérer le chemin d'accès à partir de : propriété -> sécurité -> nom de l'objet 
merci d'avance pour votre aide

vb95 · Answer

Bonsoir
C'est normal l'espace devant le D de Document dans le chemin du fichier ? 
Devant Exists il faut un point :  .Exists et le File va devant Exists

On importe System.IO et on utilise directement la classe File

Imports System.IOPublic Class Form1    Private Chemin As New OpenFileDialog    Private Fichier As String ="‪D:\Document\Calcul.xlsm"    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         If File.Exists(Fichier) Then             MsgBox("Le fichier existe")         Else             MsgBox("Le fichier n'existe pas")         End IfEnd Class

Karin.code · Answer

Bonsoir vb95,
merci de m'avoir répondu
j'ai fait copier-coller de ton compte (tu as oublié End Sub avant End Class)
ça ne fonctionne toujours pas

J'ai essayé ça :
   Private Chemin As New OpenFileDialogPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        If Chemin.ShowDialog = Windows.Forms.DialogResult.OK Then            TextBox1.Text = Chemin.FileName        End If    End Sub
Je démarre le débogage,
Je clique sur le Bouton2 et je choisi le fichier Calcul alors le chemin d’accès s'affiche dans la TextBox, je copie le chemin, après j’arrête le débogage 
je colle le chemin dans Private Fichier As String = ""
je relance le débogage, en cliquant sur le Bouton1 le message qui s'affiche est : "le Fichier existe"
mais quand je met le chemin obtenu à partir de : propriété -> sécurité -> nom de l'objet 
le message qui s'affiche est : "le Fichier n'existe pas"
je ne vois pas la différence entre : 
Chemin obtenu à partir d'une OpenFileDialog : "D:\Document\Calcul.xlsm"
Chemin obtenu à partir de propriété -> sécurité -> nom de l'objet : "‪D:\Document\Calcul.xlsm"

Whismeril · Answer

Bonjour

File.Exists fonctionne parfaitement avec une string, la preuve est que Chemin.FileName est une string.
D'autre part, j'ai de nombreuse fois écrit un chemin dans le code et ça marche aussi.

Je pense que le problème vient du copier/coller. J'ai déjà vu, lors d'un copier/coller depuis internet qu'un caractère invisible se glisse dans la string, et donc qu'elle ne soit pas rigoureusement égale à ce que l'on cherche.
Pour valider, ou pas, cette hypothèse, peux tu effacer "‪D:\Document\Calcul.xlsm" et le réécrire à la main.

cs_Le Pivert · Answer

Bonjour a tous,

Effectivement j'ai essayé et Karin.code a raison, de cette manière cela ne fonctionne pas! 

j'ai donc trouvé cela qui fonctionne parfaitement:

  Dim curFile As String = "‪D:\Document\Calcul.xlsm"
        MsgBox(If(File.Exists(curFile), "File exists.", "File does not exist."))

 https://msdn.microsoft.com/fr-fr/library/system.io.file.exists(v=vs.110).aspx

Je viens de réessayer la 1ère version, c'est la variable Fichier qui n'est pas reconnu!

 Dim curFile As String = "D:\Document\Calcul.xlsm"
       If File.Exists(curFile) Then
            MsgBox("Le fichier existe")
        Else
            MsgBox("Le fichier n'existe pas")
        End If

Fichier est un nom réservé certainement!
 
@+ Le Pivert

vb95 · Answer

bonjour à tous
cs_Le Pivert : tu dis que ton code fonctionne 
voici le mien et la chaine "D:\MDP.txt a été rentrée manuellement au clavier et le fichier existe ( la preuve sur l'image jointe )
si je lance le projet cela m'affiche que le fichier n'existe pas
C'est moi qui "déconne" ou c'est Windows ?
L'hypothèse de Whismeril tomberait donc à l'eau  ?



Imports System.IOPublic Class Form1    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        Dim curFile As String = "‪D:\MDP.txt"        MsgBox(If(File.Exists(curFile), "File exists.", "File does not exist."))    End SubEnd Class

Karin.code · Answer

Bonjour tout le monde,
tout d'abord merci pour votre aide j'ai appris beaucoup de choses en lisant vos réponses
comme l'a dit vb95 les deux fonctions ne fonctionne pas (si on fait copier-coller du chemin d'accès ):
Public Class Form1    Dim curFile As String = "D:\Document\Calcul.xlsm"    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        If IO.File.Exists(curFile) Then            MsgBox("Le fichier existe")        Else            MsgBox("Le fichier n'existe pas")        End If    End SubEnd Class

Public Class Form1    Dim curFile As String = "D:\Document\Calcul.xlsm"    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        MsgBox(If(IO.File.Exists(curFile), "Le fichier existe", "Le fichier n'existe pas"))    End SubEnd Class

et comme l'a dit Whismeril si on le réécrire à la main les deux fonctions marche sans aucun problème :

cs_ShayW · Answer

Bonjour Karin.code

mais quand je met le chemin obtenu à partir de : propriété -> sécurité -> nom de l'objet 
le message qui s'affiche est : "le Fichier n'existe pas"

j'ai essayé de reconstituer et cela dépend comment tu marques le nom
de l'objet avec la souris  à vue d'oeil on ne ne voit pas la différence
 lance ton code  et accède 
     propriété -> sécurité -> nom de l'objet 


    Nom de l'objet  D:\Document\Calcul.xlsm 

Si tu places le curseur sur la lettre D et commence à marquer 
le reste et copie dans le textbox  le fichier exists

mais si tu places le curseur à gauche de la lettre D et commence à marquer  le reste et copie dans le textbox  le fichier n'existe pas
parcequ'il contient un caractère de plus

La fonction "Exists" ne fonctionne pas avec un String

7 réponses

Votre réponse

Discussions similaires