Array
(
)

O VB 2003 Funciona com o .NET 2.0?

Andreasf
   - 05 dez 2007

Camaradas, é o seguinte...

Utilizo o VS 2003 e o Framework 1.1, acontece que tentei aproveitar uma função da net e a mesma utiliza o System.Collections.Generic.List, só que só está disponível a partir do Framework 2.0

Pergunta:
Consigo no VS 2003 utilizar o Framework 2.0?
Temos uma saida para a função abaixo? Ao invés de utilizar o System.Collections.Generic.List?

//*********************************************************************
Public Shared Function Obter(ByVal Pasta As String, ByVal Ordem As String) As Collections.Generic.List(Of Arquivo)
´Aqui iremos criar uma Collection, baseada na classe Arquivo
´ Obter = New Collections.Generic.List(Of Arquivo)
´Busca todos os diretórios
Dim Item As Arquivo
For Each strPasta As String In IO.Directory.GetDirectories(Pasta)
Dim _Pasta As New IO.DirectoryInfo(strPasta)
Item = New Arquivo
Item.Caminho = _Pasta.FullName.Replace(Pasta, ´´)
Item.Nome = _Pasta.Name
Item.Tamanho = ´-´
Item.Icone = ´pasta´
Item.DataCriacao = _Pasta.CreationTime
Item.DataAlteracao = _Pasta.LastWriteTime
Item.Tipo = Arquivo.TipoArquivo.Diretorio
Obter.Add(Item)
Next
If Ordem <> ´Nome´ Then Ordenar(Obter, Ordem, 0)
´Busca todos os arquivos
Dim QuantPastas As Integer = Obter.Count
For Each strArquivo As String In IO.Directory.GetFiles(Pasta)
Dim _Arq As New IO.FileInfo(strArquivo)
Item = New Arquivo
Item.Caminho = _Arq.FullName.Replace(Pasta, ´´)
Item.Nome = _Arq.Name
Item.Tamanho = _Arq.Length.ToString
Item.Icone = _Arq.Extension
Item.DataCriacao = _Arq.CreationTime
Item.DataAlteracao = _Arq.LastWriteTime
Item.Tipo = Arquivo.TipoArquivo.Arquivo
Obter.Add(Item)
Next
If Ordem <> ´Nome´ Then Ordenar(Obter, Ordem, QuantPastas)
Return Obter
End Function
//*********************************************************************