[RESOLVED] [2005] cut and paste

[GARAKWAZVO]

Dim di As New IO.DirectoryInfo(txtsource.Text)
    Dim diar1 As IO.FileInfo() = di.GetFiles("*.txt")  'add filter
    Dim mycounter As Integer = 0
    Dim files As IO.FileInfo

as on my above post i have declared mycounter on the public declarations and my concern is on the errors on how i can assign a value to files