recuperer le nom du dernier fichier entré

bonsoir a tous.
j'ai un soucis, en effet je voudrais recuperer le nom du dernier fichier copié dans mon  repertoire.

j'utilise directory.getfiles, mais je ne sais plus comment y faire après
aidez moi s'il vous plait

 

My .Computer.FileSystem.GetFileInfo( "mondir" ).LastAccessTime

ou

en effet ca ne me donne rien . rien qu'une date qui ne coorespond a aucune date d'entrée dun des fichers.

moi j'utilise cela pour faire un backup  :)

PrivateSub backup(ByVal srcdir AsString, ByVal destDrive AsString)

Dim src, dest, log AsString

log =

String.Empty

ForEach file AsStringInMy.Computer.FileSystem.GetFiles(srcdir, FileIO.SearchOption.SearchAllSubDirectories, "*.*")

src = file

dest = Replace(file,

"C:\", destDrive)

Try

If IO.File.Exists(dest) Then

IfDate.Compare(My.Computer.FileSystem.GetFileInfo(src).LastWriteTime, My.Computer.FileSystem.GetFileInfo(dest).LastWriteTime) = 0 Then

'le fichier est le même à 99,999%

Else

'overwrite

My.Computer.FileSystem.CopyFile(src, dest, True)

EndIf

Else

'copy

My.Computer.FileSystem.CopyFile(src, dest, False)

EndIf

Catch ex As Exception

log = log & Now.ToShortDateString &

" " & Now.ToLongTimeString & "." & Now.Millisecond & ex.Message & vbCrLf

EndTry

If ProgressBar1.Value = 99 Then ProgressBar1.Value = 1

ProgressBar1.Value = ProgressBar1.Value + 1

Application.DoEvents()

Next

If log = String.Empty Then

' MsgBox("Pas d'erreurs", MsgBoxStyle.Information)

Else

My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\" & Today.ToLongDateString & ".log", log, True)

If MessageBox.Show("il y a eu des erreurs," & vbCrLf & "voulez vous voir le log maintenant?", Application.ProductName, MessageBoxButtons.YesNo, MessageBoxIcon.Error) = Windows.Forms.DialogResult.Yes Then

Process.Start(

"notepad.exe", Application.StartupPath & "\" & Today.ToLongDateString & ".log")

EndIf

EndIf

EndSubavec ça tu devrais trouver