Mega Code Archive
File Information
<![CDATA[
Imports System.IO
Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.txtDisplay = New System.Windows.Forms.TextBox
Me.cmdCreate = New System.Windows.Forms.Button
Me.cmdChangeDate = New System.Windows.Forms.Button
Me.cmdGetInfo = New System.Windows.Forms.Button
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
'
Me.txtDisplay.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtDisplay.Location = New System.Drawing.Point(9, 79)
Me.txtDisplay.Multiline = True
Me.txtDisplay.ReadOnly = True
Me.txtDisplay.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtDisplay.Size = New System.Drawing.Size(280, 168)
Me.txtDisplay.TabIndex = 9
'
Me.cmdCreate.Location = New System.Drawing.Point(9, 39)
Me.cmdCreate.Size = New System.Drawing.Size(88, 24)
Me.cmdCreate.TabIndex = 8
Me.cmdCreate.Text = "Create"
'
Me.cmdChangeDate.Location = New System.Drawing.Point(201, 39)
Me.cmdChangeDate.Size = New System.Drawing.Size(88, 24)
Me.cmdChangeDate.TabIndex = 7
Me.cmdChangeDate.Text = "Change Date"
'
Me.cmdGetInfo.Location = New System.Drawing.Point(105, 39)
Me.cmdGetInfo.Size = New System.Drawing.Size(88, 24)
Me.cmdGetInfo.TabIndex = 6
Me.cmdGetInfo.Text = "Get Info"
'
Me.TextBox1.Location = New System.Drawing.Point(9, 11)
Me.TextBox1.Size = New System.Drawing.Size(280, 21)
Me.TextBox1.TabIndex = 5
Me.TextBox1.Text = "c:\myfile.txt"
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(298, 259)
Me.Controls.Add(Me.txtDisplay)
Me.Controls.Add(Me.cmdCreate)
Me.Controls.Add(Me.cmdChangeDate)
Me.Controls.Add(Me.cmdGetInfo)
Me.Controls.Add(Me.TextBox1)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtDisplay As System.Windows.Forms.TextBox
Friend WithEvents cmdCreate As System.Windows.Forms.Button
Friend WithEvents cmdChangeDate As System.Windows.Forms.Button
Friend WithEvents cmdGetInfo As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Private Sub cmdCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCreate.Click
Try
Dim MyFile As New FileInfo("c:\myfile.txt")
MyFile.Create().Close()
Out("File created.")
Catch err As Exception
Out(err.Message)
End Try
End Sub
Private Sub cmdGetInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGetInfo.Click
Try
Dim MyFile As New FileInfo("c:\myfile.txt")
Out("Length in bytes: " & MyFile.Length)
Out("Attribute list: " & MyFile.Attributes.ToString)
Out("Stored in: " & MyFile.DirectoryName)
Out("Created: " & MyFile.CreationTime)
Catch err As Exception
Out(err.Message)
End Try
End Sub
Public Sub Out(ByVal NewText As String) ' Utility for displaying information.
txtDisplay.Text &= vbNewLine & NewText
txtDisplay.SelectionStart = txtDisplay.Text.Length - 1
txtDisplay.ScrollToCaret()
End Sub
Private Sub cmdChangeDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdChangeDate.Click
Try
Dim MyFile As New FileInfo("c:\myfile.txt")
MyFile.LastWriteTime = DateTime.Today.Add(TimeSpan.FromDays(100))
Out("Time updated.")
Catch err As Exception
Out(err.Message)
End Try
End Sub
End Class
]]>