---

Hallo zusammen, ein besserer Titel ist mir leider nicht eingefallen.

Ich habe nachfolgenden Code der in einer Schleife über alle Bauteile einer Baugruppe abläuft

Code:

---

Try
If iProperties.Value(oFileInfo.Name, "Project", "Cost Center") = "" Or iProperties.Value(oFileInfo.Name, "Project", "Checked By") = "" Or iProperties.Value(oFileInfo.Name, "Project", "Date Checked") = checkdate0
ThisDoc.Launch(orefdocname)
End If
Catch
MessageBox.Show("Dokument " & orefdocname & " konnte nicht geöffnet werden!" & vbCrLf & "Bitte manuell öffnen!", "Fehler beim Öffnen", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

---

Ziel ist es alle Dokumente zu öffnen, denen eine Freigabeinformation fehlt. Das funktioniert auch soweit so gut, allerdings soll die Fehlermeldung nur kommen, wenn eine Datei wirklich nicht geöffnet werden kann (gibt da so ein paar nervige Zukaufteile bei uns die das nicht wollen).

Stattdessen habe ich folgendes Verhalten:
- Wird in einer lokalen Datei ausgeführt: Funktioniert wie gewünscht
- Wird in einer Baugruppe im Netzwerk ausgeführt: Die Fehlermeldung erscheint auch bei jedem Teil das ein Kriterium der IF-Schleife erfüllt und damit nicht geöffnet werden soll

------------------
FÌr jede Fehlermeldung gibt es eine Lösung

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

So richtig kapiere ich das noch nicht. Trotzdem versuch ich es mal:
Im Grunde bedeutet die Meldung ja auch nur, dass im Try-Block ein Fehler auftrat. Wo genau weiß man erst mal nicht. Also ist mein Vorschlag das Try zu zerstückeln oder auf die Zeile mit .Launch(...) zu beschränken. Dann bekommst Du zumindest eine Fehlermeldung, wenn beim Lesen der iProp was schief geht.

etwa:

Code:

---

Dim bToOpen as Boolean = False
If iProperties.Value(oFileInfo.Name, "Project", "Cost Center") = "" Then bToOpen = True
If iProperties.Value(oFileInfo.Name, "Project", "Checked By") = "" Then bToOpen = True
If iProperties.Value(oFileInfo.Name, "Project", "Date Checked") = checkdate0 Then bToOpen = True

Try
If bToOpen then ThisDoc.Launch(orefdocname)
Catch
' [...]
End Try

---

------------------
Gruß KraBBy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Was ist oFileInfo und was ist orefdocname? Deklaration und Inhalt der Variablen zur Laufzeit kontrollieren.
Möglicherweise wird einmal ein UNC-Pfad benutzt und einmal ein gemapptes Laufwerk. Das kann Unterschiede in den Zugriffsrechten bedeuten.
Wenn man die Catch Anweisung etwas erweitert bekommt man da auch mehr Infos heraus. Die Möglichkeiten der Exception Klasse findest du hier

Code:

---

Try
    .....
Catch ex As Exception
    MessageBox(ex.Message)
End Try

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP