AW: Fehler global abfangen?!
18.04.2007 19:08:47
Till
Gallo Otto,
ja....so wird ein Schuh draus.
Das einzige was evtl. auf dem ein oder anderen Rechner, wo das laufen soll anders ist, ist der Pfad des Systemordners!
Kann man den noch irgendwie variabel gestalten.
Hab da folgendes gefunden:
Option Explicit
Private Declare Function GetSystemDirectory Lib "kernel32" _
Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, _
ByVal nSize As Long) As Long
Private Const kLength = 255&
Public Function GetSysDir(Optional ByVal AddBackslash As Boolean) _
As String
Dim nBuffer As String
Dim nReturn As Long
nBuffer = Space(kLength)
nReturn = GetSystemDirectory(nBuffer, kLength)
If nReturn > 0 Then
If AddBackslash Then
GetSysDir = Left(nBuffer, nReturn) & "\"
Else
GetSysDir = Left(nBuffer, nReturn)
End If
End If
End Function
Komm da aber noch nicht vollständig mit klar.
Wie kann ich in Deine Pfadangabe den Befehl "GetSysDir" integrieren?
Ich hab mal das hier versucht, was aber nicht funktioniert:
Sub DateienTesten()
Dim c As String
Dim d As String
c = Dir("GetSysDir\mscomct2.ocx")
d = Dir("GetSysDir\MSCAL.OCX")
If c = "" And d = "" Then
MsgBox "Die erforderlichen Systemdateien fehlen.", vbInformation, " "
Else
MsgBox "Alles klar", vbInformation, " "
End If
End Sub
Danke schon mal!
Gruß Till