AppendText

 Es wird UTF-8 kodierter Text in eine bestehende Datei angefügt

Copy

 Es wird eine Quelldatei in eine Zieldatei kopiert

Create

 Es wird eine Datei an dem vollguallifizierten Pfad erzeugt

CreateText

 Es wird eine Datei nach UTF-8 erzeugt oder geöffnet

Delete

 Es wird eine Datei unter Angabe des vollquallifizierten Pfades gelöscht

Exists

 Es wird geprüft ob eine Datei unter einem angegebenen Pfad vorhanden ist

GetAttributes

 Unter Angabe des vollquallifizierten Pfades der Datei wird die Eigenschaft FileAttributes zurückgegeben

GetCreationTime

 Es wird Datum und Uhrzeit der Erstellung einer Datei oder eines Verzeichnisses zurückgegeben

GetLastAccessTime

 Es wird Datum und Uhrzeit des letzten Zugriffs einer Datei oder eines Verzeichnisses zurückgeben

GetLastWriteTime

 Es wird Datum und Uhrzeit des letzten Schreibzugriffs einer Datei oder eines Verzeichnisses zurückgegeben

Move

 Es wird eine Datei unter Ermöglichung der Umbenennung in einen angegeben Order verschoben

Open

 Es wird ein FileStream Objekt unter Angabe des Pfades geöffnet

OpenRead

 Es wird eine vorhandene Datei zum lesen geöffnet

OpenText

 Es wird eine vorhandene UTF-8 kodierte Datei zum lesen geöffnet

OpenWrite

 Es wird eine vorhandene Datei zum schreiben geöffnet

SetAttributes

 Es werden angegebene Dateiattribute der im Pfad angegebenen Dateien gesetzt

SetCreationTime

 Es wird das Datum und die Uhrzeit der Dateierstellung gesetzt

SetLastAccessTime

 Es wird das Datum und die Uhrzeit des letzten Dateizugriffs gesetzt

SetLastWriteTime

 Es wird das Datum und die Uhrzeit des letzten schreibenden Dateizugriffs gesetzt

AppendText

                Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
                        'AppendText
                        Dim sw As System.IO.StreamWriter
                        
                        Try
                                If System.IO.File.Exists(Filename) Then
                                        sw = System.IO.File.AppendText(Filename)
                                Else
                                        sw = System.IO.File.CreateText(Filename)
                                End If
                                With sw
                                        .Write("test 1" + System.Environment.NewLine)
                                        .Write("test 2" + System.Environment.NewLine)
                                        .Flush()
                                        .Close()
                                End With
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try
                End Sub

Copy

                 Private Sub Button2Click(sender As System.Object, e As System.EventArgs)
                        'Copy
                        Try
                                System.IO.File.Copy("test.txt", "c:\test\__test.txt")
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try
                End Sub

Create

                 Private Sub Button3Click(sender As System.Object, e As System.EventArgs)
                        'Create
                        Try
                        Dim Path                As String = "test_create.txt"
                        Dim fs                  As FileStream = File.Create(Path, 1024)
                        Const Content   As String = "Hallo Welt"
                        Dim arrContent  As Byte() = New UTF8Encoding(True).GetBytes(Content)
                        
                        fs.Write(arrContent, 0, arrContent.Length)
                        fs.Close()
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try
                End Sub 

CreateText

                 Private Sub Button4Click(sender As System.Object, e As System.EventArgs)
                        'CreateText
                        Try
                        Dim Path As String = "test_create_text.txt"
                        If Not File.Exists(Path) Then
                        Dim sw As StreamWriter = File.CreateText(Path)
                        With sw
                                .WriteLine("Hello")
                                .WriteLine("World")
                                .Flush()
                                .Close()
                        End With
                        End If
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try
                End Sub 

Delete

                 Private Sub Button5Click(sender As System.Object, e As System.EventArgs)
                        'Delete
                        Try
                                Dim Path As String = "delete.txt"
                                If File.Exists(Path) Then
                                        File.Delete(Path)
                                End If
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try                 
                End Sub

Exists

                 Private Sub Button6Click(sender As System.Object, e As System.EventArgs)
                        'Exists
                        Try
                                Dim Path As String = "test_create_text.txt"
                                If System.IO.File.Exists(Path) Then
                                        MessageBox.Show("Datei existiert...", "Info")
                                End If
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try                 
                End Sub

GetAttributes

                Private Sub Button7Click(sender As System.Object, e As System.EventArgs)
                        'GetAttributes
                        Try
                                Dim Path As String = "test_create_text.txt"     
                                Dim fa As FileAttributes
                                If (File.GetAttributes(Path) And fa.Archive) = fa.Archive Then
                                MessageBox.Show("Datei: " & System.Environment.NewLine & Path & _
                                                " hat das Attribut: Archiv")    
                                End If
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try                 
                End Sub

GetCreationTime

                 Private Sub Button8Click(sender As System.Object, e As System.EventArgs)
                        'GetCreationTime
                        Try
                                Dim Path        As String = "test_create_text.txt"      
                                Dim dt          As DateTime = File.GetCreationTime(Path)
                                MessageBox.Show(dt.ToString(), "Info")
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try                 
                End Sub

GetLastAccessTime

                 Private Sub Button9Click(sender As System.Object, e As System.EventArgs)
                        'GetLastAccessTime
                        Try
                                Dim Path        As String = "test_create_text.txt"      
                                Dim dt          As DateTime = File.GetLastAccessTime(Path)
                                MessageBox.Show(dt.ToString(), "Info")                          
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try                 
                End Sub

GetLastWriteTime

                 Private Sub Button10Click(sender As System.Object, e As System.EventArgs)
                        'GetLastWriteTime
                        Try
                                Dim Path        As String = "test_create_text.txt"      
                                Dim dt          As DateTime = File.GetLastWriteTime(Path)
                                MessageBox.Show(dt.ToString(),"Info")                                  
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try                 
                End Sub

Move

                 Private Sub Button11Click(sender As System.Object, e As System.EventArgs)
                        'Move
                        Try
                                Dim SourcePath As String = "test_create_text.txt"
                                Dim TargetPath As String = "test_create_text_move.txt"
                                
                                File.Move(SourcePath, TargetPath)
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try                 
                End Sub

Open

                 Private Sub Button12Click(sender As System.Object, e As System.EventArgs)
                        'Open
                        Try     
                                Dim Path As String = "test_create.txt"
                                Dim fs As FileStream
                                fs = File.Open(Path, FileMode.Open)
                                Dim arrContent(1024) As Byte
                                Dim enc As UTF8Encoding = New UTF8Encoding(True)
                                Do While fs.Read(arrContent, 0, arrContent.Length)
                                        textBox1.AppendText(enc.GetString(arrContent))
                                Loop
                                fs.Close()
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try                 
                End Sub

OpenRead

                 Private Sub Button13Click(sender As System.Object, e As System.EventArgs)
                        'OpenRead
                        Try
                                Dim fs As FileStream
                                Dim Path As String = "test_create.txt"
                                fs = File.OpenRead(Path)
                                Dim Buffer(1024) As Byte
                                Dim enc As UTF8Encoding = New UTF8Encoding(True)
                                Do While fs.Read(Buffer, 0, Buffer.Length)
                                        textBox1.AppendText(enc.GetString(Buffer))
                                Loop
                                fs.Close()
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                       End Try                 
                End Sub

OpenText

                 Private Sub Button14Click(sender As System.Object, e As System.EventArgs)
                        'OpenText
                        Try
                        Dim sr As StreamReader = File.OpenText("test_create.txt")
                        Do While sr.Peek() >= 0
                        textBox1.AppendText(sr.ReadLine())
                        Loop
                        sr.Close()
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try                 
                End Sub

OpenWrite

                 Private Sub Button15Click(sender As System.Object, e As System.EventArgs)
                        'OpenWrite
                        Try
                                Dim fs          As FileStream
                                Dim Path        As String = "test_OpenWrite.txt"
                                Dim enc         As Byte() = _
                                                New UTF8Encoding(True).GetBytes("test_OpenWrite.txt")
                                fs = File.OpenWrite(Path)
                                With fs
                                        .Write(enc, 0, enc.Length)
                                        .Close()
                                End With
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try                 
                 End Sub

SetAttributes

                 Private Sub Button16Click(sender As System.Object, e As System.EventArgs)
                        'SetAttributes
                        Try
                                Dim fa          As FileAttributes
                                Dim Path        As String = "test_create.txt"
                                
                                If (File.GetAttributes(Path) And fa.Archive) = fa.Archive Then
                                        File.SetAttributes(Path, fa.Hidden)
                                End If
                                
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try                 
                End Sub

SetCreationTime

                 Private Sub Button17Click(sender As System.Object, e As System.EventArgs)
                        'SetCreationTime
                        Try
                                Dim Path As String = "test.txt"
                                
                                File.SetCreationTime(Path, New DateTime(1990, 12, 31))
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try                 
                End Sub

SetLastAccessTime

                 Private Sub Button18Click(sender As System.Object, e As System.EventArgs)
                        'SetLastAccessTime
                        Try
                                Dim Path As String = "test.txt"
                                
                                File.SetLastAccessTime(Path, New DateTime(1990, 12, 30))
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try                 
                End Sub

SetLastWriteTime

                 Private Sub Button19Click(sender As System.Object, e As System.EventArgs)
                        'SetLastWriteTime
                        Try
                      Dim Path As String = "test.txt"
                                
                      File.SetLastWriteTime(Path, New DateTime(1990, 12, 29))                         
                        Catch ex As IOException
                                MessageBox.Show(ex.Message.ToString())
                        End Try                 
                End Sub