• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Weasel

Verificar a data de Criação de um directorio num WIN98

3 mensagens neste tópico

Boas,

- Eu tenho um programa que copia N pastas para um computador que está na rede (esse computador está com o WIN98).

- Agora quero Listar os directórios criados nesse computador remoto numa DataGridView.

Estou a fazer assim, mas a propriedade CreationTime não funciona dá uma data assim: 01-01-1601 0:00:00 se usar o mesmo código mas pesquisando no meu computador por directórios as datas aparecem correctas:

Imports System.IO

Private Sub list_remote()

        Dim diDirInfo As DirectoryInfo

        Dim folders() As String

        Dim folder As String

        Dim inc As Integer

        Dim fileData As Date

       

      Try

            Directory.SetCurrentDirectory(frmMain.txt_dest.Text)

            folders = Directory.GetDirectories(Directory.GetCurrentDirectory)

            gridNotas.Rows.Clear()

            For Each folder In folders

                diDirInfo = New DirectoryInfo(folder)

                fileData = diDirInfo.CreationTime

                If (Date.Now.Subtract(fileData).Duration.Days > My.Settings.dias) Then

                    gridNotas.Rows.Add(diDirInfo.Name, diDirInfo.CreationTime, False)

                End If

                inc = inc + 1

            Next

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Erro")

        End Try

    End Sub

Existe algum método alternativo para verificar a data de criação dos directórios?

Edit: O computador em que estou é um Win XP PRO SP3

Obrigado desde já!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tentei através deste método mas com o mesmo resultado:

Directory.GetCreationTime(folder)

Alguém sabe o que se possa estar a passar aqui?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Private Sub list_remote()

        Dim folders() As String

        Dim folder As String

        Dim inc As Integer

        Dim nDias As Integer

        Dim fileData As Date

        Try

            Directory.SetCurrentDirectory(frmMain.txt_dest.Text)

            folders = Directory.GetDirectories(Directory.GetCurrentDirectory)

            gridNotas.Rows.Clear()

            For Each folder In folders

                Dim fso, fldr

                fso = CreateObject("Scripting.FileSystemObject")

                fldr = fso.GetFolder(folder)

                fileData = fldr.DateCreated

                nDias = Date.Now.Subtract(fileData).Duration.Days

                If (nDias >= udDias.Value) Then

                    gridNotas.Rows.Add(fldr.Name, fileData, False)

                End If

                inc = inc + 1

            Next

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Erro")

        End Try

    End Sub

A parte que interessa aqui é:

Dim fso, fldr

                fso = CreateObject("Scripting.FileSystemObject")

                fldr = fso.GetFolder(folder)

                fileData = fldr.DateCreated

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora