Dim PhysicalPath As String = Server.MapPath("nomfichier.mdb")

Dim dir As New DirectoryInfo("C:\MonChemin") 

MalLsttBox.DataSource = dir.GetFiles("*.*") 
MalLsttBox.DataBind()

Imports System
Imports System.IO

Public Shared Sub FileTests()
	Try
		'Création d un fichier vide
		Dim fs As FileStream = File.Create("myfile.txt")
		fs.Close
		Console.WriteLine("fichier myfile.txt créé")

		'Copie de fichier
		File.Copy("myfile.txt", "copyofmyfile.txt")
		Console.WriteLine("fichier myfile.txt copié vers copyofmyfile.txt")

		'Déplacement de fichier
		File.Move("copyofmyfile.txt", "c:\copyofmyfile.txt")
		Console.WriteLine("fichier copyofmyfile.txt déplacé vers c:\copyofmyfile.txt")

		'Suppression de fichier
		File.Delete("c:\copyofmyfile.txt")
		Console.WriteLine("Fichier c:\copyofmyfile.txt supprimé")
	Catch e As Exception
		Debug.WriteLine(ex.ToString)
		Console.WriteLine(ex.Message)
	End Try
End Sub

Imports System
Imports System.IO

Sub FichierTexte(ByVal nomFichier As String)
	Dim sr As StreamReader = Nothing
	Dim sw As StreamWriter = Nothing
	Dim line As String
	Try
		If Not File.Exists(nomFichier) Then
			' Le fichier n'existe pas. On le crée. 
			sw = New StreamWriter(nomFichier)
			sw.WriteLine("Bonjour. Nous sommes le {0} et il est {1} ", DateTime.Now.ToLongDateString, DateTime.Now.ToLongTimeString)
			sw.Close
			sw = Nothing
			' Remarque : On peut utiliser sw = File.AppendText(NomFichier) pour ajouter 
			' du texte à un fichier existant 
		End If
		' Ouverture du fichier et écriture du contenu du fichier sur la console 
		sr = New StreamReader(nomFichier)
		Console.WriteLine("Début du fichier")
		line = sr.ReadLine
		While Not (line Is Nothing)
			Console.WriteLine(line)
			line = sr.ReadLine
		End While
		Console.WriteLine("Fin du fichier")
	Finally
		' Fermeture streamreader 
		If Not (sr Is Nothing) Then
		sr.Close
	End If
	' Fermeture streamwriter 
	If Not (sw Is Nothing) Then
		sw.Close
		End If
	End Try
End Sub

Imports System.IO
Imports System

Shared Sub Dir(ByVal directory As String)
	Dim files As String()
	files = Directory.GetFileSystemEntries(directory)
	Dim filecount As Integer = files.GetUpperBound(0) + 1
	Dim i As Integer = 0
	While i < filecount
		Response.Write(files[i])
		System.Math.Min(System.Threading.Interlocked.Increment(i),i-1)
	End While
End Sub

System.IO.Directory.GetFiles()

Server.MapPath(".")

Dim di As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(Server.MapPath("."))
For Each di2 As System.IO.DirectoryInfo In di.GetDirectories
	Response.Write(di2.FullName)
	' Traitement quelconque
Next

Dim di As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(Server.MapPath("."))
For Each fi As System.IO.FileInfo In di.GetFiles
	Response.Write(fi.FullName)
Next

Public Function DirectoryLength(ByVal relativePath As String) As Integer
	Dim bytes As Integer = 0
	Dim di As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(Server.MapPath(relativePath))
	For Each fi As System.IO.FileInfo In di.GetFiles
		bytes += fi.Length
	Next
	Return bytes
End Function

Imports System.IO

Public Sub ReadByLine(ByVal path As String)
	Dim sr As StreamReader
	Try
		sr = New StreamReader(path)
		Dim contenu As String
		While Not ((contenu = sr.ReadLine) Is Nothing)
			' Utiliser ce contenu
			' Par exemple ajout d'une ListBox, ...
		End While
	Catch generatedExceptionVariable0 As Exception
		' Gestion de l'exception (FileNotFound, ...
		' (redirection, ...)
	Finally
		sr.Close
	End Try
End Sub

Public Shared Function GetMIMEType(ByVal filepath As String) As String
	Dim regPerm As RegistryPermission = New RegistryPermission(RegistryPermissionAccess.Read, "\HKEY_CLASSES_ROOT")
	Dim classesRoot As RegistryKey = Registry.ClassesRoot
	Dim fi As FileInfo = New FileInfo(filepath)
	Dim dotExt As String = fi.Extension.ToLower
	Dim typeKey As RegistryKey = classesRoot.OpenSubKey("MIME\Database\Content Type")
	Dim Keyname As String = ""
	For Each keyname As String In typeKey.GetSubKeyNames
		Dim curKey As RegistryKey = classesRoot.OpenSubKey("MIME\Database\Content Type\" + keyname)
		If CType(curKey.GetValue("Extension"), String) = dotExt Then
			Keyname = keyname
		End If
	Next
	Return Keyname
End Function

Imports System.IO
Imports System.Security.Permissions
Imports Microsoft.Win32

Dim BytesSize As Integer = FileInfo("nomfichier.ext").Length

Fs.Open(Server.MapPath("./adresserelative/fichier.txt"))