File Handling Exercises
Form design:
Codes:
Public Class frm1
Private Sub openFile_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles openFile.Click
OpenFileDialog1.InitialDirectory = "E:\DDAP2013\VBExercises\texts\"
OpenFileDialog1.Title = "Opening a file"
OpenFileDialog1.Filter = "Text Files|*.txt"
OpenFileDialog1.ShowDialog()
Dim objReader As New System.IO.StreamReader(OpenFileDialog1.FileName)
txt1.Text = objReader.ReadToEnd
objReader.Close() ' must be closed after use.
End Sub
Private Sub clearText_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles clearText.Click
txt1.Clear()
End Sub
Private Sub readByLine_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles readByLine.Click
Dim filename As String = "E:\DDAP2013\VBExercises\texts\sampletextforVB.txt"
Dim textline As String = ""
Dim linenum As Integer = 0
If System.IO.File.Exists(filename) = True Then
Dim objReader As New System.IO.StreamReader(filename)
Do While objReader.Peek() <> -1
linenum = linenum + 1
textline = textline & linenum & " " & objReader.ReadLine() & vbNewLine
Loop
txt1.Text = textline
objReader.Close() ' must be closed after use.
Else
MsgBox("File do not exist.")
End If
End Sub
Private Sub saveToFile_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles saveToFile.Click
Dim FILE_NAME As String = "E:\DDAP2013\VBExercises\texts\sampletextforVB.txt"
If System.IO.File.Exists(FILE_NAME) = True Then
Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True) 'With true,
Append text, without overwrite.
objWriter.Write(txt1.Text)
objWriter.Close()
MsgBox("Text written to file")
Else
MsgBox("File Does Not Exist")
End If
End Sub
Private Sub saveToNewFile_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles saveToNewFile.Click
SaveFileDialog1.OverwritePrompt = True
SaveFileDialog1.InitialDirectory = "E:\DDAP2013\VBExercises\texts\"
SaveFileDialog1.Title = "Saving your file"
SaveFileDialog1.ShowDialog()
Dim FILE_NAME As String = SaveFileDialog1.FileName
Dim objWriter As New System.IO.StreamWriter(SaveFileDialog1.FileName, False)
'False, create new file if not exist
objWriter.Write(txt1.Text)
objWriter.Close()
MsgBox("Text written to file")
End Sub
Private Sub copyFile_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles copyFile.Click
Dim FileToCopy As String
Dim NewCopy As String
OpenFileDialog1.InitialDirectory = "E:\DDAP2013\VBExercises\texts\"
OpenFileDialog1.Filter = "Text Files|*.txt"
OpenFileDialog1.Title = "Choose a file to copy"
OpenFileDialog1.ShowDialog()
SaveFileDialog1.OverwritePrompt = True
SaveFileDialog1.InitialDirectory = "E:\DDAP2013\VBExercises\texts\"
SaveFileDialog1.Title = "Saving your file"
SaveFileDialog1.ShowDialog()
FileToCopy = OpenFileDialog1.FileName
NewCopy = SaveFileDialog1.FileName & ".txt"
System.IO.File.Copy(FileToCopy, NewCopy)
MsgBox("File Copied")
End Sub
Private Sub moveFile_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles moveFile.Click
Dim FileToMove As String
Dim MoveLocation As String
OpenFileDialog1.InitialDirectory = "E:\DDAP2013\VBExercises\texts\"
OpenFileDialog1.Filter = "Text Files|*.txt"
OpenFileDialog1.Title = "Choose a file to copy"
OpenFileDialog1.ShowDialog()
FileToMove = OpenFileDialog1.FileName
MoveLocation = OpenFileDialog1.InitialDirectory & "\movedfiles\" &
OpenFileDialog1.SafeFileName ' filename + extension
If System.IO.File.Exists(FileToMove) = True Then
System.IO.File.Move(FileToMove, MoveLocation)
MsgBox("File Moved")
End If
End Sub
Private Sub deleteFile_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles deleteFile.Click
Dim fileToDelete As String
OpenFileDialog1.InitialDirectory = "E:\DDAP2013\VBExercises\texts\"
OpenFileDialog1.Filter = "Text Files|*.txt"
OpenFileDialog1.Title = "Choose a file to delete"
OpenFileDialog1.ShowDialog()
fileToDelete = OpenFileDialog1.FileName
If System.IO.File.Exists(fileToDelete) = True Then
System.IO.File.Delete(fileToDelete)
MsgBox("File deleted")
End If
End Sub
End Class
