ich habe folgendes Programm:
Public Sub verschieben()
Dim index As Integer, FSYObjekt As Object, FObjekt As Object
Set FSYObjekt = CreateObject("Scripting.FileSystemObject")
With Application.FileSearch
.FileName = "e:\v54\work\*.dat"
.LookIn = "e:\v54\work\"
If .Execute > 0 Then
For index = 1 To .FoundFiles.Count
Set FObjekt = FSYObjekt.GetFile(.FoundFiles(index))
If Date > (FObjekt.DateLastModified) Then FObjekt.Move "e:\v54\arc\"
Next
End If
End With
End Sub
Ich will nach beenden des verschiebens eine Liste aller verschobener Dateien ausgegeben bekommen.
Wie kann das eingepflegt werden?
Vielen Dank