AW: Mehrere Dateien auf Vorhandensein prüfen
Veit
Moin, Moin,
ich habe es jetzt zwar nicht getestet...
Sub Makro8()
Dim Test1 As Integer, Test2 As Integer, Test3 As Integer, Test4 As Integer, Test5 As Integer, Test6 As Integer, Test7 As Integer
Pfad = "C:\test\"
Dateiname = Dir$(Pfad)
If Dateiname = "" Then
MsgBox "garnix vorhanden"
Exit Sub
End If
Test1 = 0
Test2 = 0
Test3 = 0
Test4 = 0
Test5 = 0
Test6 = 0
Test7 = 0
Do While Dateiname <> ""
Select Case Dateiname
Case "Test1.xls"
Test1 = 1
Case "Test2.xls"
Test2 = 1
Case "Test3.xls"
Test3 = 1
Case "Test4.xls"
Test4 = 1
Case "Test5.xls"
Test5 = 1
Case "Test6.xls"
Test6 = 1
Case "Test7.xls"
Test7 = 1
Case Else
End Select
Dateiname = Dir$()
Loop
nicht_gefunden = ""
If Test1 <> 1 Then nicht_gefunden = nicht_gefunden & "Test1.xls" & Chr(13)
If Test2 <> 1 Then nicht_gefunden = nicht_gefunden & "Test2.xls" & Chr(13)
If Test3 <> 1 Then nicht_gefunden = nicht_gefunden & "Test3.xls" & Chr(13)
If Test4 <> 1 Then nicht_gefunden = nicht_gefunden & "Test4.xls" & Chr(13)
If Test5 <> 1 Then nicht_gefunden = nicht_gefunden & "Test5.xls" & Chr(13)
If Test6 <> 1 Then nicht_gefunden = nicht_gefunden & "Test6.xls" & Chr(13)
If Test7 <> 1 Then nicht_gefunden = nicht_gefunden & "Test7.xls" & Chr(13)
MsgBox "Folgende Dateien fehlen:" & Chr(13) & nicht_gefunden
If nicht_gefunden <> "" Then Exit Sub
'ansonsten gehts weiter
End Sub
Gruß
Ein Veit