Hallo Phaona,
Ich bin mir grad nicht sicher ob das FileSystemObject überhaupt Mehrfach-Instanzen zulässt. Es reicht durchaus aus, nur eine Instanz zu kreieren. (also nur einmal CreateObject ausführen) Du kannst die Fileexists-Methode damit beliebig oft ausführen.
Du hast recht, das sieht etwas abenteuerlich aus. Leider so sehr, dass es mir schwerfällt, zu erkennen, was du genau machen willst.
Bist du denn sicher, dass der von dir eingegebene Überprüfungspfad auch dem Pfad entspricht, welchen du aus den Zellen ausliest? Ich dachte du willst prüfen ob die zu öffnende Datei existiert? Dafür müsstest du die Zuweisung zu Personl_Pfad bzw. Pflanzen_Pfad vor der entsprechenden Überprüfung setzen. Dann kannst du den String innerhalb von fileexists durch deine Variable ersetzen.
Vermutlich ist es nichtmal notwendig, zwei If-Bedingungen ineinander zu verschachteln. Im Normalfall sollte das ausreichen:
If Pfad exisitiert Then
'...
ElseIf Anderer Pfad existiert Then
'...
Else
Msgbox "Keiner der beiden Pfade existiert!"
End if
Probier mal aus, das entsprechend umzustellen und überprüfe die Einträge in deinen Zellen. Wenns nicht klappt, meld dich einfach nochmal.
Gruß Mr. K.
|