سلام دوستان من با وی بی دات نت یک برنامه نوشتم که تو ویندوز ایکس پی درست کار میکنه ولی تو ویندوز سون مشکل داره و خطا میده من میام اول برنامه چک میکنم که یک فایل متنی در کنار فایل اجرایی برنامه هست یا نه که اگر بودبازش کنم ولی تو ویندوز سون با اینکه فایل کنار فایل اجرایی هست در کمال تعجب پیام میده که نتونسته اون فایل را از ادرس مورد نظر پیدا کنه!!! در حالی که وقتی که هنوز از برنامه فایل ستاب درست نکردم و اون را تو یک پوشه معمولی تو یک درایو میگذارم اصلا این خطا را نمیده و درست کار میکنه تو پروگرام فایل که میره خطا میده!!!
پیامی هم که میده اینه:اون تیکه برنامه را هم اینطوری نوشتم
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
پاسخ با نقل قول
