Prüfen ob Datei im Verz. vorhanden ist

Private Sub CommandButton17_Click()
On Error Resume Next
Dim akw
akw = "Aktueller  IMPORT  für "                                     'akt.Datei
Dim mon As String
mon = Format(ActiveSheet.Cells(2, 15).Value, "mmm yy")     'Monatsname
Dim akwDt As String
akwDt = "Aktueller  IMPORT  für " & mon                 'akt.Datei komplett mit Monat
Dim sPath As String
sPath = "H:\Verwaltung\Reporting\" & akwDt                         'Verzeichnis
MsgBox "Es wird geprüft,  ob das Update für den Monat:          " & Chr(13) & Chr(13) _
& vbTab & Format(ActiveSheet.Cells(2, 15).Value, "mmm yy") _
& Chr(13) & Chr(13) & _
"im Verzeichnis:    "" H:\Verwaltung\Reporting ""     " _
& Chr(13) & Chr(13) & _
"vorhanden ist.                                                    " _
& Chr(13), 48, " Hinweis !"
'--------- prüfen ob Datei da ist ---------
If sPath  "" Then
MsgBox "Datei:   " & akwDt & Chr(13) & Chr(13) & _
" ist vorhanden "
Else
MsgBox "Datei:   " & akwDt & Chr(13) & Chr(13) & _
" ist  NICHT  vorhanden "
End If
End Sub

gr. Kurt P