Frage Entwicklung VB for Applications

gelöst Access 2010 VBA Prüfen ob bestimmte Dateien in einem Verzeichnis vorhanden sind , wenn ja dann x sonst nein dann y ...

Dim ordner, files 

ordner = "C:\temp" 

files = Array("test.csv","test2.csv") 

Set fso = CreateObject("Scripting.Filesystemobject") 

For Each file In files 

	If Not fso.FileExists(fso.BuildPath(ordner,file)) Then 

		MsgBox "Die Datei '" & file & "' existiert nicht!",vbExclamation 

	End If 

Next 

set fso = Nothing

Option Compare Text 

Dim ordner, files, gefunden 

ordner = "C:\temp" 

files = Array("test1*","test2*") 

Set fso = CreateObject("Scripting.Filesystemobject") 

For Each file In files 

	gefunden = False 

	For Each f In fso.GetFolder(ordner).Files 

		If f.Name like file Then 

			gefunden = True 

                        Exit For 

		End If  

	Next 

	If Not gefunden Then 

		MsgBox "Eine Datei dir mit '" & file & "' anfängt, existiert nicht.",vbExclamation 

	End If 

Next 

Set fso = Nothing

Dim ordner, files, pattern 

ordner = "C:\temp" 

files = Array("test1*","test2*") 

For Each pattern in files 

    If Dir(ordner & "\" & pattern) = "" then 

        MsgBox "Eine Datei mit dem Muster '" & pattern & "' wurde nicht gefunden" 

    End If 

Next