FAQ ASP.NET/VB.NET

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

					<INPUT id="tboxMonFichier" type="file" size="75" name="tboxMonFichier" runat="server">
				

					Protected WithEvents tboxMonFichier As System.Web.UI.HtmlControls.HtmlInputFile
				

					If  Not tboxMonFichier.PostedFile.FileName.Length = 0 Then
					Dim monchemin as string = "C:\repfilesupload"
					tboxMonFichier.PostedFile.SaveAs(monchemin & _
					tboxMonFichier.PostedFile.FileName.Substring( _
					tboxMonFichier.PostedFile.FileName.LastIndexOf("\") + 1))
					End If
				

					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"))