Als Antwort auf diesen Beitrag
Hallöchen,
mal ohne umbenennen eine Liste der 3 neuesten Files mit Größe und Datum.
Problem: Wenn ich das auf csv einschränken will, kommt bei mir der McAfee :-(
Sub Letzte_3()
Dim arr3() As String
arr3 = Split(CreateObject("WScript.Shell").Exec( _
"powershell -command ""Get-ChildItem 'C:\Temp' -File | " & _
"Sort-Object LastWriteTime -Descending | " & _
"Select-Object -First 3 Name,Length,LastWriteTime | " & _
"ForEach-Object { $_.Name + '|' + $_.Length + '|' + $_.LastWriteTime.ToString() }""" _
).StdOut.ReadAll, vbLf)
With Range("A1").Resize(UBound(arr3) + 1)
.Value = Application.Transpose(arr3)
.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
End With
End Sub
Hinweis:
Man hätte ggf. ein generelles Problem bei Postscript oder anderen Scriptsprachen, wenn die Nutzung in Firmen eingeschränkt ist.