Erro de conversão de datas VB.NET

[Wallcrawler 0]

Olá galera,

 

Uso a função abaixo para criar uma grid na memória. Essa grid é preenchida com as datas de criação de vários arquivos constantes na pasta de backup da aplicação:

 

Private Sub checaBackup(ByVal dir As String, ByVal exibeArquivos As Boolean, Optional ByVal nivel As Integer = 0)
		Dim Grid As New DataGridView

		Grid.Columns.Add("data", "data_criacao")
		Try
			If exibeArquivos Then
				For Each nome As String In Directory.GetFiles(dir)
					If InStr(nome, ".mdb", CompareMethod.Text) > 0 Then
						Dim row As String() = {File.GetCreationTime(nome)}
						Grid.Rows.Add(row)
					ElseIf InStr(nome, ".gz", CompareMethod.Text) > 0 Then
						Try
							File.Delete(nome)
						Catch ex As Exception
							'MsgBox("Erro:" & ex.ToString)
						End Try

					End If
				Next
			End If
			Grid.Sort(Grid.Columns(0), System.ComponentModel.ListSortDirection.Descending)
			Dim data_criacao = Microsoft.VisualBasic.DateAndTime.DateValue(Grid.Rows(0).Cells(0).Value)
			Dim data_atual = CDate(Today.Date())
			MsgBox(data_criacao)
			Dim diferenca = DateDiff(data_atual, data_criacao, 1)

		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
	End Sub

O try retorna o erro:

 

O argumento 'Date2' não pode ser convertido para o tipo 'Date'

Supus que seria a variável data_criacao, mas no entanto, o msgbox retorna o valor "03/01/2009" (sem aspas), e a variável é convertida.

 

O que fiz errado?

 

Obrigado a todos.

[hgb7 3]

http://www.plugmasters.com.br/sys/materias...Usando-DateDiff

 

http://www.macoratti.net/vb_datas.htm

 

Espero que ajude :)

[quintelab 91]

Eu não achei este Date2 no seu código. Em que linha ocorre o erro?

 

Abraços...