Καλησπέρα κανω το εξής..

όπου p είναι fullpath me txt file px 

p="e:\file.txt"

 Dim fs = New FileStream(p, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
 'declaring a FileStream to open the file named file.doc with access mode of reading


 Dim d1 As New StreamReader(fs)    ---<<<  ΣΕ ΑΥΤΟ ΤΟ ΣΗΜΕΙΟ μου βγαζει το error
Overload resolution failed because no accessible 'New' can be called without a narrowing conversion

Αλλαξε το

 Dim fs = New FileStream(p, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)

σε


 Dim fs as New FileStream(p, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)


Δηλαδή το = με AS

νομίζω ότι 8α σου λύσει το πρόβλημα.

---

-------------------------------
Κ. Γιαγιάς

Θα ήθελα να είμαι μέσα στην φωτογραφία και όχι εδώ!!!!

http://beastie06.wordpress.com

Και να μαντέψω ότι έχεις αφήσει το Option Strict Off? Διαφορετικά δεν θα σε άφηνε ποτέ να κάνεις compile την πρώτη γραμμή. Έτσι όπως έχεις γράψει τον κώδικα, έχεις δηλώσει την fs As Object. Δεν υπάρχει κανένας λόγος να έχεις το Option Strict Off, εκτός και αν θέλεις να αντιμετωπίζεις τέτοια bug συχνά ... ή να τρέξεις προβληματικό κώδικα VB6 χωρίς να ξαναγράψεις τα προβληματικά κομμάτια.

---

Παναγιώτης Καναβός, Freelancer
Twitter: http://www.twitter.com/pkanavos