Wichtig: VBA-Script!? Dateiprüfung?

[Vinzenz Mai]

Hallo

bricht dies aber ab, weil in der excel auch kundennummern vorhanden sind, wo es keine pdfs gibt.

wie könnte man dies prüfen?

Nutze die MSDN, Shell Lightweight API. Du benötigst aus dem Artikel folgende Deklaration:

' ======= FILE FUNCTIONS ========
Private Declare Function PathFileExists Lib "Shlwapi" _
   Alias "PathFileExistsW" _
   (ByVal lpszPath As Long) As Boolean

und diese Funktion:

' ==============================================
' Testing the validity of file and folder names.
' ==============================================
Public Function FileExists(Path As String) As Boolean
  ' Returns True if the path name is valid.
  FileExists = PathFileExists(StrPtr(Path))
End Function

Anwendung:

' Stattdessen Existenz überprüfen.
   ' Es wird kein eventuell teurer Versuch gemacht, eine nicht
   ' vorhandene Datei zu öffnen
   if FileExists(strQuellpfad) then
       FileCopy strQuellpfad, strZielpfad
   else
       ' Generiere z.B. einen Eintrag in einem Fehlerlog
   end if

Anmerkung:
Bitte beachte die Systemvoraussetzungen in verlinktem Artikel,
d.h. IE 4 oder höher unter Windows 95/NT4 erforderlich, alle
neueren Versionen von Windows problemlos.

Freundliche Grüße

Vinzenz