Hallöchen,
ich habe eine Frage. Wenn ich vergleichen will, ob die Einträge im Dictionary alle gleich sind. Wie kann ich das bewerkstelligen? (Es werden Dateien geprüft und dann deren Datum eingetragen. Und ich will nur wissen ob diese immer die gleichen sind und wenn nicht eine MsgBox erhalten). Leider bin ich gerade am Straucheln, wie ich es umsetze. Freue mich über Feedback.
ich habe eine Frage. Wenn ich vergleichen will, ob die Einträge im Dictionary alle gleich sind. Wie kann ich das bewerkstelligen? (Es werden Dateien geprüft und dann deren Datum eingetragen. Und ich will nur wissen ob diese immer die gleichen sind und wenn nicht eine MsgBox erhalten). Leider bin ich gerade am Straucheln, wie ich es umsetze. Freue mich über Feedback.
Visual Basic-Quellcode
- Public Function GetDictFiles() As Scripting.Dictionary
- Dim dict As New Scripting.Dictionary
- Dim fso, fo, fi, f As Object
- Dim i As Integer
- Dim di As String
- di = "c:/temp"
- i = 0
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set fo = fso.GetFolder(di)
- Set fi = fo.Files
- For Each f In fi
- dict.Add i, Split(FileDateTime(di & "/" & f.name), " ")(0)
- i = i + 1
- Next f
- Set GetDictFiles = dict
- End Function
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Sam85“ ()