Bräuchte nochmal schnell eure Hilfe:
Möchte, dass bei folgendem Code die Variable "errfiles" in eine Textdatei geschrieben und mit einem ", " getrennt wird. (sprich wenn z.b. errfiles = 18 ist, nach dem next i 40, dann soll in der Textdatei "18, 40" stehen)
Kriegs irgendwie nicht hin ... Weiß aber nicht, wie ich das umsetzen soll.
Sub test()
With fs
.LookIn = path
.SearchSubFolders = True
.MatchTextExactly = True
.Filename = "*.err"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
errfiles = .FoundFiles(i)
txt_pages = "D:\test\" & "test.txt"
Open txt_pages For Input As #1
Print #1, errfiles
Close #1
Next i
Else
MsgBox "There were no files found."
End If
End with
End Sub
Hoffe ihr könnt mir da weiterhelfen.
Danke und Gruß