Inherits System.Web.UI.Page
'show message from file
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
If File.Exists(Me.TextBox1.Text.Trim()) Then
Dim sr As StreamReader = New StreamReader(Me.TextBox1.Text.Trim())
Me.txtMsg.Text = sr.ReadToEnd()
sr.Close()
Else
Me.Response.Write("<script>alert('File does not Exist.')</script>")
End If
End Sub
'Write content of the txtMsg control to file
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If File.Exists(Me.TextBox1.Text.Trim()) Then
Dim sw As StreamWriter = New StreamWriter(Me.TextBox1.Text.Trim())
sw.WriteLine(Me.txtMsg.Text.Trim())
sw.Close()
Me.txtMsg.Text = ""
Else
Me.Response.Write("<script>alert('File does not Exist.')</script>")
End If
End Sub
'Create Directory
Protected Sub btnCreate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCreate.Click
If Directory.Exists(Me.txtDirectory.Text.Trim()) Then
Me.Response.Write("<script>alert('Directory Exist.')</script>")
Else
Directory.CreateDirectory(Me.txtDirectory.Text.Trim())
End If
End Sub
'Delete Directory
Protected Sub btnDelDirectory_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelDirectory.Click
If Directory.Exists(Me.txtDeleteDirectory.Text.Trim()) Then
Directory.Delete(Me.txtDeleteDirectory.Text.Trim())
Else
Me.Response.Write("<script>alert('Directory does not Exist.')</script>")
End If
End Sub
'Move Directory
Protected Sub btnMove_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnMove.Click
If Directory.Exists(Me.txtFrom.Text.Trim()) Then
If Directory.Exists(Me.txtTo.Text.Trim()) Then
Me.Response.Write("<script>alert('DestDirectory does not Exist.')</script>")
Else
Directory.Move(Me.txtFrom.Text.Trim(), Me.txtTo.Text.Trim())
End If
Else
Me.Response.Write("<script>alert('Directory does not Exist.')</script>") End If
End Sub
'Create file
Protected Sub btnCreateFile_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCreateFile.Click
If File.Exists(Me.txtCreateFile.Text.Trim()) Then
Me.Response.Write("<script>alert('File Exists.')</script>")
Else
Dim fs As FileStream = File.Create(Me.txtCreateFile.Text.Trim())
fs.Close()
End If
End Sub
'Delete File
Protected Sub btnDelFile_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelFile.Click
If File.Exists(Me.txtDelFile.Text.Trim()) Then
File.Delete(Me.txtDelFile.Text.Trim())
Else
Me.Response.Write("<script>alert('File does not Exist.')</script>")
End If
End Sub
'Move File
Protected Sub btnMoveFile_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnMoveFile.Click
If File.Exists(Me.txtFromFile.Text.Trim()) Then
If File.Exists(Me.txtTOFile.Text.Trim()) Then
Me.Response.Write("<script>alert('DestFile Exists.')</script>")
Else
File.Move(Me.txtFromFile.Text.Trim(), Me.txtTOFile.Text.Trim())
End If
Else
Me.Response.Write("<script>alert('File does not Exist.')</script>")
End If
End Sub
'Set File Attribute
Protected Sub btnFileSetAtb_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFileSetAtb.Click
If File.Exists(Me.txtFileAttribute.Text.Trim()) Then
If Me.rbFileReadOnly.Checked Then
File.SetAttributes(Me.txtFileAttribute.Text.Trim(), FileAttributes.ReadOnly)
ElseIf (Me.rbFileReadHide.Checked) Then
File.SetAttributes(Me.txtFileAttribute.Text.Trim(), FileAttributes.Hidden)
End If
Else
Me.Response.Write("<script>alert('File does not Exist.')</script>")
End If
End Sub
'Set Directory Attribute
Protected Sub btnAttribute_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAttribute.Click
If (Directory.Exists(Me.txtDirAttribute.Text.Trim())) Then
Dim DirInfo As DirectoryInfo = New DirectoryInfo(Me.txtDirAttribute.Text.Trim())
If (Me.RbDirecotry.Checked) Then
DirInfo.Attributes = FileAttributes.ReadOnly
ElseIf (Me.RbDirecotry1.Checked) Then
DirInfo.Attributes = FileAttributes.Hidden
End If
Else
Me.Response.Write("<script>alert('Directory does not Exist.')</script>")
End If
End Sub