تحت نظر گرفتن شاخه ای خاص از درایو توسط کنترل 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

کار با فایل (Creat, delete , move , Copy , ...)

File.CreateText("mynewfile.txt")

File.Copy("mynewfile.txt", "newfile2.txt")

File.Move("newfile2.txt", "newfile3.txt")

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim fi As New FileInfo("mynewfile.txt")

fi.CreateText()

fi.CopyTo("newfile2.txt")

Dim fi2 As New FileInfo("newfile2.txt")

fi2.MoveTo("newfile3.txt")

دستور Exists برای وجود داشتن فولدر

Imports System.IO

Dim newdir1 As New DirectoryInfo("d:\111")
Dim newdir2 As New DirectoryInfo("d:\222")

'(1)
If Directory.Exists(newdir1.FullName) Then
     MsgBox("Directory1Exists")
Else
     newdir1.Create()
End If

'(2)
If newdir2.Exists Then
     MsgBox("Directory2Exists")
Else
     newdir2.Create()
End If

گرفتن اطلاعات فایل ها

Imports System.IO

Dim dir As New DirectoryInfo("c:\")

For Each files As FileInfo In dir.GetFiles()
     ListBox1.Items.Add(files.Name)
Next