Soucis avec File.exists

Version imprimable

Bonjour à tous,
j'essaie de tester la présence dans un repertoire de chemin de type locale de ce type

‪D:\Documents\test.pdf

File.exists me retourne toujours false

Le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
If DataGridView1.Rows.Count <> 0 Then
            For I As Long = 0 To DataGridView1.Rows.Count - 1
                Dim Lienfichier As String = DataGridView1.Rows(I).Cells(0).Value.ToString
 
                Dim test As Boolean = File.Exists(Lienfichier)
                If test = True Then
                    DataGridView1.Rows(I).Cells("ColLien").Value = True
                Else
                    DataGridView1.Rows(I).Cells("ColLien").Value = False
                End If
            Next
        End If

j'ai essayer la commande openread avec ce format de path mais ne fonctionne pas erreur de syntaxe du Path apparement ?

Cdt

Salut,
Il faut utiliser la classe FileInfo et la propriété Exists
Essaye comme ceci :

Code:

1
2
3
4
5
6
7
Dim FileInfoTest As New FileInfo((Lienfichier) 

                If FileInfoTest = True Then
                    DataGridView1.Rows(I).Cells("ColLien").Value = True
                Else
                    DataGridView1.Rows(I).Cells("ColLien").Value = False
                End If

01/03/2017, 11h41
jopopmk

Salut,

(je suppose que le fichier testé est censé existé)
as-tu essayé d'externaliser un simple File.Exists(@"‪D:\Documents\test.pdf"); pour voir si ça vient de là ou de ton implémentation ?
01/03/2017, 11h54
Ashireon

Bonjour,
Fileinfo ne me retourne pas un état boolean..

Qu'appelez vous externalisé ?

Merci
01/03/2017, 12h01
Ashireon

c'est fileinfotest.exists que je dois utilisé mais ca me retourne l'erreur suivante

Une exception non gérée du type 'System.NotSupportedException' s'est produite dans mscorlib.dll
Informations supplémentaires : Le format du chemin d'accès donné n'est pas pris en charge.

et le chemin c'est D:\Documents\test.pdf

je ne comprends pas ou est l'erreur de format?
01/03/2017, 12h03
jopopmk

Citation:

Envoyé par Ashireon

Qu'appelez vous externalisé ?

Tu vires la boucle, tu vires la lecture des valeurs dans le DGV ... tu vires tout et tu testes simplement la ligne qui est censée être exécutée (soit celle que j'ai mise plus haut). Un peu comme un test unitaire. Si ça retourne true c'est que l'algo est à mettre en cause, sinon c'est du côté dudit fichier qu'il faudra regarder.
01/03/2017, 12h26
Ashireon
Donc la ca me retourne True
Code:

1 2 3 Dim test As Boolean = File.Exists("D:\documents\test.pdf")
sans le @ car il n'en veut pas..

si je fais
Code:

1 2 3 Dim Lien As String = "D:\documents\test.pdf" Dim test As Boolean = File.Exists(Lien)
en chargeant une variable ça fonctionne
mais si la variable est chargé par le datagridview paf non fonctionne plus pourtant en mettant un Espion j'ai le même string pour le chemin du fichier
01/03/2017, 13h10
jopopmk

Désolé pour le @, c'est spécifique à C# (pour dire que les antislashes ne servent pas à échapper le char suivant).

Je vois que tu as fait du pas-à-pas pour voir la valeur de la chaine passée en paramètre (bonne initiative), par contre as-tu vérifié que le retour de Exists était réellement false ?
Une même fonction avec un même paramètre doit retourner le même résultat, il serait donc possible que ce soit ton DataGridView1.Rows(I).Cells("ColLien").Value = True qui ne fonctionne pas et qui t'induit en erreur.

Citation:

Envoyé par r.morel

Salut,
Il faut utiliser la classe FileInfo et la propriété Exists
Essaye comme ceci :

Code:

1
2
3
4
5
6
7
Dim FileInfoTest As New FileInfo((Lienfichier) 

                If FileInfoTest = True Then
                    DataGridView1.Rows(I).Cells("ColLien").Value = True
                Else
                    DataGridView1.Rows(I).Cells("ColLien").Value = False
                End If

:pastaper: J'avais oublier le .Exists :

Code:

1
2
3
4
5
6
7
Dim FileInfoTest As New FileInfo((Lienfichier) 

                If FileInfoTest.Exists = True Then
                    DataGridView1.Rows(I).Cells("ColLien").Value = True
                Else
                    DataGridView1.Rows(I).Cells("ColLien").Value = False
                End If

01/03/2017, 13h36
Ashireon

En fait j'ai fait un test en passant par une variable pour être sur que c'est File.exists le soucis

la variable ( Reflet de file.exists) est à False alors qu'elle devrait être à true

Sachant que les données transit de MySQL-->Connexion ODBC--->Dataset/Table---->Datgridview1

J'ai fais un test en lisant la datatable idem retour False...

GRrr
01/03/2017, 15h03
Ashireon
Que ce soit
Code:

1 2 Dim Test as boolean = file.exists(LienFichier)
ou
Code:

1 2 3 Dim Fileinfotest As New FileInfo(Lienfichier) Dim Test As Boolean = Fileinfotest.Exists
J'ai le même bug Lienfichier n'est pas au bon format pourtant la valeur de la variable est bonne
a partir du fait que ca soit une donnée provenant de la sgbd via datatable ou gridview ce n'est plus bon
alors que si je charge une variable avec le chemin d'accés c'est ok
01/03/2017, 15h21
ebastien

Bonjour,

Ca sent le caractère pourri ça. Tu peux tester de comparer le chemin que tu lis en base avec le chemin en dur et voir s'ils sont égaux (ce qui m'étonnerait). Si ce n'est pas le cas, tu peux visualiser ta chaine de caractère en Hexa pour voir d'où vient la différence.
01/03/2017, 15h23
Ashireon
Je viens de faire Strcompare
Code:

1 2 Dim val As Integer = StrComp(Lienfichier, "D:\documents\test.pdf")
Val vaut 1 c'est dire que "D:\documents\test.pdf" préce en alphanumerique la variable
donc elles ne sont pas égales. Sinon j'aurai eu 0 comme retour
peut on détérminer le caractère qui foire?

j'ai réussi a résoudre le problème en virant le premier caractere sortant du datagridview.
J'ai un caractère spéciale non affichable apparemment

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Lienfichier = Mid(Lienfichier, 2, Lienfichier.Length - 1)
 
Dim Fileinfotest As New FileInfo(Lienfichier)
                    Dim Test As Boolean = Fileinfotest.Exists
 
                    If Test = True Then
                        DataGridView1.Rows(I).Cells("ColLien").Value = True
                    Else
                        DataGridView1.Rows(I).Cells("ColLien").Value = False
                    End If
                Next

Du coup la çà fonctionne certainement un caractère spécial provenant de la base de donnée enfin je suppose

01/03/2017, 16h52
ebastien

Evite Mid :

Code:

Lienfichier = Lienfichier.SubString(1)

Maintenant si c'est toi qui renseigne la base, le mieux serait de savoir pourquoi ce caractère est là plutôt que de contourner le problème ;)
01/03/2017, 18h51
Ashireon

C'est une base de données MySQl local pour mes essais tests etc..;
je remplis des valeurs via Mysql Workbench , j'ai vérifié dans la table de la base de données il n y a rien au premier caractère.

Je viens de changer le type de la colonne de la base de donnée qui était en Varchar en Longtext comme type depuis ca marche.
Je suis pas un pro de mysql mais c'est ce que j'ai trouve de plus facile a mettre en oeuvre pour des essais
06/03/2017, 11h00
jopopmk

Re,

juste par curiosité : quel était le caractère en première position qui posait problème ?
La(les) valeur(s) hexa est (sont) la (les) bienvenue(s).
06/03/2017, 15h36
Ashireon

Aucune idee
Je n'ai pas pris le temps de chercher dans le détail.
Cdt

Fuseau horaire GMT +2. Il est actuellement 21h10.