Problemer med ChDir - kan ikke finder nogen filer

Hej,

Jeg har et problem med ChDir funktionen; den finder simpelthen ikke nogen filer overhovedet.

Jeg har lavet noget kode som løber en mappe i gennem med de filer som har xls som file extension. Problemet er, at jeg har denne fil ude og køre hos tre brugere, hvor det har virket uden problemer. Nu er der en af brugerne som oplever, at ChDir ikke finder nogen filer i mappen. Heller ikke engang, hvis jeg bare siger Dir("*"). Er der en anden funktion end strExtension = Dir("*.xls"), som jeg kan bruge? Eller er det Excel som er "gået i stykker"?

FilePath = ThisWorkbook.Path & "\Input\"
ChDir FilePath
strExtension = Dir("*.xls")
 
Do While strExtension <> ""
    MsgBox (strExtension)
    strExtension = Dir
Loop

På forhånd tak forhjælpen.

Hilsen Henrik