We help IT Professionals succeed at work.

Setting width of a datatable in vb.net 2005

160 Views
Last Modified: 2007-10-08
I need to specify the width of the columns so the user can see all of the data without having to resize the column.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dt.Columns.Add("FileName", GetType(String))
        dt.Columns.Add("Extension", GetType(String))
        dt.Columns.Add("Directory", GetType(String))
        dt.Columns.Add("Modified Date", GetType(DateTime))
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dt.Rows.Clear()
        Dim strDir As String
        strDir = "directory"
        DirAndFilesViewer(New System.IO.DirectoryInfo(strDir))
        DataGridView1.DataSource = dt
    End Sub
    Sub DirAndFilesViewer(ByVal di As System.IO.DirectoryInfo)
        For Each fi As System.IO.FileInfo In di.GetFiles
            Dim targetDate As Date
            If LastWeek.Checked Then
                targetDate = Date.Today.AddDays(-7)
                If fi.LastWriteTime >= targetDate Then
                    If UCase(fi.Extension) = ".TXT" Or UCase(fi.Extension) = ".ASP" Or UCase(fi.Extension) = ".ASPX" Or UCase(fi.Extension) = ".HTM" Or UCase(fi.Extension) = ".HTML" Then
                        dt.Rows.Add(New Object() {fi.Name, fi.Extension, fi.DirectoryName, fi.LastWriteTime})
                    End If
                End If
            End If
            If LastDay.Checked Then
                targetDate = Date.Today.AddDays(-1)
                If fi.LastWriteTime >= targetDate Then
                    If UCase(fi.Extension) = ".TXT" Or UCase(fi.Extension) = ".ASP" Or UCase(fi.Extension) = ".ASPX" Or UCase(fi.Extension) = ".HTM" Or UCase(fi.Extension) = ".HTML" Then
                        dt.Rows.Add(New Object() {fi.Name, fi.Extension, fi.DirectoryName, fi.LastWriteTime})
                    End If
                End If
            End If
        Next

        For Each subDi As System.IO.DirectoryInfo In di.GetDirectories
            DirAndFilesViewer(subDi)
        Next
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
Comment
Watch Question

Top Expert 2007
Commented:
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION

Author

Commented:
Doh!! That was easy! Thanks

Gain unlimited access to on-demand training courses with an Experts Exchange subscription.

Get Access
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Empower Your Career
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.