Это проблема пути связана с дос ограничениями на счет имени и пути файла
к примеру Program Files возвращает дос как Progra~1




Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
Public Function GetShortPath(strFileName As String) As String
Dim lngRes As Long, strPath As String
strPath = String$(165, 0)
lngRes = GetShortPathName(strFileName, strPath, 164)
GetShortPath = Left$(strPath, lngRes)

End Function
Private Sub Command1_Click()
MsgBox GetShortPath("c:\Program Files\") ' нужно использовать этот возвращаемый вариант пути файла
End Sub