vb.net copiare file da cartella (solo da data ultima modifica)

[Kahm]

salve a tutti
avendo il seguente codice:

        ' Carico tutti I files della directory in un array .
        Dim v_files() As String
        Dim v_file As String

        v_files = System.IO.Directory.GetFiles(TXT_Cartella.Text)
        For Each v_file In v_files

            If IO.File.GetLastWriteTimeUtc(v_file) > Me.TXT_Data.Text Then
                IO.File.Copy(v_file, Me.TXT_Destinazione.Text & "\" & RestituisciNomeFile(v_file))
            End If

        Next

dovrei riuscire a copiare i file da una cartella in un'altra solo per i file che sono stati modificati da una determinata data

peccato pero che questo codice mi continua a copiaretutti i file e nn solo i file recentemente copiati
come è possibile?

p.s.
accetto anceh suggerimenti pre migliorare il codice
visto che forse ho sbagliato qualcosa

[raffaeu]

Ma non converti i dati ???

IO.File.GetLastWriteTimeUtc(v_file) > Me.TXT_Data.Text

CDate non lo usi ? Confronti un oggetto con una stringa ??

Metti Option Strict On e vedi che errori ti segna ...

[Kahm]

Originariamente inviato da raffaeu
Ma non converti i dati ???

IO.File.GetLastWriteTimeUtc(v_file) > Me.TXT_Data.Text

CDate non lo usi ? Confronti un oggetto con una stringa ??

Metti Option Strict On e vedi che errori ti segna ...

wow è ver infatti ho fatto cosie funziona

potrei chiederti visto che ora sono ad un buon punto un modo per cercare di ciclare anche le sottodirectory?

grazie

[cassano]

io usavo una routine ricicleabvile del mitico balena , se la ritrovo ti faccio sapere

[xegallo]

Originariamente inviato da cassano
io usavo una routine ricicleabvile del mitico balena , se la ritrovo ti faccio sapere

non puoi postarla quando ce l'hai senza darci queste anticipazioni (che poi raramente si concretizzano)

[cassano]

xegallo ma mi faccia il piacere guarda un po che ho ..............

Sub PrintDirTree(ByVal dir As String, ByVal showFiles As Boolean, _
Optional ByVal level As Integer = 0)
Dim subdir As String
Dim fname As String

' Display the name of this directory with correct indentation.
Console.WriteLine(New String("-"c, level * 2) & dir)

Try
' Display all files in this directory, with correct indentation.
If showFiles Then
For Each fname In Directory.GetFiles(dir)
Console.WriteLine(New String(" "c, level * 2 + 2) & fname)
Next
End If
' A recursive call for all the subdirectories in this directory.
For Each subdir In Directory.GetDirectories(dir)
PrintDirTree(subdir, showFiles, level + 1)
Next
Catch
' Do nothing if any error (presumably "Drive not ready").
End Try
End Sub

ovviamente adattala alle tue esigenze ,questa in origine ti crea una lista di tutti i file presenti in tutte le sottodirectory,partendo da un percoso di origine.

a xegallo e dai non siamo sempre cosi acidi,visto basta chiedere e io do,anzi Balena da.