نکات، ایده ها و ترفندهای کوچک برنامه نویسی در vb.net

[ghafoori]

https://barnamenevis.org/showpo...6&postcount=61

Imports System.IO



 Private Sub CreateTextFile()

        Dim fs As FileStream = New FileStream("C:\test.txt", FileMode.Create)

        Dim w As StreamWriter = New StreamWriter(fs, Encoding.UTF8)

        Using (fs)

            Using (w)

                w.WriteLine(124.23)

                w.WriteLine("Salaam!")

                w.WriteLine("!")

            End Using

        End Using

    End Sub





    Private Function ReadFromTextFile() As String



        Dim sb As StringBuilder = New StringBuilder()

        Dim fs As FileStream = New FileStream("C:\test.txt", FileMode.Open)

        Dim r As StreamReader = New StreamReader(fs, Encoding.UTF8)

        Using (fs)

            Using (r)

                sb.AppendLine(r.ReadLine())

                sb.AppendLine(r.ReadLine())

                sb.AppendLine(r.ReadLine())

            End Using

        End Using

        Return sb.ToString()

    End Function

[ghafoori]

https://barnamenevis.org/showpo...7&postcount=62

Dim filename As String = "..\..\myfile.txt"

        Dim fullPath As String = "c:\Temp"

        Dim filename As String = Path.GetFileName(filename)

        Dim fullPath As String = Path.Combine(fullPath, filename)

        '// (fullPath is now "c:\Temp\myfile.txt")

[ghafoori]

https://barnamenevis.org/showpo...8&postcount=63

Dim randomFileName As String = System.IO.Path.GetRandomFileName()

و برای ایجاد نام منحصر بفرد برای فایلهای موقت :
کد:

Dim tfile As String = Path.GetTempFileName()

[ghafoori]

https://barnamenevis.org/showpo...0&postcount=64

System.Diagnostics.Process.Start("iexplore.exe", "www.barnamenevis.org")

و برای مثال در فایرفاکس :
کد:

System.Diagnostics.Process.Start("C:\Program Files\Mozilla Firefox\FireFox.exe", "www.barnamenevis.org")