سوالات خود را در اینجا بپرسید

انواع متغیر های value types

روی عکس کلیک کنید

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

Imports System.IO

'1- نوشتن متنی
Dim tw As TextWriter = File.CreateText("d:\text1.txt")
     tw.Write("Hello word.")
tw.Close()

'2- نوشتن متنی
Dim sw As New StreamWriter("d:\text2.txt")
     sw.Write("Hello word.")
sw.Close()

'1- خواندن متنی
Dim tr As TextReader = File.OpenText("d:\text1.txt")
     MsgBox(tr.ReadToEnd())
tr.Close()

'2- خواندن متنی
Dim sr As New StreamReader("d:\text2.txt")
     MsgBox(sr.ReadToEnd())
sr.Close()

بعد از نوشتن در فایل برای اجرای تغییرات حتما فایل باید بسته شود

در غیر اینصورت فقط یک فایل خالی درست میشود
اگر فقط میخواهیم که تغییرات اعمال شود و فایل بسته نشود از روال Flush مانند زیر باید استفاده کرد

sr.Flush ()

تحت نظر گرفتن شاخه ای خاص از درایو توسط کنترل FileSystemWatcher

Imports System.IO

Dim Checkdir As New FileSystemWatcher("d:\")

'مشخص کردن اینکه زیر شاخه ها را تحت نظر قرار دهد یا خیر
Checkdir.IncludeSubdirectories = True

'نوع تحت نظر قراردادن
Checkdir.NotifyFilter = NotifyFilters.FileName Or NotifyFilters.LastWrite

AddHandler Checkdir.Created, AddressOf Checkdir_creat


'تابع مورد نظر که باید انجام شود
Private Sub Checkdir_creat(ByVal sender As Object, ByVal e As FileSystemEventArgs)
     MsgBox("creat file")
End Sub

متغیر های سیستمی از نوع Environment

Environment variables

Dim Env As String= "windir"
Environment.GetEnvironmentVariable(Env)

با قطعه کد زیر میتوانید کلیه متغیر های سیسمی را دربیاورید

Dim dictEntry As System.Collections.DictionaryEntry

For Each dictEntry In Environment.GetEnvironmentVariables()
     ListBox1.Items.Add("Key: " & dictEntry.Key.ToString() &
                                  "   Value:" & dictEntry.Value.ToString())
Next