Salut à tous....

J'ai trouvé un code pour ouvrir un fichier texte et le mettre dans un Listview.
Lorsque je démarre mon prog ca me dit toujous qu'il ne trouve aps le fichier texte.
J'ai copier mon fichier Texte dans mon répertoire de mon projet
...\Projects\DeviceApplication1\DeviceApplication1\Coord.txt
Bref c'est le répertoire ou j'ai les .vb, vbproj et vbproj.user etc...

Dans la fenêtre Solution Explorer j'ai fais clique droit sur le fichier Include form my Project
Et dans ses propriété j'ai mis Build Action Embedded Ressource
Et ca marche pas....
Je suis en compact Framework

Je vous annexe le code Si vous voyer l'erreur gênez-vous pas....
Merci d'avance

---

Imports System.IO

Public

Class frmCalcul

Dim n, m, o, p, maxi, rep, iLeC AsInteger
Dim newrub AsObject
Dim t(2000, 5), tb(500), Lec(250) AsString
Dim cb3, iTsEL, X AsBoolean
Dim pointage AsBoolean
Public AppPath AsString = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase)

---

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

pointage =

False
ReDim t(2000, 2)
Me.ComboBox1.Visible = True
Me.ListView1.CheckBoxes = False
Me.ListView1.Location = New System.Drawing.Point(8, 40)
Me.ListView1.Size = New System.Drawing.Size(220, 160)
Me.ComboBox1.Items.Add("...nouveau...")
Me.ListView1.Visible = True

Dim sr1 As StreamReader = New StreamReader(AppPath & "\coord.txt")
Dim art AsString
Dim p1, p2 AsInteger

n = 0
p1 = 0

Do
   art = sr1.ReadLine()
   If art = ""Then
      n = n - 1
   Else
      p2 = Len(art)
   For m = 1 To p2 - 1
      If Mid(art, m, 1) = " "Then p1 = m
   Next
      t(n, 0) = Mid(art, 1, p1 - 1)
      t(n, 1) = Mid(art, p1 + 1, p2 - p1)
      EndIf
   n = n + 1
   LoopUntil art IsNothing
sr1.Close()

Dim flag AsBoolean

For m = 0 To n - 1
art = t(m, 0)
flag = False
For o = 0 To m - 1
If art = t(o, 0) Then flag = True
Next
If flag = FalseThenMe.ComboBox1.Items.Add(art)
Next m
maxi = n - 1
Me.ListView1.Items.Clear()

EndSub

End

Class

Si c'est le chemin de l'executable que tu cherche à avoir, utilise plutot cette déclaration pour apppath :

    Public AppPath As String = Application.StartupPath

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

Ok cool mais ca me sort un message d'erreur
'StatupPath' is not a member of 'System.Windows.Forms.Application'

Je suis en Compact Framework, le prob vient de là ???

Merci

ce serait pas My.Application.StartupPath ?

Non, StartupPath n'est pas pris en charge par le .Net Compact Framework tout comme ExecutablePath d'ailleurs.

J'avais pas vérifier avant de répondre et je ne trouve pas l'équivalent.

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

Salut,

Après une petite recherche j'ai trouvé cette discussion http://www.vbfrance.com/codes/EQUIVALANT-APP-PATH-VB-NET_6438.aspx , qui donne plusieurs possibilités j'ai testé au boulot ça fonctionne mais je ne sais pas si ça sera bon avec le .net compact framework.

My

.Application.Info.DirectoryPath
ou
IO.Directory.GetCurrentDirectory()

bonjour

pour contrer l'erreur tu as :

Try

Catch ex As Exception

EndTrymais je crois que tu le sais