Const sPath As String = "C:\ControlApp\"
Sub CheckFileStart()
Dim iAnz As Long, sArr() As String, MsgTxt As String
CheckFile iAnz, sArr, CreateObject("scripting.filesystemobject").GetFolder(sPath)
If iAnz = 0 Then
MsgTxt = "Es wurde keine entsprechende Datei gefunden!"
Else
MsgTxt = "Es wurde(n) " & iAnz & " Datei(en) gefunden und bearbeitet!"
End If
MsgBox MsgTxt, vbInformation, "Dateibearbeitung"
End Sub
Sub CheckFile(iAnz As Long, sArr, oPath As Object)
Dim oFile As Object, oDir As Object
On Error Resume Next
For Each oFile In oPath.Files
If Err = 0 Then
With oFile
Workbooks.Open Filename:=.Path
With Workbooks(2).Sheets(1)
Call Protokollkorrekturen
End With
Call WP_LA_speichern
Workbooks(2).Close
End With
End If
Next
For Each oDir In oPath.Subfolders
CheckFile iAnz, sArr, oDir
Next
End Sub