مشکل در کار با کتابخانه فایل استریم

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

ضمیمه 147280

اون تیکه برنامه را هم اینطوری نوشتم

        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

این خطا یعنی فایل وجود دارد ولی امکان خواندن و نوشتن روی فایل وجود ندارد.

راه حل اینه که برنامه را بصورت ادمین اجراکنید.