Imports
totAmount(ByVal CurrentDir As String) As Integer
        Dim thisDir As New DirectoryInfo(CurrentDir)

因代碼太長我只貼上問題所在.
如果CurrentDir="Z:\File\FnBOffice\terence chu pui kan\lisboa and grand lisboa and other property\Lisboa Complex\grand lisboa\grand lisboa opening team paper work\In - Colleague\Round the Clock\RTC Food Bible\All day menu - Special Recommendation\All day menu - Special Recommendation\"

彈出parth too long 說指定目錄或檔案最多260字元