سلام دوستان من با وی بی دات نت یک برنامه نوشتم که تو ویندوز ایکس پی درست کار میکنه ولی تو ویندوز سون مشکل داره و خطا میده من میام اول برنامه چک میکنم که یک فایل متنی در کنار فایل اجرایی برنامه هست یا نه که اگر بودبازش کنم ولی تو ویندوز سون با اینکه فایل کنار فایل اجرایی هست در کمال تعجب پیام میده که نتونسته اون فایل را از ادرس مورد نظر پیدا کنه!!! در حالی که وقتی که هنوز از برنامه فایل ستاب درست نکردم و اون را تو یک پوشه معمولی تو یک درایو میگذارم اصلا این خطا را نمیده و درست کار میکنه تو پروگرام فایل که میره خطا میده!!!
پیامی هم که میده اینه:

12-16-2017 02-00-51 ب.jpg

اون تیکه برنامه را هم اینطوری نوشتم
 Dim address As String = System.IO.Path.Combine(AppDomain.CurrentDomain.Bas eDirectory, "setting.txt")
If My.Computer.FileSystem.FileExists(address) = False Then

Dim Fstream As New FileStream(address, FileMode.Create, FileAccess.Write)
' Dim fStream As FileStream = File.Open(filename, FileMode.OpenOrCreate)
Dim Fswriter As New StreamWriter(Fstream)
Fswriter.Flush()
Fswriter.WriteLine("1")
Fswriter.WriteLine("WIFI7CH")
Fswriter.WriteLine("12345678")
Fswriter.WriteLine("خروجی 1")
Fswriter.WriteLine("خروجی 2")
Fswriter.WriteLine("خروجی 3")
Fswriter.WriteLine("خروجی 4")
Fswriter.WriteLine("خروجی 5")
Fswriter.WriteLine("خروجی 6")
Fswriter.WriteLine("خروجی 7")
Fswriter.Close()
PORT_WIFI.Value = 1
NAME_WIFI.Text = "WIFI7CH"
PASSWORD_WIFI.Text = "12345678"
Else
Dim fstream As New FileStream(address, FileMode.Open, FileAccess.ReadWrite)
Dim fsreader As New StreamReader(fstream)
Dim s1, s2 As String
fsreader.BaseStream.Seek(0, SeekOrigin.Begin)
'While fsreader.Peek > -1
s1 = fsreader.ReadLine '+ ControlChars.CrLf

NAME_WIFI.Text = fsreader.ReadLine
PASSWORD_WIFI.Text = fsreader.ReadLine
OUT1.Text = fsreader.ReadLine
OUT2.Text = fsreader.ReadLine
OUT3.Text = fsreader.ReadLine
OUT4.Text = fsreader.ReadLine
OUT5.Text = fsreader.ReadLine
OUT6.Text = fsreader.ReadLine
OUT7.Text = fsreader.ReadLine
'End While
fsreader.Close()
PORT_WIFI.Value = Val(s1)
End If